"Geo" wrote:

> Yeaaaaah!!!
> Here is a solution:
>
> Option Compare Database
> Option Explicit
>
>
> Public Function dd()
> If CurrentUser() <> "admin" Then
>     If CurrentUser() <> "ChosenUser" Then
>         ChangeProperty "AllowBypassKey", dbBoolean, False
>     Else
>         ChangeProperty "AllowBypassKey", dbBoolean, True
>     DoCmd.Quit
>     End If
> Else
> ChangeProperty "AllowBypassKey", dbBoolean, False
>     DoCmd.Quit
> End If
>
> End Function
> Function ChangeProperty(strPropName As String, varPropType As Variant,
> varPropValue As Variant) As Integer
>     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  ' Property not found.
>         Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
>         dbs.Properties.Append prp
>        Resume Next
>     Else
>         ' Unknown error.
>         ChangeProperty = False
>         Resume Change_Bye
>     End If
> End Function
>
> (C) Mitrica Dan
>
>
>