AccessTr.neT
Farklı kullanıcı giriş yetkisi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Farklı kullanıcı giriş yetkisi (/konu-farkli-kullanici-giris-yetkisi.html)

Sayfalar: 1 2


Farklı kullanıcı giriş yetkisi - DUAYEN - 11/03/2011

Programda farklı kullanıcı girişn yetkisi vermeye çalıştım yani yetki vermediğim kullanıcı kaydetmesin bilgi yazmasın yetki veriğim kullanıcıda programdahiç bir sorun yaşamasın.Ama yetki verdiğim kullanıcı kaydetme sorunu yaşıyor ve şu hatayı alıyor tanımsız kullanıcı hatası alıyor.Excel hataya giriyor ve kapanıyor birde kullanıcı şablonuda açılmıyor yardım edermisiniz.


Cvp: Farklı kullanıcı giriş yetkisi - schworse - 11/03/2011

Sn; mumya66;

Kullanıcı seviyesini hatalı yazmısınız vb kod paneline kodları yazarken Seviye0 yazarken "S" buyuk harf Excel tabloda yazarken ise seviyesinin "s" harfini küçük yazmışsınız düzelttiğinizde sorun çözülmüş olacaktır.

Alıntı:admin 111111 Seviye0
kullanıcı1 222222 seviye1
kullanıcı2 333333 seviye2
kullanıcı3 444444 seviye3

Alıntı:admin 111111 Seviye0
kullanıcı1 222222 Seviye1
kullanıcı2 333333 Seviye2
kullanıcı3 444444 Seviye3

If ComboBox1 = Empty Then MsgBox "Kullanıcı seçilmedi!", vbCritical, "Hata!": Exit Sub
If TextBox1 = Empty Then MsgBox "Şifre girilmedi!", vbCritical, "Hata!": Exit Sub
If TextBox1.Text <> ListBox1.List(ComboBox1.ListIndex, 0) Then
MsgBox "Hatalı şifre!", vbCritical, "Hata!": Exit Sub
Else
MsgBox "Seviyeniz: " & ListBox1.List(ComboBox1.ListIndex, 1)
seviye = ListBox1.List(ComboBox1.ListIndex, 1)
Call seviyeler
End If

Select Case seviye
Case "Seviye0"
MsgBox "Kısıtlama yok!", vbInformation
Case "Seviye1"
MsgBox "Kısıtlama var!", vbInformation, "Seviye 1"
Case "Seviye2"
MsgBox "Kısıtlama var!", vbInformation, "Seviye 2"
Case "Seviye3"
MsgBox "Kısıtlama var!", vbInformation, "Seviye 3"
Case ""
MsgBox "Tanımsız yetkilendirme!", vbCritical, "Program kapatılacak!"
ThisWorkbook.Close False
End Select

Kolay gelsin.


Cvp: Farklı kullanıcı giriş yetkisi - DUAYEN - 11/03/2011

Sn Power hocam şimdide açıkılışda 'ambiguos name detecdet:auto_open' hatası alıyorum ve programa bilgi yazdığımda kaydet dediğimde 'Tanımsız yetkilendirme ' hatası alıyorum ve kaydetmeden program kendiliğinden kapanıyor sn hocam


Cvp: Farklı kullanıcı giriş yetkisi - POWER - 11/03/2011

Sanırım yanlış yazdınız ne demek istediğinizi anlamadım...


Cvp: Farklı kullanıcı giriş yetkisi - DUAYEN - 11/03/2011

Nasıl hocam anlamadım özür dilerim.


Cvp: Farklı kullanıcı giriş yetkisi - POWER - 11/03/2011

Konuyla ilgim yoktu bana yazmışsınız.

Auto_open modulunu silin düzelecektir.Modul3