Bấm nút ESC tự đóng Forms

[thanhlong24]

Option Compare Database


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Select Case KeyCode
Case vbKeyEscape

If Me.Dirty Then Me.Undo ' Cancel any changes

DoCmd.Close acForm, Me.FormName

End Select
End Sub
Private Sub Command2_Click()
On Error GoTo Err_Command2_Click


DoCmd.Close

Exit_Command2_Click:
Exit Sub

Err_Command2_Click:
MsgBox Err.Description
Resume Exit_Command2_Click

End Sub


Private Sub Command4_Click()
On Error GoTo Err_Command4_Click


DoCmd.Close

Exit_Command4_Click:
Exit Sub

Err_Command4_Click:
MsgBox Err.Description
Resume Exit_Command4_Click
Option Compare Database
Select Case KeyCode
Case vbKeyEscape

If Me.Dirty Then Me.Undo ' Cancel any changes

DoCmd.Close acForm, Me.FormName

End Select
End Sub

Trên đây là nút lệnh tác dụng với Command2 còn Command4 không tác dụng mọi người xem nó sai chỗ nào với:santa:

Nếu muốn gán nút thêm bằng nút F2
sửa F3
xoá F4 thì làm thế nào nhỉ có viết thành các nút riêng trong VBA rồi copy và dán được không:matdeu:

View more random threads:

• Một số câu hỏi trắc nghiệm về VBA trong access
• Không update được dữ liệu
• Làm thế nào để hiển thị tiếng việt trong Msg box Yes/No ?
• File nào là Front End , File nào là Back End
• Giúp đở đoạn code SQL trong VBA của Access
• Xin code để accesc có thể refresh hoặc chạy lại
• Các Bro giúp em sử lý hàm Dsum kết hợp hàm And với !!!!
• chuyển font Vntime sang unicode
• Access xem giúp mình bài tính đơn giá này,tạo bảng table lấy dữ liệu từ table khác
• Bắt sự kiện Report được in ra máy in?

[thuongdo07]

Ðề: Bấm nút ESC tự đóng Forms

Cái command4_click nó làm sao mà bắt được cái keycode, mặc khác ai mà để cái đó ở cái phân đoạn err_Command4_Click bao giờ ???

[nhumotcongio]

Ðề: Bấm nút ESC tự đóng Forms

Cái command4_click nó làm sao mà bắt được cái keycode, mặc khác ai mà để cái đó ở cái phân đoạn err_Command4_Click bao giờ ???

Bác Phatnq2002 nói chí phải.
Bạn làm đơn giản hơn đi. Tớ ví dụ cái nhé
Key Preview = Yes
Viết code cho On Key Down
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
DoCmd.Close
End If
End Sub

Bạn hãy làm tương tự khi muốn gán cho F2, F3,....

[ViệtNet]

Ðề: Bấm nút ESC tự đóng Forms

Thank các bác nhiều em càng nghiên cứu access càng thấy thú vị mặc dù trình vẫn còn sơ khai