Şifre Düzeyli Form Oluşturma

[modalı]

Şifre Düzeyli Form Oluşturma

Örnek olarak bir tabloyu kullanan formumuzda, form açılırken kullanıcıya şifresini soralım.

Eğer kullanıcının şifresi
“007” ise bütün haklara sahip olsun
“Düzenleyici” ise kayıt ekleme izni olmasın
“İzleyici” ise kayıt ekleme, silme ve değiştirme izni olmasın
“Misafir” ise kayıt ekleme, silme, değiştirme ve listeleme izni olmasın.

Bunun için formun Load (Açıldığında) olayına şu kodu yazalım:

Private Sub Form_Load()
 
Dim şifre 
 
Şifre = InputBox(“Şifreniz”)
 
Select Case şifre
 
Case “Düzenleyici”
            AllowAdditions = False
Case “İzleyici”
            AllowAdditions = False
            AllowEdits = False
            AllowDeletions = False
Case “Misafir”
            AllowAdditions = False
            AllowEdits = False
            AllowDeletions = False
            AllowFilters = False
Case “007”
            ‘Herhangi bir koda gerek yok. Zaten default olarak  bütün özellikler Evet (True) dir.
Case Else ‘Şifre bunlardan hiçbiri değilse
            MsgBox “Yetkisiz kullanıcılar bu programı kullanamaz”
            Cancele = True ‘Formun açılışını iptal et.
End Select
 
End Sub

İyi çalışmalar

 

[yeni54]

çok kısa ve kesin bir çözüm. süper.
elinize sağlık hocam.

 

[akd]

Teeşkkürler

Sayın Modalı elinize sağlık çok güzel,
Böyle güzel tepitlerinizi hep bekliyoruz,
Engin bilgilerinizden bizi mahrum etmezsiniz inşalah...
İyi geceler....

 

[hozzeybek]

elinize sağlık sayın modalı
yalnız başlangıçta hata verdi ama noktalama işaretlerini düzeltince düzeldi fakat şifreyi yanlış yazınca veya cancel deyince form yine açılıyor
"Case Else ‘Şifre bunlardan hiçbiri değilse
MsgBox “Yetkisiz kullanıcılar bu programı kullanamaz”
Cancele = True ‘Formun açılışını iptal et."
yani burada bi değişiklik mi yapmalıyım
kusura bakmayın henüz yeniyim aydınlatırsanız sevinirim.

 

[yeni54]

amacın formu açtırmamak ise ilgili yere

docmd.close

koyarsan olması lazım.

(deneyemiyorum. yanlış anlama sakın)

 

[hozzeybek]

teşekkür
tamam işte bu

 

[uzmanbey]

arkadaşlar önek dosya nerde

 

[modalı]

Örnek dosya yok. Yukarıdaki kodları form kod yazım penceresine kopyalayıp yapıştıracaksınız.

 

[uzmanbey]

Saygıdeğer Modalı

Diyelimki form yüklendiğin de başka bir formun ekleme silme ve düzeltme izinlerini vermek için nasıl bir kod yazmalıyım

 

[uzmanbey]

saygıdeğer modalı cevabını bekliyorum yorduk galiba:mrgreen

 

[icapcı]

örnek dosyo olsa gerçekten güzel olur

 

[ünal karadavut]

lütfen örnek dosya gönderirseniz bizde öğreniriz.

 

[hegu42]

ne yazarsam yazayım formu açıyor hatta misafir olarak giriş yapmama rağmen her şeyi yaptırdı bana acaba bende mi bir yanlışlık var
teşekkür ederim

 

[ruguzidliyka]

güzel kodlar

örnek olsaydı daha güzel olabilirdi. ben kodlara bakarak bu işi beceremedim.

 

[hozzeybek]

Sayın hegu42

formun tamamını okuduysanız aynı şeyleri ben de sormuştum
cevabı yukarıda var zaten

şifre "333" misafir
"007" yetkili

 

[hegu42]

teşekkür ederim

 

[ünal karadavut]

arkadaşlar bu excel de olmaz mı.

 

[golgeee]

faydalı bir bilgi paylaşan ve katkısı olan arkadaşlara teşekkür ederim ...

 

[karaayhan]

aslında yeni farkettim bunu programın tümüne yaymak mümkün olsa mükemmel olurdu valla yani bütüm form ve raporlarda tam yetkili veya kısıtlı
ama yanlış hatırlamıyorsam sayın modalı, bunu access'in kendi menüsünden yapmamızı önermişti.

aslında böylesi bir çözüm daha harika olur , çünkü diğerinde yaptığımızda bütün access programlarını etkiliyor


iyi çalışmalar.

 

[akd]

Merhaba arkadaşlar,
Bence proğram açılışına,
bu yetki şifresi şeçtirilip,
yetki şifresi regedit'e kaydettirilir
ve her formun Load (Açıldığında) sorğulama yapılır,
böylece bütün formlar regedite bağımlı çalışır.
yani tek merkezden yönetme gibi.
Boş bir zamanımda yapıp buraya ekmeye çalışacağım,
iyi çalışmalar.