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

bye:
Exit Function

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

End Function

code of the table user login ms access

 

 

 

 

 

 

 

Download

Related posts:

Leave a Reply

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