Terimakasih Mas Indra,.....
Bantuan Command yang mas Indra sampaikan sudah saya coba dan hasilnya memuaskan, hanya saja ada masalah dikit...
setelah saya coba pada Login name dengan nama login yang berbeda pesan bisa dimunculkan "Nama User Tidak Dikenal" namun pada Login Password saya coba menggunakan Password yang berbeda, pesan "Password Tidak Dikenal" bisa juga dimunculkan pada kotak Pesan. yang jadi masalah Bila User Name yang saya input "wayan" tentunya akan masuk pada kotak Password dengan menekan tombol Enter. setelah menekan Enter malah Pesan yang ditampilkan "Password Tidak Dikenal" padahal saya belum memasukan Passwornya. sekarang bagaimana caranya agar bila si User memasukan Nama User Namenya Pesan "Password Tidak dikenal" tidak usah dimunculkan?
Thank's...
Wayan
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" <they_me3_use@yahoo.com >
To: <Programmer-VB@yahoogroups. >com
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
Sneak preview the all-new Yahoo.com. It's not radically different. Just radically better. __._,_.___
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
SPONSORED LINKS
| Programmer | Indonesia | Basic programming language |
| Computer programming languages | Programming languages | Java programming language |
YAHOO! GROUPS LINKS
- Visit your group "Programmer-VB" on the web.
- To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
- Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
