Enter Provoca Beep

[KaotiX]

Eu tenho isto:

Private Sub txt1_KeyDown(KeyAscii As Integer, Shift As Integer)

    If KeyAscii = vbKeyReturn Then
        cmd_add_Click
    End If
    KeyAscii = 0
    
End Sub

O problema é que, quando o usuário aperta Enter com o campo txt1 focado, o programa envia um Beep, pois o tal campo não é multiline. Como posso evitar este beep?

Obrigado.

[Graymalkin]

Já experimentou usar o evento KeyPress?

Abraços,

Graymalkin

[AlexMunhoz]

Eu tenho isto:

Private Sub txt1_KeyDown(KeyAscii As Integer, Shift As Integer)

    If KeyAscii = vbKeyReturn Then
        cmd_add_Click
    End If
    KeyAscii = 0
    
End Sub

O problema é que, quando o usuário aperta Enter com o campo txt1 focado, o programa envia um Beep, pois o tal campo não é multiline. Como posso evitar este beep? Obrigado.

Estou com o mesmo problema, mas creio que no meu caso não resolveria usar o KeyPress. O que posso fazer?

     If KeyCode = vbKeyReturn Then
        
        If TypeOf ActiveControl Is TextBox Then
            
            SendKeys "{TAB}"
            
            KeyAscii = 0
                       
         End If
    
    End If

abraço.

[KaotiX]

Pra mim resolveu. ;)