Please help. thanks
Code:
Private Sub Form_Load()
On Error Resume Next
If Not IsNull(Me.OpenArgs) Then
Me.lblUserType.Caption = Me.OpenArgs
Me.cmdLogout.SetFocus
Me.Caption = " "
Call Disabled
End If
End Sub
htugay
Last Activity: Mar 13 '17, 08:48 AM
Joined: Dec 27 '16
Location:
-
Form load / disabled button
The codes are working in admin account, but in user account once the Main form is close and open again all the button are already enabled.
Please help. thanks
...Last edited by Frinavale; Feb 10 '17, 09:22 PM. -
htugay replied to Private Sub cmdEnter_Click() On Error Resume Next Dim Attempts As Integer Dim UserTypin AccessPrivate Sub cmdEnter_Click( )
On Error Resume Next
Static Attempts As Integer
Dim UValue As Variant
Dim UType As Variant
If IsNull(Me.cmbUF Name) Or Me.cmbUFName = "" Then
MsgBox "Select Your Name First.", vbOKOnly, "Required Data"
Me.cmbUFName.Se tFocus
Exit Sub
End If
If IsNull(Me.txtUs erPass) Or Me.txtUserPass... -
htugay replied to Private Sub cmdEnter_Click() On Error Resume Next Dim Attempts As Integer Dim UserTypin AccessThanks, static Attemps As Integer is working. I replace the Dim into Static.
thank you so muchLeave a comment:
-
htugay replied to Private Sub cmdEnter_Click() On Error Resume Next Dim Attempts As Integer Dim UserTypin AccessThanks, static Attemps As Integer is working. I replace the Dim into Static.
thank you so muchLeave a comment:
-
htugay replied to Private Sub cmdEnter_Click() On Error Resume Next Dim Attempts As Integer Dim UserTypin AccesscmbUFname is list of users registered in tblUser, its only use to select user account with dlookup codes.
thanksLeave a comment:
-
htugay started a topic Private Sub cmdEnter_Click() On Error Resume Next Dim Attempts As Integer Dim UserTypin AccessPrivate Sub cmdEnter_Click() On Error Resume Next Dim Attempts As Integer Dim UserTyp
3 times attempt is not working, please someone can help me
Private Sub cmdEnter_Click( )
On Error Resume Next
Dim Attempts As Integer
Dim UserType As Variant
If IsNull(Me.cmbUF Name) Or Me.cmbUFName = "" Then
MsgBox "Select Your Name First.", vbOKOnly, "Required Data"
Me.cmbUFName.Se tFocus
Exit Sub
End...
No activity results to display
Leave a comment: