evo jednog jednostavnijeg primera:
Ovaj kod radi na dugme "OK" u log in formi. iBrojiPokusaje je Public Integer koja prilikom Form_Load mora da bude ponistena, tj iBrojiPokusaje = 0
***code start***
Private Sub cmdOK_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
Dim UserID as String
Dim Password as String
If iBrojiPokusaje>3 then
Msgbox "Unijeli ste pogresnu sifru 3 puta. Program se zatvara!",vbExclamation,"Netacan unos 3 puta"
Docmd.Quit
End IF
UserID = Me.txtUsername.Value 'vrijednost koju unosi korisnik
Password = Me.txtPassword.Value 'vrijednost koju unosi korisnik
strSQL = " SELECT * FROM tblUsers " & _
" WHERE tblUsers.Username = '" & UserID & "'" & _
" AND tblUsers.Password = '" & Password & "'"
Set db = CurrentDb()
Set rst = db.OpenRecordset(strSQL, dbOpenSnapshot)
If rst.RecordCount = 1 Then 'znaci ako postoji trazeni korisnik
docmd.close acform, Me.Name 'zatvori ovu formu
'ovdje otvaras formu po zelji
Else
iBrojiPokusaje = iBrojiPokusaje+1 'dodaj vrijednost 1 za svaki pogresan pokusaj
MsgBox "Korisnicko ime ili sifra su netacno uneseni!",vbCritical,"Pogresan unos"
Me.Visible = True
exit sub
End If
End Sub
***code end***
Nadam se da je sad malo jasnije
----There is no place like 127.0.0.1-----