ERROR RUN-TIME 70

USUARIO.EXCLUIDOS 21/04/2007 17:32:26
#213156
Pessoal boa noite!!!
Migrei de Windows a pouco tempo passando de Xp para vista, e agora, quando vou executá-los antes de compila-los, o seguinte erro é aparecido:

Run-time error '70':
Pemission Denied

e sempre na mesma rotina:

Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
SendKeys "{Tab}"
KeyCode = 0
End If
End Sub


Por ser windows vista, não consigo resolver.
No XP funcionava perfeito

VB 6.0
Access 2000
Dao

Marcelino Neto
USUARIO.EXCLUIDOS 21/04/2007 18:01:30
#213159 Resposta escolhida
'Cara, o Sendkeys quando usado no Windows 2000 pode causar o travamento do teclado. Não trava o sistema, somente o teclado. Para evitar esse problema, pode-se utilizar o seguinte código:

'No módulo
Option Explicit

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, Iparam As Any) As Long
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Long) As Integer
Public Sub SimulaTab(f As Form, sTecla As Integer)
    If sTecla = vbKeyReturn Then _
       Call PostMessage(f.hWnd, &H100, &H9, 0): _
       sTecla = 0
End Sub

'No form, recomendo usar no evento KeyPress para evitar o beep
Private Sub Form_KeyPress(KeyAscii As Integer)
    Call SimulaTab(Me, KeyAscii)
End Sub
USUARIO.EXCLUIDOS 21/04/2007 18:20:24
#213162
Vou fazer a chamada desta forma, dando certo eu posto novamente!!!
USUARIO.EXCLUIDOS 21/04/2007 18:38:49
#213165
Grato pela força. Tudo ok...
Tópico encerrado , respostas não são mais permitidas
Voltar