Chủ đề: Bấm nút ESC tự đóng Forms
-
05-19-2009, 06:33 AM #1Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Bấm nút ESC tự đóng Forms
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:
- Tìm kiếm với hai điều kiệm trong 1textbox
- Giải pháp nào cho compact CSDL lớn !
- Xin hỏi cách truy vấn SQL do63 dữ liệu vào trong Litstbox
- Xin code để accesc có thể refresh hoặc chạy lại
- Làm cách nào khi nhập phát hiện dữ liệu đã có trong table khác
- Xin giúp em về listview
- Giúp mình sort tren listbox vớii
- combo box ở access ???
- [Hỏi] Biểu tượng hình tam giác màu vàng có dấu chấm thang trong macro !!!
- Thiết lập ngày hệ thống trong Access
-
05-19-2009, 06:54 AM #2Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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ờ ???
-
06-06-2009, 02:30 AM #3Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Bấm nút ESC tự đóng Forms
Gửi bởi phatnq2002
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,....
-
06-09-2009, 07:45 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: 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
Pallet nhựa Bình Phước giá rẻ mà chất lượng Pallet nhựa Bình Phước là một sản phẩm quan trọng trong ngành công nghiệp và logistics, đặc biệt tại Bình Phước, nơi có nhiều khu công nghiệp và nhà máy...
Pallet nhựa Bình Phước giá rẻ mà chất lượng