Enter provoca beep

[Alex C. M. Munhoz 0]

Cada vez que deu um Enter provoca um beep.

 

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

alguém poderia me ajudar?

 

Grato

[Luizgrs 0]

Muda essa rotina para o evento KeyPress do form e muda a variável keycode para keyascii.

[fnandood 0]

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Or KeyAscii = 9 Then KeyAscii = 0End Sub

[Fabyo 66]

seu erro esta no keyascii = 0 sendo que o controle esta no keycode

 

coloque isso no keypress:

	
If KeyAscii = 13 Then
		SendKeys "{tab}"
	   KeyAscii = 0
End If