STBAR HATASI ALIYORUM LOGIN FORM DEGERLİ HOCALARIM

[tufan18]

Option Explicit
Public islem As String
Dim hak As Byte '0 ile 255 kadar değer

Private Sub btnGiris_Click()
If txtKullanıci.Text = Sheets("Ayarlar").Range("B1") And txtSifre.Text = Sheets("Ayarlar").Range("B2") Then
  stBar.Panels(5).Text = "Giriş Onaylandı..."
   Application.Wait Now + TimeValue("00:00:02")


   Unload frmlogin
   frmAnaForm.Show
  Exit Sub
Else
   hak = hak + 1
  stBar.Panels(4).Text = hak
   txtKullanıci = ""
   txtSifre = ""
   On Error Resume Next
   txtKullanıci.SetFocus
   If hak = 3 Then btnvazgec_Click
   End If
End Sub

Private Sub btnvazgec_Click()
Unload Me
Application.ActiveWorkbook.Save
Application.Quit
End Sub

 

[tufan18]

değerli hocalarım burda stbar hatası veriyor login form

 

[Trilenium]

Stbar dediği , statusbar adını kısaltmış.

Aşağıda göreceğin üzere toolbox üzerinde sağ tuşla ve Additional Controlsa bas ve işaretlediğim microsoft statusbar controlü ekle.
Daha sonra forma eklediğin statusbarı formuna ekle. Eklediğin form üzerinde statusbara sağ tuşla ve propertiese gelip name bölümünde Statusbar yazar onu Stbar olarak değiştir.

Bitti bu kadar

 

[tufan18]

Teşekkür ederim