Business Templets (1)
A great Interface For designing a business/company web sit
Download Business Templets (1)
Private Sub Command1_Click()
Dim User As String
Dim UserLevel As Integer
Dim TempPass As String
Dim ID As Integer
Dim workerName As String
Dim TempLoginID As String
If IsNull(Me.txtUserName) Then
MsgBox "Please enter UserName", vbInformation, "Username requeired"
Me.txtUserName.SetFocus
.....................
.... DOWNLOAD ACCESS FILE FOR FULL CODE
.... A little donation is much appreciated
.....................
End If
End If
End Sub
7. Set a Login Form as a display form when open a database program on the Quick Access Option:Forms![Navigation Form]![txtLogin] = TempLoginID Forms![Navigation Form]![txtUser] = workerName9. If you have a first of Navigation Form is refer to the Login Id or User, it will show the Login user right away unless you click on that tab to refresh data. In this HowTo, I put the BrowseTo command to refresh the first page of Navigation Form because I have a greeting message to the Login user show below:
DoCmd.BrowseTo acBrowseToForm, "frmFirstPage", "Navigation Form.NavigationSubForm", , , acFormEdit