Cách khóa phím Shift

[payment]

Bạn nào biết cách khóa phím Shift hướng dẫn mình với

 

[ketoan4mat]

Tham khảo xem sao

 

[nguoiconxunui]

Bạn nào biết cách khóa phím Shift hướng dẫn mình với

cách này :

1. tạo function làm việc với properties

Public Function ChangeProperty(strPropName, varPropType, varPropValue)
    Dim dbs As Database, prp As Property
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

khi muốn khóa cái gì thì dùng function trên có dạng:

ChangeProperty "AllowBypassKey", dbBoolean, False

tham số True thì cho dùng, false thì ngược lại

 

[payment]

cách này :

1. tạo function làm việc với properties

Public Function ChangeProperty(strPropName, varPropType, varPropValue)
    Dim dbs As Database, prp As Property
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then
        Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function

khi muốn khóa cái gì thì dùng function trên có dạng:

ChangeProperty "AllowBypassKey", dbBoolean, False

tham số True thì cho dùng, false thì ngược lại

Không biết ai có hướng dẫn cụ thể nào để mọi người học hỏi chứ hướng dẫn chung chung thì người mới học Access chắc là mò mẫm rồi. Mình thấy hướng dẫn trên của bạn có nhiều trên mạng nhưng nhiều người đọc đành botay.com

 

[nguoiconxunui]

Không biết ai có hướng dẫn cụ thể nào để mọi người học hỏi chứ hướng dẫn chung chung thì người mới học Access chắc là mò mẫm rồi. Mình thấy hướng dẫn trên của bạn có nhiều trên mạng nhưng nhiều người đọc đành botay.com

thực ra cái này làm việc với properties thôi, cái function thì copy y chang vào modul nào đó có thể dùng public cũng được .
Sau đó trong cái sub (thủ tục) nào mình muốn khóa/ mở thì gọi function trên kia thôi
ví dụ mình có cái button cmdLock

sub cmdLock_click()
' Có thể thay AllowBypassKey bằng các "đối tượng khác" trong trường hợp này là khóa phím Shift như yêu cầu
ChangeProperty "AllowBypassKey", dbBoolean, False ' Có thể thay AllowBypassKey bằng các "đối tượng khác" trong trường hợp này là khóa phím Shift như yêu cầu
end sub

Đấy chỉ cần click vào cmdLock thì phím Shift không có tác dụng khi mở file mdb nữa
Đã viết được VBA mà các bước này không làm được thì nên quay về cơ bản.