BEEP AO PULAR DE CAMPO
Ola Amigos
Estou com o seguinte problema, coloquei o seguinte evento no objeto textbox:
Private Sub txtvendedor_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
txtnota.setfocus
KeyCode = 0
End If
End Sub
O que acontece é o seguinte, quando eu pressiono o botão F1 no txtvendedor ele pula para txtnota , até então OK , porém um BEEP é executado nas caixas de som... Gostaria de Saber como tirar esse Beep??????
para verificar o momento exato em que o beep aconteça - faça o seguinte
Private Sub txtvendedor_KeyDown(KeyCode As Integer, Shift As Integer)
debug.print KeyCode
If KeyCode = 112 Then
txtnota.setfocus
End If
End Sub
assim que detectar o keyCode, voce vai identificar a tecla responsavel (normalmente 13) - e entao voce pode usar o keycode=0 no if keycode=estaTeclaDetectada...
de qualquer forma verifique tambem o codigo no evento GotFocus destes textboxes
Private Sub txtvendedor_KeyDown(KeyCode As Integer, Shift As Integer)
debug.print KeyCode
If KeyCode = 112 Then
txtnota.setfocus
End If
End Sub
assim que detectar o keyCode, voce vai identificar a tecla responsavel (normalmente 13) - e entao voce pode usar o keycode=0 no if keycode=estaTeclaDetectada...
de qualquer forma verifique tambem o codigo no evento GotFocus destes textboxes
fiz o seguinte teste e nao tive qualquer beep
Option Explicit
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
Text2.SetFocus
End If
End Sub
voce tem certeza que é nesta rotina que está dando o beep?
algum evento no LostFocus, GotFocus, Change, timer ou qq coisa do tipo tem código também?
Option Explicit
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 112 Then
Text2.SetFocus
End If
End Sub
voce tem certeza que é nesta rotina que está dando o beep?
algum evento no LostFocus, GotFocus, Change, timer ou qq coisa do tipo tem código também?
Option Explicit
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
KeyCode = 0 'Isto deveria resolver
End If
End Sub
de qualquer forma se nao resolver - considere usar o KeyPress - e use KeyAscii = 0 abaixo do set focus
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Text2.SetFocus
KeyCode = 0 'Isto deveria resolver
End If
End Sub
de qualquer forma se nao resolver - considere usar o KeyPress - e use KeyAscii = 0 abaixo do set focus
Tópico encerrado , respostas não são mais permitidas