ENTER NAO FUNCIONA

LEANDRO 12/03/2010 10:56:48
#336747
Bom Dia a Todos.
Tenho um aplicação em VB6 com ACCESS, e a empresa trocou de XP para o Seven, ai começou o problema, o Enter não funciona mais, ele da um erro de Permissao, porem coloquei o mesmo programa na mesma maquina com MySQL e funciona normal, andei pesquisando e encontrei que a Microsoft não tem o Driver de conexao ODBC para ACCESS, porem não achei nenhuma solução.
DANIKULL 12/03/2010 11:18:13
#336753
LEANDRO, bom dia.

Pelo visto o problema é o Driver então, certo???
Se for, como você está fazendo a conexão com o BD??
LEANDRO 12/03/2010 11:21:56
#336754
Na realidade eu não sei o problema, só achei na net isso. Talvez não seja o meu problema pois se eu usar somento o TAB ele funciona normalmente, o Enter que esta me dando problemas
LEANDRO 12/03/2010 11:31:02
#336755
Pesquisando na Net.
Li um topico que o cara fala que o ACCESS como é padrão Windows não aceita o Enter, somente o TAB.
Cara ta muito confuso.
DANIKULL 12/03/2010 12:34:18
#336765
Leandro.

Me diz uma coisa, o que você quer fazer na verdade???
Navegação entre objetos com a tecla [Ô]ENTER[Ô]??
Execução de subtorina após o precionamento da tecla [Ô]ENTER[Ô]???
LEANDRO 12/03/2010 12:38:27
#336768
Navegação entre objetos com o ENTER.
isso ele ja faz normalmente ... menos no Seven
DANIKULL 12/03/2010 12:43:00
#336772
LEANDRO,

Cara ta confuso...
O que tem haver o BD nesta histório, Access e MySQL???
Coloca o código ai para o pessoal dar uma olhada...
LEANDRO 12/03/2010 13:13:49
#336778 
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
    SendKeys [Ô]{TAB}[Ô]
    KeyAscii = 0
End If


este é o Codigo, uma coisa é certa o mesmo sistema no mesmo micro acessando o ACCESS da errado e acessando o Mysql da Certo
SINKERTEC 12/03/2010 13:27:29
#336780


Em qual evento vc coloca esse código?
LEANDRO 12/03/2010 13:29:04
#336781
No KeyPress

Private Sub txtCodRem_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
If KeyAscii = 13 Then
    SendKeys [Ô]{TAB}[Ô]
    KeyAscii = 0
End If
End Sub
SINKERTEC 12/03/2010 13:32:59
#336785

Assim funciona?

[ô]KeyAscii = Asc(UCase(Chr(KeyAscii))) [ô] n precisa disso

If KeyAscii = 13 Then OutroText.Setfocus

End If
Página 1 de 2 [17 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar