Contoh kode untuk form login
(Merupakan salah satu diantara "KEJUTAN" Training ICDP-2009)
Private Sub cmdlogin_Click()
On Error GoTo Err_cmdlogin_Click
Dim stDocName As String
Dim stLinkCriteria As String
If IsNull([cbouser]) Then
MsgBox "Nama user belum di-isi!", vbCritical, "Peringatan"
cbouser.SetFocus
ElseIf IsNull([txtpassword]) Then
MsgBox "Password belum di-isi", vbCritical, "Peringatan"
txtpassword.SetFocus
ElseIf Me![txtpassword].Value <> Me![txtpass].Value Then
If Me![counter] = 1 Then
Dim strpsn As String
strpsn = "Hak akses tidak dikenal!" + Chr(13)
strpsn = strpsn + "Silahkan hubungi
Admin/Programmer!!!"
MsgBox strpsn, vbCritical, "Peringatan"
DoCmd.Quit
Else
MsgBox "Username/Password salah. Silahkan
coba sekali lagi!", vbCritical, "Peringatan"
Me![counter] = Me![counter] + 1
Me![txtpassword] = ""
txtpassword.SetFocus
End If
Else
Me.Bar.Visible = True
Me.TimerInterval = 25
Call run_bar
End If
Exit_cmdlogin_Click:
Exit Sub
Err_cmdlogin_Click:
MsgBox Err.Description
Resume Exit_cmdlogin_Click
End Sub
-----------------------------------------------------------------------------------------------
Private Sub run_bar()
On Error GoTo nol
Dim MainMenu As String
If Me.status.Value = "Admin" Then
MainMenu = "Main"
Else
MainMenu = "Main2"
End If
DoCmd.Hourglass True
Bar.Value = Bar.Value + 1
If Bar.Value = 100 Then
Form.TimerInterval = 0
DoCmd.Hourglass False
MsgBox "Proses Login Berhasil !", , "Login Sukses"
DoCmd.Close acForm, "frmLogin"
DoCmd.OpenForm MainMenu
DoCmd.Maximize
End If
nol:
End Sub
