Tab - enter

[hedefkaya]

Metin1 kutusunda ENTER tuşuna basınca cari formu açılsın fakat Metin1 kutusundan TAB veya FARE tuşu ile çıkarsam hiç bir işlem yapmasın. yardımlarınız için şimdiden teşekürler.

 

[modalı]

Sayın hedefkaya,

Private Sub Metin1_KeyDown(KeyCode As Integer, Shift As Integer)
  
        If KeyCode = 13 Then
            DoCmd.OpenForm "Form1"
        End If
    End Sub

Kodu ile enter e basınca Form1 açılır.

Hiçbirşey yapmasını biraz açabilirmisiniz.

İyi çalışmalar

 

[hedefkaya]

Teşekürler sayın modalı bu kod yeterli oldu elinize sağlık