Tùy chọn
Tạo phím tắt
- Tạo phím tắt
-
RE: Tạo phím tắt
KheNgot > 04-03-20, 10:57 PM
Mọi người cho em hỏi thêm: Nếu làm theo cách này thì cũng chỉ tạo được 1 phím cho 1 sự kiện thôi ạ. Ý em là: Nếu em tạo 1 phím F4 để mở 1 form rồi và ở form khác em cũng muốn tạo bằng phím F4 này thì không được. AutoKeys không cho tạo? -
RE: Tạo phím tắt
tranthanhan1962 > 05-03-20, 11:36 AM
(04-03-20, 10:57 PM)KheNgot Đã viết: Mọi người cho em hỏi thêm: Nếu làm theo cách này thì cũng chỉ tạo được 1 phím cho 1 sự kiện thôi ạ. Ý em là: Nếu em tạo 1 phím F4 để mở 1 form rồi và ở form khác em cũng muốn tạo bằng phím F4 này thì không được. AutoKeys không cho tạo?
Làm sao chỉ với một phím tắt mà bạn tạo được 2 lệnh mở form khác nhau. Đến người còn chưa làm được
. Ví vụ có nhiều cái ly khác nhau mà bạn chỉ nói đưa tôi cái ly thì biết cái ly nào, mà lệnh máy tính cần sự minh bạch nếu nói F4 là đưa cái ly A thì không thể có chuyện F4 đưa cái ly B. Nếu muốn làm việc này bạn phải có điều kiện, Điều kiện A thì F4 mở form A, điều kiện B thì F4 mở form B hoặc bạn F4 để mở luôn 2 form cái nào không sử dụng thì tự đóng lại chừa cái kia
-
RE: Tạo phím tắt
KheNgot > 05-03-20, 07:35 PM
Dạ, em hiểu ý ạ. Nhưng em thấy các phần mềm có thể áp dụng được cùng phím cho các form ạ? Em lấy vị dụ cụ thể như sau: Khi người dùng mở form khai báo khách hàng và nhấn phím F2 để hiểm thị form cập nhật dữ liệu; và khi đó form cập nhật khách hàng xong thì đóng lại và mở form hóa đơn bán hàng và cũng nhấn phím F2 thì sẽ hiển thị form cập nhật hóa đơn mới. Nếu làm cùng phím thì trong AutoKeys không tạo được 2 Submarco {F2}? Chẳng lẽ 1 ứng dụng Access lại không làm được sao ạ?
Cám ơn nhiều! -
RE: Tạo phím tắt
ongke0711 > 05-03-20, 08:51 PM
(05-03-20, 07:35 PM)KheNgot Đã viết: Dạ, em hiểu ý ạ. Nhưng em thấy các phần mềm có thể áp dụng được cùng phím cho các form ạ? Em lấy vị dụ cụ thể như sau: Khi người dùng mở form khai báo khách hàng và nhấn phím F2 để hiểm thị form cập nhật dữ liệu; và khi đó form cập nhật khách hàng xong thì đóng lại và mở form hóa đơn bán hàng và cũng nhấn phím F2 thì sẽ hiển thị form cập nhật hóa đơn mới. Nếu làm cùng phím thì trong AutoKeys không tạo được 2 Submarco {F2}? Chẳng lẽ 1 ứng dụng Access lại không làm được sao ạ?
Cám ơn nhiều!
Vấn đề là bạn diễn giải không rõ về tầm vực sử dụng của các phím nóng nên bác tranhthanhan1962 trả lời bạn như vậy là đúng rồi.
Muốn thực hiện phím nóng cho từng Form thì chỉ có cách dùng sự kiện KeyDown của từng Form để gán thôi. Hoặc là viết một cái hàm để gọi ở từng Form. AutoKeys chỉ dùng cho toàn bộ ứng dụng ví dụ: Khi đang ở bất kỳ Form nào, bấm {F1} sẽ hiện file hướng dẫn, {F10} - Đóng ứng dụng. Nó chỉ thực hiện 1 công việc thôi. -
RE: Tạo phím tắt
KheNgot > 05-03-20, 09:42 PM
@ongke0711: Có thể demo cho em 1 ví dụ về sự kiện KeyDown? Em chưa hình dung làm như thế nào ạ? -
RE: Tạo phím tắt
ongke0711 > 06-03-20, 12:05 AM
-
RE: Tạo phím tắt
tranthanhan1962 > 06-03-20, 12:45 AM
(05-03-20, 09:42 PM)KheNgot Đã viết: @ongke0711: Có thể demo cho em 1 ví dụ về sự kiện KeyDown? Em chưa hình dung làm như thế nào ạ?
Hầu như tất cả các control trên form đều có event KeyDown, Nhưng event Form_KeyDown thường không được sử dụng, do trên form có nhiều control, Khi mở form focut sẽ không nằm trên form mà có thể ở bất kỳ control nào, Khi đó chỉ có control nào nhận focut thì event KeyDown của ctrol đó mới thực thi. Một ví dụ đơn giản với một command button ABC:
Private Sub ABC_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyF4 Then MsgBox "Ban vua bam phim F4."
If KeyCode = vbKeyA Then MsgBox "Ban vua bam phim A."
If KeyCode = vbKey7 Then MsgBox "Ban vua bam phim 7." ' Bàn phím chữ
If KeyCode = vbKeyNumpad8 Then MsgBox "Ban vua bam phím 8" 'Bàn phím số
End Sub
Tất nhiên ý của bạn là muốn thực hiện một dạng kiểu marco toàn cục mà không cần quan tâm đến chuyện focus nằm ở đâu, vì vậy bạn có thể tạo một function, sau đó dùng macro AutoKeys này để chạy, vì nếu thuần tuý macro bạn không thể đặt điều kiện nên bạn có thể kết hợp với điều kiện từ code để xử lý, Ví dụ bạn có 3 form:form khai báo khách hàng và nhấn phím F2 để hiểm thị form cập nhật dữ liệu; và khi đó form cập nhật khách hàng xong thì đóng lại và mở form hóa đơn bán hàng cũng bằng phím F2.
Trên form [khai báo khách hàng] tạo thêm một [textboxM] để đặt điều kiện. Khi mở form mặc định giá trị [textboxM]=1, trên form [cập nhật dữ liệu] viết một đoạn code:
Private Sub Form_Unload(Cancel As Integer)
form_[khai báo khách hàng].textboxM.Value = 2
End Sub
Đoạn code này nhằm xác định đã xử lý form cập nhật dữ liệu giờ sẽ mở form hóa đơn bán hàng, Trên form hóa đơn bán hàng cũng viết một đoạn code:
Private Sub Form_Unload(Cancel As Integer)
form_[khai báo khách hàng].textboxM.Value = 1
End Sub
Có nghĩa là textboxM = 1 autokey F2 sẽ mở form cập nhật dữ liệu, textboxM = 2 autokey F2 sẽ mở form hóa đơn bán hàng.
Giờ thì tạo một function xử lý công việc:
Function XYZ()
Select Case textboxM.Value
Case 1
DoCmd.OpenForm "cập nhật dữ liệu"
Case 2
DoCmd.OpenForm "hóa đơn bán hàng"
End Select
End Function
Tiếp tục trong macro AutoKeys thay gì bạn dùng lệnh OpenForm bỏ nó đi thay thế bằng lệnh RunCode, trong phần Function Name bạn đưa vào tên function XYZ(). Lúc này mới có đủ điều kiện để xủ lý một hotkey mở được 2 form.
Access có thể làm được nhiều thứ nhưng bạn phải đáp ứng đầy đủ luật lệ của nó, các lệnh phải cụ thể rõ ràng và minh bạch. Máy móc không tự suy luận đươc mà mình phải suy luận dùm nó. Nó chỉ thực hiện một lệnh cho một công việc duy nhất, nếu muốn xử lý một lệnh cho nhiều công việc bạn phải đưa ra từng điều kiện cho từng tình huống riêng biệt.
Chúc bạn thành công. -
RE: Tạo phím tắt
ongke0711 > 06-03-20, 03:44 PM
(05-03-20, 09:42 PM)KheNgot Đã viết: @ongke0711: Có thể demo cho em 1 ví dụ về sự kiện KeyDown? Em chưa hình dung làm như thế nào ạ?
Demo cho bạn cái hàm gọi phím tắt đơn giản nhất.
- Hàm ShortcutKey() lưu ở Module.
Mã PHP:Option Explicit
Public Sub ShortcutKey(frm As String, iKeyCode As Integer)
Select Case iKeyCode
Case vbKeyF2
Call Forms(frm).cmdThem_Click
Case vbKeyF3
Call Forms(frm).cmdBaoCao_Click
End Select
End Sub
- Code ở Form Module: chú ý khai báo "Public Sub..."
- Nhớ thiết lập KeyPreview=Yes trong Form Property.
Mã PHP:Option Explicit
Public Sub cmdBaoCao_Click()
DoCmd.OpenForm "frmA_BaoCao", , , , , acDialog
End Sub
Public Sub cmdThem_Click()
DoCmd.OpenForm "frmA_Them", , , , , acDialog
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Call ShortCutKey("frmA", KeyCode)
End Sub
Link demo: http://www.mediafire.com/file/bkyg18wy0y...accdb/file
--------------------------------------------------------------
Nếu các Form có các nút lênh phức tạp hơn thì dùng cách tương tự gợi ý của anh Ân.
Mã PHP:Public Sub ShortCutKey(frm As String, iKeyCode As Integer)
Select Case iKeyCode
Case vbKeyF2
Select Case frm
Case "frmA"
Call Forms("frmA").cmdXuat_Click '--> o Form A khi bam {F2}: Xuat'
Case "frmB"
Call Forms("frmB").cmdTongHop_Click '--> o Form B khi bam {F2}: Tong hop bao cao'
End Select
Case vbKeyF3
Select Case frm
Case "frmA"
Call Forms("frmA").cmdInBaoCao_Click '--> o Form A khi bam {F3}: in báo cáo'
Case "frmB"
Call Forms("frmB").cmdCapNhat_Click '--> o Form B khi bam {F3}: cap nhat du lieu'
End Select
End Select
End Sub -
RE: Tạo phím tắt
KheNgot > 06-03-20, 10:16 PM
Theo demo em làm thế này mà vẫn không được. Nó là lỗi gì ạ?
Lỗi: Run-time error '2465'
File đính kèm: https://drive.google.com/open?id=1Nyhgyx...ZBY4FW4Fvo
Cám ơn nhiều! -
RE: Tạo phím tắt
ongke0711 > 06-03-20, 11:06 PM
(06-03-20, 10:16 PM)KheNgot Đã viết: Theo demo em làm thế này mà vẫn không được. Nó là lỗi gì ạ?
Lỗi: Run-time error '2465'
Trong bài trên tôi đã có nói bạn chú ý khai báo cái "Public Sub..." trong code rồi. Nếu khai báo Private thì tầm vực hoạt động của cái Sub này chỉ ở trong Form thôi, không thể gọi được từ Standard Module (hàm ShortcutKey()).
Public Sub cmdMoi_Click()
...
Public Sub cmdTB_Click()