Ek olarak gönderecektim ama ekleme butonu yoktu bende kodları gönderdim. Saygılar.
Private Sub Komut0_Click()
Dim a As String
Dim b As String
a = "mehcengiz"
Do Until a = b
b = InputBox("lütfen şifrenizi giriniz")
Loop
MsgBox ("şifreniz doğru")
End Sub
mehcengiz, 06-03-2010 tarihinden beri AccessTr.neT üyesidir
Son Düzenleme: 05/02/2011, 17:00, Düzenleyen: mehcengiz.