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

Mọi người hướng dẫn giúp em cách bỏ đi 2 tab File và Home với ạ

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Help] Mọi người hướng dẫn giúp em cách bỏ đi 2 tab File và Home với ạ
• Mọi người hướng dẫn giúp em cách bỏ đi 2 tab File và Home với ạ

• Mọi người hướng dẫn giúp em cách bỏ đi 2 tab File và Home với ạ

  Thang0977427268 > 03-02-20, 12:27 AM

  

• RE: Mọi người hướng dẫn giúp em cách bỏ đi 2 tab File và Home với ạ

  tranthanhan1962 > 03-02-20, 09:43 AM

  Tab File thì không ẩn được, nhưng có thể ẩn được tất cả các command trên tab này để vô hiệu hóa hoạt động của tab này. Bạn tham khảo ở đây.
  Hướng Dẫn Hướng dẫn chi tiết thiết kế Ribbon ứng dụng Access II

• RE: Mọi người hướng dẫn giúp em cách bỏ đi 2 tab File và Home với ạ

  Thang0977427268 > 04-02-20, 03:18 PM

  (03-02-20, 09:43 AM)tranthanhan1962 Đã viết: Tab File thì không ẩn được, nhưng có thể ẩn được tất cả các command trên tab này để vô hiệu hóa hoạt động của tab này. Bạn tham khảo ở đây.
  Hướng Dẫn Hướng dẫn chi tiết thiết kế Ribbon ứng dụng Access II

  
  Bác có đường Link bài hướng dẫn khóa và mở Phím Shift không cho mình xin hướng dẫn với ạ!

• RE: Mọi người hướng dẫn giúp em cách bỏ đi 2 tab File và Home với ạ

  tranthanhan1962 > 04-02-20, 03:28 PM

  (04-02-20, 03:18 PM)Thang0977427268 Đã viết: Bác có đường Link bài hướng dẫn khóa và mở Phím Shift không cho mình xin hướng dẫn với ạ!

  
  Code khóa phím Shift
  Public Function Disable_ShiftKey()
  
      Dim db As Database
      Dim prp, prptest As Property
            On Error GoTo Err_Handler
            Set db = CurrentDb
            For Each prptest In db.Properties
      If prptest.Name = "AllowBypassKey" Then
      db.Properties.Delete "AllowBypassKey"
      Exit For
      End If
      Next prptest
            Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, False, True)
      db.Properties.Append prp
            db.Properties.Refresh
            msgBox "Disable Shift Key succeeded!", vbInformation
            Set db = Nothing
      Set prp = Nothing
            Err_Exit:
      Exit Function
            Err_Handler:
      msgBox "Error " & Err.Number & " ! " & Err.Description, vbCritical
      Resume Err_Exit
  End Function
  
  
  Code mở khóa phím Shift
  Public Function Enable_ShiftKey()
  
      Dim db As Database
      Dim prp, prptest As Property
      On Error GoTo Err_Handler
      Set db = CurrentDb
      For Each prptest In db.Properties
      If prptest.Name = "AllowBypassKey" Then
      db.Properties.Delete "AllowBypassKey"
      Exit For
      End If
      Next prptest
      Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True, True)
      db.Properties.Append prp
      db.Properties.Refresh
      msgBox "Enable Shift Key succeeded!", vbInformation
      Set db = Nothing
      Set prp = Nothing
      Err_Exit:
      Exit Function
      Err_Handler:
      msgBox "Error " & Err.Number & " ! " & Err.Description, vbCritical
      Resume Err_Exit
  End Function
• Bài trước Bài tiếp