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

NHỜ CHỈNH CODE KHÓA PHÍM SHIFT

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • NHỜ CHỈNH CODE KHÓA PHÍM SHIFT
• NHỜ CHỈNH CODE KHÓA PHÍM SHIFT

• NHỜ CHỈNH CODE KHÓA PHÍM SHIFT

  vansunhuy58 > 11-10-23, 05:36 PM

  Xin chào các bạn.
  Mình có code khóa Shift, đã thực hiện được tốt trong Access 2003.
  Nhưng đem code đó làm cho Access 2010 thì không có kết quả.
  Nhờ các bạn chỉnh sửa dùm. Cảm ơn rất nhiều.
  
  
  Private Sub Form_Load()
  On Error GoTo ErrHandler
  Dim db As Database
  Dim ThuocTinh As Property
  Set db = CurrentDb
  db.Properties("AllowBypassKey") = False
  Set db = Nothing
  Egress:
  On Error Resume Next
  Set db = Nothing
  Set ThuocTinh = Nothing
  Exit Sub
  ErrHandler:
  MsgBox Err.Number
  If Err.Number = 3270 Then ' Property not found.
  Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, False)
  db.Properties.Append ThuocTinh
  Resume Next
  Else
  MsgBox Err.Description
  Resume Egress
  End If

• RE: NHỜ CHỈNH CODE KHÓA PHÍM SHIFT

  ongke0711 > 11-10-23, 07:17 PM

  Bạn có viết sẳn luôn cái hàm để "mở khóa" phím SHIFT luôn chưa? chứ không lỡ khóa rồi là khỏi vô lại file đó thiết kế, sửa code luôn đó.
  Code trên từ thời Office 2003 nên chỉ khai báo đúng một loại "Database" là Access nó hiểu là DAO Database ,vì có thêm loại nào khác vô đâu.
  Để dùng được cho các phiên bản Access sau này, bạn phải khai báo tường minh cái Database. Nếu để Database không Access sẽ tưởng là ADO Database.
  
  

  Mã:

  Dim db As DAO.Database

Dim ThuocTinh As DAO.Property

• RE: NHỜ CHỈNH CODE KHÓA PHÍM SHIFT

  vansunhuy58 > 12-10-23, 09:41 AM

  Cảm ơn ongke0711 đã quan tâm đến chủ đề.
  Mình đã chỉnh như vậy, nhưng vẫn chưa được
  Xin gửi file DEMO nhờ chỉnh dùm, cảm ơn nhiều:
  https://app.box.com/s/cg3ev60di8p4lfjd4gcu6iu9lp2bbr5e

• RE: NHỜ CHỈNH CODE KHÓA PHÍM SHIFT

  ongke0711 > 12-10-23, 04:30 PM

  (12-10-23, 09:41 AM)vansunhuy58 Đã viết: Mình đã chỉnh như vậy, nhưng vẫn chưa được
  Xin gửi file DEMO nhờ chỉnh dùm, cảm ơn nhiều:
  https://app.box.com/s/cg3ev60di8p4lfjd4gcu6iu9lp2bbr5e

  
  Code trong file của bạn có 2 vấn đề:
  - Code chạy không sai nhưng nó lòng vòng, lặp lại và logic xử lý lộn xộn.
  - Cách bạn test như thế nào mà biết là nó đã vô hiệu hóa SHIFT hay không? Tôi test là nó có hoạt động nhé.
  
  Tôi sửa lại code cho gọn như dưới đây:
  
  

  Mã:

  Option Compare Database
Option Explicit

Private Sub Command0_Click()
    enableShiftKey False
End Sub

Private Sub Command1_Click()
    enableShiftKey True
End Sub

Sub enableShiftKey(blnFlag As Boolean)  '// True: enable, False: disable
   
    On Error GoTo ErrHandler
   
    Dim db As DAO.Database
    Dim ThuocTinh As DAO.Property
   
    Set db = CurrentDb
    db.Properties("AllowBypassKey") = blnFlag
   
    Select Case blnFlag
    Case True
        MsgBox "Da mo khoa SHIFT", vbInformation, "Thông báo"
    Case False
        MsgBox "Da khoa SHIFT", vbInformation, "Thông báo"
    End Select
   
Err_Exit:
    Set db = Nothing
    Set ThuocTinh = Nothing
    Exit Sub
   
ErrHandler:
    If Err.Number = 3270 Then ' Property not found.
        Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, blnFlag)
        db.Properties.Append ThuocTinh
    Else
        MsgBox Err.Description
    End If
    Resume Err_Exit

End Sub

• RE: NHỜ CHỈNH CODE KHÓA PHÍM SHIFT

  vansunhuy58 > 12-10-23, 05:24 PM

  (12-10-23, 04:30 PM)ongke0711 Đã viết:

  (12-10-23, 09:41 AM)vansunhuy58 Đã viết: Mình đã chỉnh như vậy, nhưng vẫn chưa được
  Xin gửi file DEMO nhờ chỉnh dùm, cảm ơn nhiều:
  https://app.box.com/s/cg3ev60di8p4lfjd4gcu6iu9lp2bbr5e

  
  Code trong file của bạn có 2 vấn đề:
  - Code chạy không sai nhưng nó lòng vòng, lặp lại và logic xử lý lộn xộn.
  - Cách bạn test như thế nào mà biết là nó đã vô hiệu hóa SHIFT hay không? Tôi test là nó có hoạt động nhé.
  
  Tôi sửa lại code cho gọn như dưới đây:
  
  

  Mã:

  Option Compare Database
Option Explicit

Private Sub Command0_Click()
    enableShiftKey False
End Sub

Private Sub Command1_Click()
    enableShiftKey True
End Sub

Sub enableShiftKey(blnFlag As Boolean)  '// True: enable, False: disable
   
    On Error GoTo ErrHandler
   
    Dim db As DAO.Database
    Dim ThuocTinh As DAO.Property
   
    Set db = CurrentDb
    db.Properties("AllowBypassKey") = blnFlag
   
    Select Case blnFlag
    Case True
        MsgBox "Da mo khoa SHIFT", vbInformation, "Thông báo"
    Case False
        MsgBox "Da khoa SHIFT", vbInformation, "Thông báo"
    End Select
   
Err_Exit:
    Set db = Nothing
    Set ThuocTinh = Nothing
    Exit Sub
   
ErrHandler:
    If Err.Number = 3270 Then ' Property not found.
        Set ThuocTinh = db.CreateProperty("AllowBypassKey", dbBoolean, blnFlag)
        db.Properties.Append ThuocTinh
        Resume Err_Exit
    Else
        MsgBox Err.Description
        Resume Err_Exit
    End If
End Sub

  
  Tuyệt vời luôn.
  Cảm ơn ongke0711 nhiều nhé!
• Bài trước Bài tiếp