Skip to main content

AccessTr.neT


Vba Giriş Kısmında Kullanıcı Adı Ve Şifre Girişinde Hata Varsa Uyarı Alma

Vba Giriş Kısmında Kullanıcı Adı Ve Şifre Girişinde Hata Varsa Uyarı Alma

Çözüldü #1
İyi Çalışmalar Vba programında girişte kullanıcı adı ve şifre yanlış girildiğinde MsgBox ile uyarı almak istiyorum kodların yazıldığı yere atıyor buda problem oluşturuyor. Yardımcı Olabilirmisiniz.



Visual Basic Code
Private Sub Image1_click()

user = Me.TextBox1
pass = Me.TextBox2

If user = "admin" Then
Application.Visible = True
Me.Hide
Exit Sub
End If

Call connection_open

sql1 = "select [ŞİFRE],[AD SOYAD],[SİCİL NO] from personel where [ID]='" & user & "'"
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic
If Not rs.EOF And Not rs.BOF Then
      
      
adsoyad = rs.Fields(1) & "-Sicil No:" & rs.Fields(2)
anaformm.Label9.Caption = adsoyad
      If rs.Fields(0) = pass Then
      MsgBox "Giriş Başarılı"
      Me.Hide
      rs.Close
      conn.Close
      yükleniyor.Show
      Else
      MsgBox "Giriş başarısız. Kullanıcı Adınızı veya Parolanızı Kontrol Edin."
      End If
      
End If

End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox1.Text = vbNullString

End Sub





Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox2.Text = vbNullString
End Sub



Private Sub UserForm_Initialize()
Application.Visible = False
End Sub
.rar Desktop.rar (Dosya Boyutu: 4,68 MB | İndirme Sayısı: 1)
Cevapla
#2
Visual Basic Code
Private Sub Image1_click()

user = Me.TextBox1
pass = Me.TextBox2

If user = "admin" Then
Application.Visible = True
Me.Hide
Exit Sub
End If

Call connection_open

sql1 = "select [ŞİFRE],[AD SOYAD],[SİCİL NO] from personel where [ID]='" & user & "'"
rs.Open sql1, conn, adOpenKeyset, adLockPessimistic
If Not rs.EOF And Not rs.BOF Then
    
    
adsoyad = rs.Fields(1) & "-Sicil No:" & rs.Fields(2)
anaformm.Label9.Caption = adsoyad
      If rs.Fields(0) = pass Then
      MsgBox "Giriş Başarılı"
      Me.Hide
      rs.Close
      conn.Close
      yükleniyor.Show
      Else
      
      End If
    
End If
MsgBox "Giriş başarısız. Kullanıcı Adınızı veya Parolanızı Kontrol Edin."
End Sub

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox1.Text = vbNullString

End Sub





Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
Me.TextBox2.Text = vbNullString
End Sub



Private Sub UserForm_Initialize()
Application.Visible = False
End Sub


Sorun çözüldü çalışan kod yukarıda
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da