Ok,
Terima kasih Pak Airlangga dan teman teman lainnya,
sekarang sudah bisa setelah saya setting seperti di bawah ini
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys vbTab
DoEvents
End Sub
hikari edogawa <[EMAIL PROTECTED]> wrote: >> Di Properties "KeyPreview" Form
Anda setting ke TRUE
>> Terus masukkan Koding dibawah ini :
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then SendKeys vbTab
DoEvents
End Sub
>> Kalau pake ini mau kontrol-nya textbox, combo, dll tinggal ENTER saja
>> Kalau tidak mau pake di salah satu kontrol misal Text1, add koding ini :
Private Sub Text1_GotFocus()
Me.KeyPreview = False
End Sub
Private Sub Text1_LostFocus()
Me.KeyPreview = True
End Sub
>> Semoga Membantu
Best Regard,
Airlangga Eka W.
Best Regards,
Budi Mulyono
[EMAIL PROTECTED]
---------------------------------
Looking for last minute shopping deals? Find them fast with Yahoo! Search.
[Non-text portions of this message have been removed]
