• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Tạo phím tắt cho Command

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Tạo phím tắt cho Command
• Tạo phím tắt cho Command

• RE: Tạo phím tắt cho Command

  MTNQ > 25-10-14, 09:15 AM

  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
• Bài trước Bài tiếp