kod içeriği:
Kod:
Dim OZGUR As New ADODB.Recordset
OZGUR.Open "KULLANICILAR", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
OZGUR.Find "[KullaniciAdi]='" & Me.Kullanici.Column(0) & "'"
If Me.Kullanici.Column(1) = Me.Metin2 Then
DoCmd.OpenForm "MUHASEBE"
Else
MsgBox "ŞİFRE YANLIŞ", vbCritical, "bİLGİ"
End If
OZGUR.Close: Set OZGUR = Nothing