Arkadaşlar Merhaba;
Ekte üzerinde çalıştığım bir proje var..
Bünyedeki bir iki kayıt işinin uygulamayala ytapılmasını istedim..
Formlarda, Raporlarda, veya diğer fonksiyonlarda sıkıntı yaşamıyorum.Fakat;
access acıldıgında direk olarak bir kullanıcı ve şifre sorgulama ekranı cıksın ve veritabanı görünmesin sadece ilgili formlar üzerindne işlem yapılsın istiyorum..
Ekteki programda kullandıgım modüle fonksiyon tanımlama yapısını daha önceden de kullandım onlarda istediğim fonksiyonları yerine getiriyordu fakat bundan neden oldu anlamadım..

Yaşadığım sorun: Sifre formunun çalıştırdıgımda herhangi bir hata vermiyor fakat formun ekran görüntüsünüde alamıyorum...

Rica etsem fikri olan arkadaşlar bakabilir mi?
Şimdiden teşekkür ediyorum

Pencere gizleme hakkında Sn. onur_can 'ın
örneğini inceleyin.

Ayrıca Sn. Taruz'un Gelismis Kullanici ve Grup Yetkilendirme adlı konusunu inceleyebilirsiniz

Öncelikle dosya access seçenekleri -geçerli veri tabanı- form görüntüle- sekmesini "şifre" olarak düzeltin.Sonra şifre formunuzun açıldığı olayındaki fSetAccessWindow (SW_HIDE) kodu yerine Call fSetAccessWindow(2) kodunu kullanın.

Arkadaşlar Merhaba;
Sayın dazi önerilerini uyguladım...Mevcut sorunları halletti.?

Fakat Şifre Doğrulama konusunda bir sıkıntı var..Sıkıntı sanırım dlookup olayından kaynaklanıyor.Fakat hata bulamadım...Fikri olanlar bakabilirse sevinirim..

Private Sub Command9_Click()
If IsNull(Me.Kullanıcı) Or Me.Kullanıcı = "" Then
MsgBox "Lütfen Kullanıcı Adı Giriniz.", vbOKOnly + vbCritical, "Designed by Mustafa"
Me.Kullanıcı.SetFocus
Exit Sub
End If

If Me.Kullanıcı.Value = DLookup("Kullanıcı", "TblSifre") And Me.Text18.Value = DLookup("Sifre", "TblSifre") Then

Form.Visible = False
DoCmd.OpenForm "AnaForm"

Else
MsgBox "Hatalı Şifre! Lütfen Yeniden Deneyiniz", vbOKOnly + vbCritical, "BİLGİ"
Me.Text18.SetFocus

End If

intlogonattempts = intlogonattempts + 1
If intlogonattempts > 3 Then
MsgBox "Sisteme giriş için uygun kod ve şifre girilmeli.", vbCritical, "BİLGİ"
Application.Quit

End If

End Sub