Rekan-rekan saya numpang lewat dan berbagi script login, mungkin bisa menjadi
referensi..
---
Private Sub cmdlogin_Click()
On Error GoTo Err_cmdlogin_Click
If IsNull(Me.username) Or Me.username = "" Then
MsgBox "Masukkan Username.", vbOKOnly, "Username Kosong"
Me.username.SetFocus
Exit Sub
End If
'Check to see if data is entered into the password box
If IsNull(Me.password) Or Me.password = "" Then
MsgBox "Masukkan Password", vbOKOnly, "Password Kosong"
Me.password.SetFocus
Exit Sub
End If
'Check value of password in tblEmployees to see if this matches value chosen in
combo box
'If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees",
"[lngEmpID]=" & Me.cboEmployee.Value) Then
If Me.username.Value = DLookup("username", "TabelUser", "[username]='" &
Me.username.Value & "'") Then
Me.username.Locked = True
Me.password.SetFocus
If Me.password.Value = DLookup("password", "TabelUser", "[username]='"
& Me.username.Value & "'") Then
'MsgBox "Welcome"
DoCmd.OpenForm "FormGeneralShipping" ', , , , , acHidden
'DoCmd.Close acForm, "FormUtama", acSaveNo
DoCmd.Close acForm, "FormLogin", acSaveNo
Else
MsgBox "Password salah!!" & vbLf & _
"Silakan coba lagi....", vbOKOnly, "Password Salah"
End If
Else
MsgBox "Username tidak terdaftar..." & vbLf & _
"Silakan Hubungi Administrator", vbOKOnly, "Username Salah"
fieldreset
End If
'If User Enters incorrect password 2 times database will shutdown
intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "Anda tidak memiliki Akses. Silakan Hubungi Administrator.",
vbCritical, "Restricted Access!"
Application.Quit
End If
Exit_cmdlogin_Click:
Exit Sub
Err_cmdlogin_Click:
MsgBox Err.Description
Resume Exit_cmdlogin_Click
End Sub
--- In [email protected], nadhif_fakhri <nadhif_fak...@...> wrote:
>
> Siang semua " Minal Aidin walfaidzin "
> maaf baru nongol lagi,
>
> pada saat membuka form1 , password saat saya login juga bisa tampil secara
> otomatis sesuai
> dengan login dan password yang sedang aktif. saya mohon pencerahannya, file
> nya saya lampirkan.
> Terima kasih.
>
> Best regards,
> nadhif_fakhri
> mailto:nadhif_fak...@...
>
