lebac1990ld > 02-01-16, 04:31 PM
ongke0711 > 02-01-16, 05:10 PM
Option Compare Database
Public USERNAME As String
Public USERID As String
Public USERLEVEL As String
Public USERPASS As String
Option Explicit
Function GetUsername()
GetUsername = USERNAME
End Function
Function GetUserID()
GetUserID = USERID
End Function
Function GetUserLevel()
GetUserLevel = USERLEVEL
End Function
Function GetUserPass()
GetUserPass = USERPASS
End Function
USERNAME = Me.txtUserName.Value
Me.Text28.Value=GetUserName
lebac1990ld > 04-01-16, 09:07 AM
lebac1990ld > 15-01-16, 06:19 PM