[Yardım]  Login userformu için progressbar yardımı rica ediyorum.

İlerleme çubuğu

Login userformu için progressbar yardımı rica ediyorum.

İleti#1)  Süleyman SAVAŞ » 23 Arl 2018 14:14

Merhaba arkadaşlar.
Ekli çalışmada bulunan login userformunda; veritabanına bağlantı sırasında "Bağlanıyor..." gibi bir görsellikte progressbar ilave edilmesini rrica ediyorum. Bağlantı gerçekleşirse; "Veritabanı ile Bağlantı Kuruldu", gerçekleşmezse "Bağlantı Hatası" gibi hata mesajları ile çalışmayı süslemek istiyorum.
Forumdaki bir çok örneği inceledim, çoğulukla yüzdelik görselleri üzerine çalışılmış örnekler mevcut.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 12:05
Konum: Bursa
Meslek: 657
Yaş: 47
İleti: 445
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: Login userformu için progressbar yardımı rica ediyoru

İleti#2)  Süleyman SAVAŞ » 31 Arl 2018 15:58

Forumdaki örneklerden birşeyler yapmaya çalıştım.
Userform1'e bir adet progressbar ve bir adette label ekledim.

Bu haliyle çalışıyor ancak şurasını düzeltemedim.
Kod: Tümünü seç
MsgBox ("Veritabanına Bağlanıldı.."), vbInformation

uyarısına otomatik olarak tamam deyip devamındaki formun çalışmasını istiyorum.
Teşekkür ederim.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
ProgressBar1.Visible = True
Label4.Visible = True

Select Case TextBox1.Text
Case "KURUM MENSUBU"
If TextBox2.Text = Empty Then MsgBox "Lütfen Kimlik Numaranızı Giriniz.", 64, "EVN": Exit Sub

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")

Call FTP_BAGLANTI
personel = Me.TextBox2.Value
rs.Open "select * from [REHBER] WHERE [REHBER].TC_KIMLIK='" & TextBox2.Text & "';", baglan, 1, 1
       
'If con.State = 1 Then
If rs.RecordCount >= 1 Then
For X = 1 To 1000
    ProgressBar1.Value = (X / 1000) * 100
    Application.CalculateFull
    Label4.Caption = Format(ProgressBar1.Value, "% 00")
    DoEvents
    Next X
MsgBox ("Veritabanına Bağlanıldı.."), vbInformation

ElseIf Not rs.RecordCount >= 1 Then
For X = 1 To 1000
    ProgressBar1.Value = (X / 1000) * 100
    Application.CalculateFull
    Label4.Caption = Format(ProgressBar1.Value, "% 00")
    DoEvents
    Next X
MsgBox "Kayıtlı değilsiniz", vbInformation, "Süleyman Savaş"
temizle
TextBox1.SetFocus
Exit Sub
End If


Sheets("anasayfa").Range("AY1") = TextBox2  't.c kimlik
Sheets("anasayfa").Range("AY2") = "3"  'yetki
         
rs.Close

UserForm8.Show
End Select
         
Select Case TextBox1.Text
Case Is <> "KURUM MENSUBU"
If TextBox1.Text = Empty Then MsgBox "Lütfen kullanıcı adını giriniz.", 64, "EVN": Exit Sub

Set baglan = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")


Call FTP_BAGLANTI
personel = Me.TextBox2.Value
rs.Open "select * from [logindata] WHERE [logindata].kullanici='" & TextBox1.Text & "';", baglan, 1, 1

'If con.State = 1 Then
If rs.RecordCount >= 1 Then
For X = 1 To 1000
    ProgressBar1.Value = (X / 1000) * 100
    Application.CalculateFull
    Label4.Caption = Format(ProgressBar1.Value, "% 00")
    DoEvents
    Next X
    MsgBox ("Veritabanına Bağlanıldı.."), vbInformation

ElseIf Not rs.RecordCount >= 1 Then
For X = 1 To 1000
    ProgressBar1.Value = (X / 1000) * 100
    Application.CalculateFull
    Label4.Caption = Format(ProgressBar1.Value, "% 00")
    DoEvents
    Next X
MsgBox "Kayıtlı değilsiniz", vbInformation, "Süleyman Savaş"
temizle
TextBox1.SetFocus
DoEvents
Exit Sub
End If

If Me.TextBox2.Text = rs("sifre") Then

Sheets("anasayfa").Range("AY1") = TextBox1
Sheets("anasayfa").Range("AY2") = rs("yetki")
Else
MsgBox "Kullanıcı Adı veya Şifre Hatalı...    ", vbCritical, "Hata!"
Exit Sub
End If

rs.Close

If Sheets("anasayfa").Range("AY2") = "1" Then
Me.Hide
UserForm2.Show
End If

If Sheets("anasayfa").Range("AY2") = "2" Then
Me.Hide
UserForm2.Show
End If
If Sheets("anasayfa").Range("AY2") = "3" Then
Me.Hide
UserForm8.Show

End If

End Select
End Sub
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 12:05
Konum: Bursa
Meslek: 657
Yaş: 47
İleti: 445
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: Login userformu için progressbar yardımı rica ediyoru

İleti#3)  Süleyman SAVAŞ » 02 Oca 2019 09:40

Merhaba arkadaşlar.
Forumdaki örnek çalışmalar ve değerli arkadaşların yardımlarıyla bir program tasarladım. Şimdilik yeterli seviyeye geldi. Biraz da görsellik katmak istiyorum.
Ekli dosyada Access veritabanına bağlantı için kullandığım bir arayüz bulunmakta.
Program çalıştırılınca arayüzde bulunan progressbarda; "Bağlanıyor.."
Resim
Kullanıcı Doğru kullanıcı adı-şifre ile bağlantı gerçekleşirse; "Bağlandı.."
Resim
Yanlış kullanıcı adı-şifre veya bağlantı hatasında; "Hata.."
Resim

verecek şekilde revize edebilirmiyiz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 12:05
Konum: Bursa
Meslek: 657
Yaş: 47
İleti: 445
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik


Forum ProgressBar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe