Giriş ekranı

[kan-nas]

Giriş ekranı yaptım ama Textbox1 e girilen bilgi ile A2 deki hücredeki veri aynı olmasına rağmen aynı değildir mesajı veriyor.
Yardımlarınız için.

 

[djoguzz]

Giriş ekranı yaptım ama Textbox1 e girilen bilgi ile A2 deki hücredeki veri aynı olmasına rağmen aynı değildir mesajı veriyor.
Yardımlarınız için.

Merhabalar ekteki dosyada login ekranı düzeltilmiştir. 3 kez hatalı giriş yapılırsa program kapanacaktır.

 

[mancubus]

sn djoguzz'un verdiği örnekte olduğu gibi kullanıcı adı ve parola uygulamaları alt forumunda (http://www.excel.web.tr/f129/) daha iyi örnekler mevcut.

kendi örneğinizi kullanmak isterseniz aşağıdaki gibi bir düzeltme gerekebilir.

Private Sub CommandButton1_Click()

Sheets("şifre").Select

Label3.Caption = " "
Label3.ForeColor = vbRed

If TextBox1.Value = "" Or TextBox2.Value = "" Then
    Label3.Caption = " KULLANICI ADI/ŞİFRE BOŞ GEÇİLEMEZ."
    Exit Sub
End If

Columns("A").Find(What:=TextBox1.Value, After:=Cells(1, 1), LookIn:=xlFormulas, LookAt _
    :=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase _
    :=False, SearchFormat:=False).Activate

If CStr(TextBox1.Value) = ActiveCell.Value Then
    MsgBox "GİRİŞ TAMAMDIR"
Else
    MsgBox "DEĞİLDİR"
End If

End Sub

 

[kan-nas]

Üstad teşekürler.

 

[kan-nas]

CStr nedir.Üstad ne işe yarar.

 

[mancubus]

rica ederim.

Cstr (VBA) fonksiyonu bir değeri metine dönüştürür.