ضغط مفتاح انتر 3 مرات

[jo_2010]

الخبراء الافاضل 

اريد تنفيذ امر محدد بعد الضغط على مفتاح انتر 3 مرات التفاصيل داخل القاعدة المرفقة

لكم الشكر

2020.accdb

[ابوخليل]

لم اطلع على المرفق

ولكني عملت لك هذا حسب ما فهمت

Dim i As Integer
Private Sub ID_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
i = i + 1
If i = 3 Then
MsgBox "اعمل الإجراء"
Exit Sub
End If
  Else
  i = 0
End If
End Sub

 

test1.mdb