Programın açılışına Login Koymak ?

[Lanvin]

Merhaba Arkadaşlar,

Ekteki dosyaya bir türlü açılışta login ekranı koyamadım.
Bir arkadaş bakabilir mi?

Açılışta şifre sorsun 3 kez hatalı girince kapatsın.
Her hatada uyarı diyoloğu versin ve kaç kez daha yanlış girerse kapatılacağını belirtsin.
Vazgeç (Cancel) basılırsa kapatsın.

Çok şey istemedim sanırım.

Ekran böyle bişi olması kafi..



Uploaded with ImageShack.us

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linkteki başlıkları inceleyiniz.

http://www.excel.web.tr/f129/

 

[Lanvin]

Merhaba,

Aşağıdaki linkteki başlıkları inceleyiniz.

http://www.excel.web.tr/f129/

Arkadaşım, bir çok login denedim hep hata ile karşılaştım.
Verdiğin adresteki 3 hata girişlisini denedim.
Gene takıldım.
Bak son hali ekte. DATA sayfasının içeriğini UserForm1 e almıyor.

Lütfen biri yardım etsin artık

 

[Korhan Ayhan]

Merhaba,

Formunuz "USERS" sayfası açıkken ekrana geliyor. Ve formunuzun kod bölümünde sayfa adı belirmediğiniz için aktif sayfadaki verileri forma yüklemeye çalışıyor.

Kodlarınızın içinde bu aşağıdaki satırı bulun.

Private Sub UserForm_Initialize()

Bu satırın hemen altına aşağıdaki sayfa seçme kodunu ekleyin.

Sheets("DATA").Select

Böylece form açılırken veri alacağı sayfa seçilecek ve doğru bilgiler forma yüklenecektir.

Not: Kullandığınız ListView nesnesi sanırım bozulmuş. Silip tekrar forma eklerseniz düzgün şekilde listeleme yapacaktır.

 

[Lanvin]

Merhaba,

Formunuz "USERS" sayfası açıkken ekrana geliyor. Ve formunuzun kod bölümünde sayfa adı belirmediğiniz için aktif sayfadaki verileri forma yüklemeye çalışıyor.

Kodlarınızın içinde bu aşağıdaki satırı bulun.

Private Sub UserForm_Initialize()

Bu satırın hemen altına aşağıdaki sayfa seçme kodunu ekleyin.

Sheets("DATA").Select

Böylece form açılırken veri alacağı sayfa seçilecek ve doğru bilgiler forma yüklenecektir.

Not: Kullandığınız ListView nesnesi sanırım bozulmuş. Silip tekrar forma eklerseniz düzgün şekilde listeleme yapacaktır.

Bozulma yok abi sana dediğim gibi hep böyle hatalar işte.
Sen ekleyip denesene bi gör.

 

[Korhan Ayhan]

Merhaba,

Denedim zaten. Ve bulduğum çözümü paylaştım. Dediklerimi uygulayıp sonucu gözlemleyin.

 

[Lanvin]

Yaptım ve gözlemledim.
Listede sadece 1 yazıyor.

 

[Lanvin]

Korhan Bey,

UserForm1'i incelerseniz ordaki Sheets("DATA").Select kodunun ne halde olduğunu göreceksiniz.
Sizin verdiğiniz kod "DATA" sayfasından veri alıyor iken sıkıntısız veriyi çeker ama UserForm1 de işler farklı orda Listwiev uygulaması var. Sayfadan farklı formlarda alıp farklı şekillerde listelemeler yapıyor. Bir çok döngü var. Problem çıkıyor.

Bir incelerseniz çok sevinirim. 2 saattir naptıysam olmadı kırdım kafayı

 

[Korhan Ayhan]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

 

[Lanvin]

Merhaba,

Ekteki örnek dosyayı inceleyiniz.

Girdiğiniz parola hatalıdır deyip, yarıda kalıyor. 2. UserForm açılmıyor.

Ayrıca UserForm1'in Listwiev inde bir hata vardı. VBA sayfasında liste yoktu. Düzelttim.

Ama yinede çalışmıyor.

Ektekinin üzerinden tekrar kontrol edermisiniz?

 

[Korhan Ayhan]

Merhaba,

Demek ki hatalı parola giriyorsunuz!