AccessTr.neT - Pc Açılış Kullanıcı İle Veritabanı Kull Kontrolu

merhaba arkadaşlar.
pc nin açılış kullanıcı adı ile veritabanında user tablosunda kayıtlı olan kullanıcı adını kontrol ettikten sonra
formun açılmasını istiyorum. böyle bir örnek uygulama yapan varsa yardımcı olan herkese teşekkürler.

Dim kullanıcı As String
kullanıcı = Environ("username")
if kullanıcı = "user1" or kullanıcı ="user2" then
Cancel = False
Else
MsgBox "Yetkisiz kullanıcı, ", vbOKOnly + vbCritical, "Uyarı"
Cancel = True
DoCmd.Close acForm, Me.Name
Endif
End Sub

(11/04/2017, 15:14)burhanb yazdı: [ -> ]merhaba arkadaşlar.
pc nin açılış kullanıcı adı ile veritabanında user tablosunda kayıtlı olan kullanıcı adını kontrol ettikten sonra
formun açılmasını istiyorum. böyle bir örnek uygulama yapan varsa yardımcı olan herkese teşekkürler.

Dim kullanıcı As String
kullanıcı = Environ("username")
if kullanıcı = "user1" or kullanıcı ="user2" then
Cancel = False
Else
MsgBox "Yetkisiz kullanıcı, ", vbOKOnly + vbCritical, "Uyarı"
Cancel = True
DoCmd.Close acForm, Me.Name
Endif
End Sub

slm.
yukarıda şekilde kullanılabiliyor.
ama yeni bir kullanıcı eklemek gerektiğinde kod alanına girilmesini istemediğim için
yeni kullanıcı adı. database tarafında tanımlanmalı.

sayın burhanb,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT
mevcut tabloya kendi pc kullanıcı adınızı yazınız.

bilginize...iyi çalışmalar,saygılar.

(11/04/2017, 17:57)atoz112 yazdı: [ -> ]sayın burhanb,

EK'te;
bahsettiğiniz talebinize yönelik olarak hazırlanmış örnek uygulama mevcuttur.inceleyebilirsiniz.

NOT
mevcut tabloya kendi pc kullanıcı adınızı yazınız.

bilginize...iyi çalışmalar,saygılar.

Teşekkürler.
istediğim buydu.

dlookup kullanımını bilmiyorum. biraz çalışayım.