Urgent: AllowBypassKey

[StefanSch]

Hi

Want I want to achieve is something like the following:

--------------------------------------------


If AllowBypassKey = true then
'something like this should check whether the user has
'enabled the shift-key

create a text file on c:\

End If

--------------------------------------------


Do you know how I can achieve such a thing with code?

I didn't have any success.

Thanks.

 

[ChrisO]

I'm not sure where this should be called from but it should do the job.

Public Sub CheckAllowBypassKey()
    Dim intFileNumber As Integer
    
    If CurrentDb.Properties("Allowbypasskey") = True Then
        intFileNumber = FreeFile
        
        Open "C:\UserActions.txt" For Append As #intFileNumber
        Print #intFileNumber, CurrentUser() & " set Allow bypass key to True" & vbTab & " : " & Now()
        Close #intFileNumber
        
    End If

End Sub

Hope that helps.

Regards
Chris