Merhaba hocalarım programı açmak için ekrana gelen şifre formuna kullanıcı adını ve şifresini girip giriş butonuna tıkladığım zaman MUHASEBE formu açılıyor. Şifre formu kapanmıyor. MUHASEBE formun altında açık kalıyor. Şifre formunda Kullanıcı adı ve şifreyi girip giriş butonuna tıkladığım zaman MUHASEBE forum açıldığı zaman Şifre formunun tamamen kapanması için aşağıdaki kodlara nasıl bir ekleme yapmamız gerekir. Bu konuda yardımlarınıza ihtiyacım var. Saygılar.
Visual Basic
- Private Sub Komut4_Click()
-
- Dim Kim As String
- Dim GIRIS As New ADODB.Recordset
-
- GIRIS.Open "KULLANICILAR", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
-
- GIRIS.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
-
- GIRIS.Close: Set GIRIS = Nothing
-
- End Sub