formu şifre ile açma

merhaba,

forumda baya bir araştırdım, istediğime benzer pek çk örnek vardı ancak hiçbiri bende çalışmadı..

genel bir A formundaki bir X butona tıklayınca açılacak olan B formunun şifre ile açılmasını istiyorum. B formunun açılış yordamına, başka bir forum sorusunda bulduğum yanıtı yazdım ancak hata veriyor (vbciritial kısmında) açılmıyor:

Private Sub Form_Open(Cancel As Integer)
Dim sifre
sifre = InputBox(vbcritial, "LÜTFEN YÖNETİCİ KODUNUZU GİRİNİZ")
If sifre <> "123" Then 'buraya belirlediğin şifreyi yazarsın
MsgBox "Yetkisiz Kullanıcılar Bu Formu Açamaz", vbApplicationModal, "ÜZGÜNÜM"
Cancel = True
End If

End Sub

yardımlarınızı bekliyorum..
şimdiden teşekkürler..

Private Sub Form_Open(Cancel As Integer)
Dim sifre
sifre = InputBox("Parola",vbcritial,"Lütfen Yönetici Kodunu Giriniz.")
If sifre <> "123" Then 'buraya belirlediğin şifreyi yazarsın
MsgBox "Yetkisiz Kullanıcılar Bu Formu Açamaz", vbApplicationModal, "ÜZGÜNÜM"
Cancel = True
End If
End Sub


bir de böyle denermisin.
gerçeği her iki durumda da aynı çalışıyor problem ne?

---

sanırım sizin formunuzun başka bir yerinde başka bir sorun vardır.
kodda hata yok.

cüney hocam doğru söylüyorsunuz.. boş bir veritabanı oluşturunca gayet güzel çalışıyor ama veritabanımdaki hiç bir formda çalışmıyor, hep aynı yerde hata veriyor..

başka bir yöntem önerebilir misiniz?

---

sorun çözüldü.

"vbcritial" kelimesini sildim, oldu
ne anlama geliyor bu bilemiyorum ama çok gerekli değilse sorun yok gibi cüneyt hocam..

bence kullandığınız veritabanınızı onarın,
vbcritial olayı şu demek; mesaj verdirdiğinizde o mesajın önem tarzını bildiriyor. yani ünlemli, veya soru işaretli, veya bilgi işaretleri v.s.
örneğin vbinformation sadece bilgi amaçlı bir mesaj verir.
yani olmasalarda olur.

cüneyt hocam teşekkürler..

veritabanını onardım, vbcritial kelimesini ekleyip yine denedim, yine aynı hata..

bende Access 2007 kurulu, sorun o olabilir mi bilemiyorum..

teşekkürler..

eğer 2007 kurulu ise yüzde 99 ondandır. her tarafı arızalı zaten.