try this..
Dim peluang As Integer
Private Sub Command1_Click()
Debug.Print peluang
If peluang >= 3 Then
MsgBox "Maksimal Mencoba 3 kali"
Exit Sub
End If
If (LCase(txt2.Text) <> "wayan") Then
txt2.Text = ""
MsgBox "Nama User Tidak Dikenal"
peluang = peluang + 1
Exit Sub
End If
If (LCase(txt1.Text) <> "wayan") Then
txt1.Text = ""
MsgBox "Password Tidak Dikenal"
peluang = peluang + 1
Exit Sub
End If
form6.Show
Unload Me
End Sub
Private Sub Form_Load()
peluang = 1
End Sub
----- Original Message -----
From: "wayan demitrius" <[EMAIL PROTECTED]>
To: <[email protected]>
Sent: Friday, June 23, 2006 12:02 PM
Subject: [Programmer-VB] Form Login
> Para senior Milis VB, saya ingin sedikit berbagi
masalah tentang Form
Login.
> saya mencoba membuat satu login namun Bolak-balik
tidak membuahkan hasil.
> Form Login ini terdapat User Name = wayan dan
Pasword= wayan
>
> pada user name diinput dengan nama user yang tertera
dan password yang
tertera pula.
>
> Yang jadi masalah dari Form Login saya ini adalah
Kenapa setelah saya
masukan User Name --> wayan dan tekan Enter muncul
pesan "nama user tidak
dikenal" padahal nama user tsb sudah nyata-nyata saya
siapkan.
>
> Sedangkan Pada kotak Textbox Password bisa diterima
tanpa menggunakan User
Name, misalnya Texbox User Name saya Disable.
>
> Mohon bantuannya dan berikut saya lampirkan kode
Sorcenya:
>
> peluang = peluang + 1
> peluang1 = peluang1 + 1
> If (LCase(Txt2.Text) = "wayan") And (peluang1 <=
0) Then
> Txt2.SetFocus
> Else
> MsgBox "Nama User tidak dikenal !"
> If peluang1 < 0 Then
> Txt2.Text = ""
> Text1.SetFocus
>
> If (LCase(Text1.Text) = "wayan") And (peluang <=
3) Then
> Form6.Show
> Unload Me
> Else
> MsgBox "Passwordnya Salah !"
> If peluang < 3 Then
> Text1.Text = ""
> Text1.SetFocus
> Else
> End
> End If
> End If
>
> End If
> End If
>
>
>
> Terimakasih
>
> Wayan
>
> ---------------------------------
> Do you Yahoo!?
> Next-gen email? Have it all with the all-new
Yahoo! Mail Beta.
__________________________________________________
Do You Yahoo!?
Tired of spam? Yahoo! Mail has the best spam protection around
http://mail.yahoo.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Something is new at Yahoo! Groups. Check out the enhanced email design.
http://us.click.yahoo.com/SISQkA/gOaOAA/yQLSAA/k7folB/TM
--------------------------------------------------------------------~->
Wahana Programmer Groups Links
<*> Untuk mengunjungi sponsor milis ini, klik link berikut:
http://wahanaprogrammer.net
<*> Untuk menghubungi owner milis ini, kirim email ke:
[EMAIL PROTECTED]
<*> Konsultasi pemrogramman bisa chat disini:
Yahoo! Messenger: wahanaprogrammer
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/Programmer-VB/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
