Sample Login User Ms Access

Sample Login User Ms Access Easy user










Option Compare Database
Option Explicit
Global UserIdVariable As Integer
Global UserRoleVariable As Integer
Global UserNameVariable As String

Public Function changeproperty(strN As String, vartype As Variant, varvalue As Variant)
Dim dbs As Object, prp As Variant
Const prpnotfound As Long = 3270

Set dbs = CurrentDb
On Error GoTo handler
dbs.Properties(strN) = varvalue
changeproperty = True

Exit Function

If Err = prpnotfound Then
Set prp = dbs.CreateProperty(strN, vartype, varvalue)
dbs.Properties.Append prp
changeproperty = False
Resume bye
End If

End Function

code of the table user login ms access









Related posts:

Leave a Reply

Your email address will not be published. Required fields are marked *