Tùy chọn
Tạo phím tắt
- Tạo phím tắt
-
Tạo phím tắt
KheNgot > 11-02-20, 01:21 PM
Chào cả nhà!
Em đang tạo form. Và có 1 vấn đề này muốn nhờ mọi người trợ giúp em. Trên form em đang tạo 2 nút chọn (có ghi phím tắt). Giờ em muốn tạo tắt để dùng cho nhanh. Mọi người hỗ trợ em nhé!
Lưu ý: 2 nút này có thế sử dụng phím tắt hoặc click chọn trực tiếp ạ
Link: https://drive.google.com/open?id=1ujs99d...OdN66Rz2Mc
Cám ơn mọi người nhiều! -
RE: Tạo phím tắt
Noname > 11-02-20, 04:00 PM
1. Xử lý nút nhấn
Các nút nhấn bạn xử lý sự kiện on click cho nó open form như bình thường.
2. Xử lý phím tắt
Bạn tạo 1 marcro tên là Autokeys, gán thong số như hình. Lưu lại. Như vậy kể từ đây mỗi khi bạn nhấn F2 nó sẽ mở form F2, Nhấn phím F3 nó sẽ mở form F3
![[Hình: di0OkJ0.png]](https://i.imgur.com/di0OkJ0.png)
Xem file
http://www.mediafire.com/file/fsjrt9pmz8...accdb/file -
RE: Tạo phím tắt
tranthanhan1962 > 11-02-20, 04:54 PM
(11-02-20, 01:21 PM)KheNgot Đã viết: Chào cả nhà!
Để sử dụng phím chức năng F2, F3 mở 2 form F2,F3 bạn phải tạo macro có tên AutoKeys (không được dùng tên khác):
Em đang tạo form. Và có 1 vấn đề này muốn nhờ mọi người trợ giúp em. Trên form em đang tạo 2 nút chọn (có ghi phím tắt). Giờ em muốn tạo tắt để dùng cho nhanh. Mọi người hỗ trợ em nhé!
Lưu ý: 2 nút này có thế sử dụng phím tắt hoặc click chọn trực tiếp ạ
Link: https://drive.google.com/open?id=1ujs99d...OdN66Rz2Mc
Cám ơn mọi người nhiều!
![[Hình: VkGVobg.jpg]](https://i.imgur.com/VkGVobg.jpg)
Code mở form của 2 button trên form F1 như sau:
Private Sub Command0_Click()
DoCmd.OpenForm "F2"
End Sub
--------------------------
Private Sub Command1_Click()
DoCmd.OpenForm "F3"
End Sub
Bạn cũng có thể thêm ký tự & vào caption của nút lệnh để tạo phím tắt
Caption cũa nút Command0 là &Thêm (F2) và Command1 là &Báo cáo (F3) khi form hiển thị sẽ như sau:
![[Hình: BEhct2R.jpg]](https://i.imgur.com/BEhct2R.jpg)
Chữ T và chữ B có một gạch đít.
Bạn chỉ cần sử dụng tổ hợp phím Alt+chữ có gạch đít nó sẽ thực hiện lệnh của nút lệnh đó -
RE: Tạo phím tắt
KheNgot > 11-02-20, 04:54 PM
Cám ơn anh! Em đã làm được rồi ạ. -
RE: Tạo phím tắt
KheNgot > 11-02-20, 08:18 PM
Đến đây, mọi người cho em hỏi thêm 1 câu nữa ạ: Nếu tạo như thế này thì ở bất cứ chỗ nào nhấn F2 hay F3 nó đều hiển thị những form này. Có cách nào để mình khống chế không ạ? Giả sử khi mở form F2 và nếu nhấn phím tắt F3 thì nó không hiển thị form F3 nữa ạ. Tức là nó chỉ có tác dụng ở form hiện tại (form active) thôi ạ? Chứ ở form nào chọn cũng ấn phím tắt được thế này thì không ổn ạ.
Cám ơn mọi người nhiều! -
RE: Tạo phím tắt
tranthanhan1962 > 11-02-20, 11:45 PM
Đặc điểm của macro AutoKeys là sử dụng submacro để xử lý phím chức năng, bạn chỉ có thể sử dụng cho một hành động nào đó và submacro này sẽ không quản lý được phím chức năng khác, thậm chí bạn không cần mở form F1 vẫn có thể mở 2 form kia bằng phím chức năng đã gán.
Trường hợp của bạn chỉ có cách sử dụng dấu & ở caption, khi dấu này ở trước ký tự nào thì khi hiển thị sẽ bị gạch đít. Trong ví dụ trên khi form F1 activate, bạn bấm Alt+T sẽ mở form F1, Alt+B sẽ mở form F2, khi form F1 hoặc F2 activate thì các tổ hợp phím này sẽ không sử dụng được vì form F1 đã bị deactivate.
Nói chung cũng không nên sử dụng phím chức năng để làm auto key vì những phím chức năng đều có nhiệm vụ của nó.
Cách đặt tên form của bạn cũng không hay lắm. Tên form phải định danh gợi nhớ, Bạn sử dụng F + số khi phát triển nhiều form sẽ rất rối. Ví dụ form F1 có thể đặt tên là frmFormDieuKhien (Cation Bảng điều khiển) form F2 có thể đặt là frmFormNhapDuLieu hoặc frmFormThem, form F3 là frmBaoCao, các nút lệnh Command0 có thể đặt là btnThem, Command1 là btnBaoCao, sau này khi viết code bạn có thể dể dàng xử lý hơn là các con số 1,2,3,4...
Nếu form F3 là form quản lý nhiều báo cáo thì bạn có thể sử dụng nhưng nếu chỉ có một báo cáo thị bạn dùng report để thực hiện còn form chỉ để nhập và xem dữ liệu chứ in thì rất xấu khó dàn trang và nhất là không hỗ trợ xử lý các báo cáo có nhiều nhóm (group) -
RE: Tạo phím tắt
Noname > 12-02-20, 09:16 AM
(11-02-20, 08:18 PM)KheNgot Đã viết: Đến đây, mọi người cho em hỏi thêm 1 câu nữa ạ: Nếu tạo như thế này thì ở bất cứ chỗ nào nhấn F2 hay F3 nó đều hiển thị những form này. Có cách nào để mình khống chế không ạ? Giả sử khi mở form F2 và nếu nhấn phím tắt F3 thì nó không hiển thị form F3 nữa ạ. Tức là nó chỉ có tác dụng ở form hiện tại (form active) thôi ạ? Chứ ở form nào chọn cũng ấn phím tắt được thế này thì không ổn ạ.
Cám ơn mọi người nhiều!
Ngoài các lưu ý của anh Trần Thanh Ân là rất hữu ích. Ngoài ra, để phục vụ nghiên cứu, bạn cũng có thể tham khảo cách sau để tùy biến autokeys.
ý tưởng của mình như sau:
1.Macro Autokeys nhận sự kiện nhấn phím tắt, gọi tới 1 hàm tương ứng
2. Hàm này kiểm tra form nào đang Active, nếu tên form ứng với ý đồ của mình thì cho chạy code, không thì thôi.
Thực Hiện :
Bạn tạo 2 function như sau:
Mã PHP:Function phimF2()
' ham nay goi form F2 chi khi nao dang o form F1
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
If frmCurrentForm.Name = "F1" Then
DoCmd.OpenForm "F2"
End If
End Function
Function phimF3()
' ham nay goi form F3 chi khi nao dang o form F1
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
If frmCurrentForm.Name = "F1" Then
DoCmd.OpenForm "F3"
End If
End Function
![[Hình: JCoLdof.png]](https://i.imgur.com/JCoLdof.png)
Macro Autokeys, bạn chỉnh lại thay vì Openform thì thành Run Code, khai báo lần lượt là hàm phimF2() và hàm phimF3
![[Hình: 2L6hwKA.png]](https://i.imgur.com/2L6hwKA.png)
Xem file
http://www.mediafire.com/file/a1v5pq735q...accdb/file -
RE: Tạo phím tắt
tranthanhan1962 > 12-02-20, 12:07 PM
(12-02-20, 09:16 AM)Noname Đã viết: ........
Hàm của Noname rất hay, khống chế được hoạt động của function Key. Nhưng mình test thử trên máy (access 2019 64 bit) thì xảy ra hiện tượng như thế này. Khi mới mở database, Autokeys hoạt động bình thường dù không có sự hiện diện của form F1, chỉ sau khi nhấn phím F1 gọi help, thì code mới hoạt động
ý tưởng của mình như sau:
1.Macro Autokeys nhận sự kiện nhấn phím tắt, gọi tới 1 hàm tương ứng
2. Hàm này kiểm tra form nào đang Active, nếu tên form ứng với ý đồ của mình thì cho chạy code, không thì thôi.
........ -
RE: Tạo phím tắt
feeling > 23-02-20, 02:18 PM
LỖI PHÍM TẮT ĐÃ ĐẶT
Cho em hỏi trường hợp này ạ. Khi em click chọn vào 1 mã khách hàng hàng và em nhấn F4 xong và nhấn lại F4 thì nó báo lỗi Run-Time error '2475'. Và nếu nhấn chọn F4 và đóng lại rồi nhấn F8 để xóa thì nó cũng báo lỗi. Vậy cách khắc phục lỗi này là gì ạ? A/C chỉ dùm cho em nhé!
Link: https://drive.google.com/open?id=1oaDiTT...lxRJRQ9p0K -
RE: Tạo phím tắt
tranthanhan1962 > 23-02-20, 03:35 PM
(23-02-20, 02:18 PM)feeling Đã viết: LỖI PHÍM TẮT ĐÃ ĐẶT
Biều thức Screen.ActiveForm định nghĩa rằng Form đang hoạt động trên màn hình, và lỗi Run-Time error '2475' access báo có nghĩa rằng "Bạn đã nhập một biểu thức yêu cầu một biểu mẫu là cửa sổ hoạt động.". Khi bạn mở form F_DanhMucDoiTuong, thì form này activate nên bạn nhấn F4 thì nó sẽ mở form F_DoiTuong (theo lệnh [DoCmd.OpenForm "F_DoiTuong", acNormal]) của Function Phim1(), lúc này con trỏ sẽ dời qua form F_DoiTuong, và form F_DanhMucDoiTuong sẽ bị Deactivate, lúc này bạn nhấn F4 sẽ bị lỗi 2475 vì form F_DanhMucDoiTuong không phải là form active.
Cho em hỏi trường hợp này ạ. Khi em click chọn vào 1 mã khách hàng hàng và em nhấn F4 xong và nhấn lại F4 thì nó báo lỗi Run-Time error '2475'. Và nếu nhấn chọn F4 và đóng lại rồi nhấn F8 để xóa thì nó cũng báo lỗi. Vậy cách khắc phục lỗi này là gì ạ? A/C chỉ dùm cho em nhé!
Link: https://drive.google.com/open?id=1oaDiTT...lxRJRQ9p0K
Muốn không bị lỗi này bạn phải bỏ đoạn mã điều kiện trong đoạn code chỉ chừa [DoCmd.OpenForm "F_DoiTuong", acNormal], nhưng lúc này thì bạn nhấn F4 bất kỳ nó cũng sẽ mở form F_DoiTuong.
Bạn cũng có thể xử lý bằng cách thêm đoạn mã "On Error GoTo..." để bỏ qua lỗi. Dưới tham số "Biloi:" không có gì cả có nghĩa nếu bị lỗi nó sẽ không làm gì cả.
Function Phim1()
On Error GoTo Biloi
Set frmCurrentForm = Screen.ActiveForm
If frmCurrentForm.Name = "F_DanhMucDoiTuong" Then
DoCmd.OpenForm "F_DoiTuong", acNormal
End If
Biloi:
End Function
Đồng thời trên form F_DoiTuong bổ sung thêm code cho event On Unload để khi close form F_DoiTuong con trỏ sẽ tự động activate form F_DanhMucDoiTuong
Private Sub Form_Unload(Cancel As Integer)
Form_F_DanhMucDoiTuong.SetFocus
End Sub