- Katılım
- 15 Mart 2005
- Mesajlar
- 42,769
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Selam arkadaşlar,
Aşağıdaki kodda bir yerde hata yapıyorum fakat çözemedim. Next kısmında hata veriyor. Farklı bir uygulamamı gerekir. Yardımlarınızı bekliyorum.
Option Explicit
Private Sub CommandButton1_Click()
Static HATA As Integer
Dim i As Integer, KULLANICI As Integer, PAROLA As Integer
On Error GoTo 10
If TextBox1 = "" And TextBox2 = "" Then
Exit Sub
For i = 1 To [C65536].End(xlUp).Row
KULLANICI = StrComp(Cells(i, 3).Value, TextBox1.Value, 0)
If KULLANICI = 0 Then
PAROLA = StrComp(Cells(i, 4).Value, TextBox2.Value, 0)
If PAROLA = 1 Then
Exit Sub
End If
TextBox1 = ""
TextBox2 = ""
LOGİN.Hide
MENÜ.Show
Exit Sub
10
MsgBox "Girdiğiniz kullanıcı adı veya parolası hatalıdır." _
& Chr(10) & "Lütfen girdiğiniz kullanıcı adını ve parolasını kontrol ediniz.", vbCritical, "DİKKAT !"
TextBox1 = ""
TextBox2 = ""
TextBox1.SetFocus
HATA = HATA + 1
If HATA = 3 Then ThisWorkbook.Close
Exit Sub
Next
End Sub
İyi çalışmalar dilerim. :hey:
Aşağıdaki kodda bir yerde hata yapıyorum fakat çözemedim. Next kısmında hata veriyor. Farklı bir uygulamamı gerekir. Yardımlarınızı bekliyorum.
Option Explicit
Private Sub CommandButton1_Click()
Static HATA As Integer
Dim i As Integer, KULLANICI As Integer, PAROLA As Integer
On Error GoTo 10
If TextBox1 = "" And TextBox2 = "" Then
Exit Sub
For i = 1 To [C65536].End(xlUp).Row
KULLANICI = StrComp(Cells(i, 3).Value, TextBox1.Value, 0)
If KULLANICI = 0 Then
PAROLA = StrComp(Cells(i, 4).Value, TextBox2.Value, 0)
If PAROLA = 1 Then
Exit Sub
End If
TextBox1 = ""
TextBox2 = ""
LOGİN.Hide
MENÜ.Show
Exit Sub
10
MsgBox "Girdiğiniz kullanıcı adı veya parolası hatalıdır." _
& Chr(10) & "Lütfen girdiğiniz kullanıcı adını ve parolasını kontrol ediniz.", vbCritical, "DİKKAT !"
TextBox1 = ""
TextBox2 = ""
TextBox1.SetFocus
HATA = HATA + 1
If HATA = 3 Then ThisWorkbook.Close
Exit Sub
Next
End Sub
İyi çalışmalar dilerim. :hey: