#3
Private Sub CommandButton1_Click()
If TextBox2.Value = "Süleyman" Or TextBox2.Value = "1234" Then
MsgBox "Programa girişiniz onaylanmıştır.", vbInformation
UserForm1.Show
Unload Me
Else
Unload UserForm2
MsgBox "Üzgünüm girdiğiniz parola hatalı.", vbCritical, "HATA"
Exit Sub
End If
End Sub| Bu Konudaki Yorumlar |
|
şifreli giriş yapmak istiyorum ama yapamadım - Yazar: DUAYEN - 24/09/2010, 23:37
Cvp: şifreli giriş yapmak istiyorum ama yapamadım - Yazar: ercansahin - 25/09/2010, 00:03
Cvp: şifreli giriş yapmak istiyorum ama yapamadım - Yazar: Olcay - 25/09/2010, 00:34
Cvp: şifreli giriş yapmak istiyorum ama yapamadım - Yazar: benremix - 25/09/2010, 06:44
Cvp: şifreli giriş yapmak istiyorum ama yapamadım - Yazar: DUAYEN - 27/09/2010, 00:58
Cvp: şifreli giriş yapmak istiyorum ama yapamadım - Yazar: ogulcan92 - 27/09/2010, 09:58
Cvp: şifreli giriş yapmak istiyorum ama yapamadım - Yazar: DUAYEN - 27/09/2010, 11:30
|
