ماهوا الكود الخاص الذي يجعل الموشر يتنقل بين Text والا عند انقرعل انتر من لوحة المفتيح ؟؟

 Private Sub text1_KeyPress(KeyAscii As Integer)
	If KeyAscii = vbKeyReturn Then Text2.SetFocus
	If KeyAscii = 13 Then KeyAscii = 0
End Sub

او

Private Sub text1_KeyPress(KeyAscii As Integer)
	If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0
End Sub

alimf كتب:

 Private Sub text1_KeyPress(KeyAscii As Integer)
	If KeyAscii = vbKeyReturn Then Text2.SetFocus
	If KeyAscii = 13 Then KeyAscii = 0
End Sub

او

Private Sub text1_KeyPress(KeyAscii As Integer)
	If KeyAscii = 13 Then SendKeys "{TAB}": KeyAscii = 0
End Sub

-------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

استاذي العزيز

السلام عليكم ورحمة وبركاته

استاذي العزيز احب ان اقدم لك جزيل الشكر والتقدير والله يحفظكم ويرعاكم ويجعل ذلك في موزاين حسناتكم

ولكم مني فائق الاحترم