Try this one.
Dim JmlSalah As Integer 'Global variable
Private Sub Command1_Click()
'=============================
If JmlSalah = 3 Then
MsgBox "Anda sudah salah 3 kali. Program akan dihentikan."
End
End If
'=============================
If Text1.Text = "" And Text2.Text = "" Then
MsgBox "Maaf, Username & Password harus diisi!"
JmlSalah = JmlSalah + 1 'Jumlah kesalahan jika user salah login
Exit Sub
ElseIf Text1.Text = "" Then
MsgBox "Maaf, Username harus diisi!"
JmlSalah = JmlSalah + 1 'Jumlah kesalahan jika user salah login
Text2.Text = ""
Text1.SetFocus
Exit Sub
ElseIf Text2.Text = "" Then
MsgBox "Maaf, Password harus diisi!"
JmlSalah = JmlSalah + 1 'Jumlah kesalahan jika user salah login
Text1.Text = ""
Text1.SetFocus
Exit Sub
End If
If Text1.Text = "teknik" And Text2.Text = "informatika" Then
Form2.Show
Form1.Hide
Else
MsgBox "Maaf Username atau Password salah, Akses gagal, silakan
login ulang!"
JmlSalah = JmlSalah + 1 'Jumlah kesalahan jika user salah login
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
End If
End Sub
Regards.
--- In [email protected], Giftirul Aziz <[EMAIL PROTECTED]>
wrote:
>
> Dear all,
>
>
> Salam kenal, semua saya baru kenal VB mau tanya gimana cara
nempatin script untuk membatasi login salah dibatsin hanya 3 kali
saja jika sudah 3 kali maka keluar dari program. Berikut script yang
sudah saya bikin dimana terdapat verifikasi untuk username or
password kosong dan username or passwor salah.
>
> Private Sub Command1_Click()
> If Text1.Text = "" And Text2.Text = "" Then
> MsgBox "Maaf, Username & Password harus diisi!"
> Exit Sub
>
> ElseIf Text1.Text = "" Then
> MsgBox "Maaf, Username harus diisi!"
> Text2.Text = ""
> Text1.SetFocus
> Exit Sub
>
> ElseIf Text2.Text = "" Then
> MsgBox "Maaf, Password harus diisi!"
> Text1.Text = ""
> Text1.SetFocus
> Exit Sub
>
> End If
>
> If Text1.Text = "teknik" And Text2.Text = "informatika" Then
> Form2.Show
> Form1.Hide
> Else
> MsgBox "Maaf Username atau Password salah, Akses gagal, silakan
login ulang!"
> Text1.Text = ""
> Text2.Text = ""
> Text1.SetFocus
> End If
> End Sub
>
>
>
>
> Mohon bantuannya agar verifikasi tetap berjalan dan login salah
hanya 3 kali saja.
>
> Thanks....
>
>
> Best regards,
>
>
> Giftirul
>
