Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo phím tắt cho Command
#11
1/Bạn khai báo một biến toàn cục (vd: Public strActiveObjName As String 'trên đầu một module )

2/Ở sự kiện On Activate của form (hay Report) bạn code :
Mã:
strActiveObjName = Me.Name
Và Sự kiện On Deactivate của Form (hay Report) đó :
Mã:
strActiveObjName = ""

3/Tại hàm được gọi khi bấm phím tắt code tương tự như sau:

Mã:
Function RunAutoKeys(strKey As String)
        Select Case strKey
            Case "F1"
                Select Case strActiveObjName
                    Case "frmHuongDan"
                        MsgBox "Ban da bam F1 tren form frmHuongDan"
                    Case "frmMain"
                        MsgBox "Ban da bam F1 tren form frmMain"
                    Case "Report1"
                        MsgBox "Ban da bam F1 tren Report Report1"
                    Case "Report2"
                        MsgBox "Ban da bam F1 tren Report Report2"
                    Case Else
                    
                End Select
             Case "F2"
            
             '... Case cho cac phim tat khac
            
        End Select
  
End Function
Chữ ký của MatTroiNguQuen Thời gian nước chảy... da mòn
Ngủ quên một chốc thấy còn bộ xương!
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Thay đổi màu textbox khi đã khóa phím shift thanhtruong 3 267 30-10-15, 01:13 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Vô hiệu hóa chuột phải, phím chức năng tieuphung88 5 744 27-07-15, 11:14 AM
Bài mới nhất: tieuphung88
  Kết nối dữ liệu với nút command button nguyenlinh_tb 1 423 19-02-14, 12:31 PM
Bài mới nhất: quan_pc
  [Help] Tạo phím tắt hoặc gán lệnh di chuyển con trỏ qua lại các subform. gaubu117 1 426 15-02-14, 06:20 PM
Bài mới nhất: trunghieu
  Khóa phím close trên Access dung 15 5,710 08-05-13, 11:47 AM
Bài mới nhất: ledangvan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ