Hassas bilgiler içeren veritabanları için bir oturum açma formu şarttır. Veritabanınızı geçersiz erişimden korumak için kendi oturum açma formunuzu oluşturabilmeniz için aşağıdaki adımları izleyin.
Hemen İndir
Bu özelliği mümkün olan en kısa sürede kullanmaya başlamak istiyorsanız, şunları yapabilirsiniz:
VBA Kodları ile Örnek Veritabanını Şimdi İndirin
Aksi takdirde, DIY yapmak istiyorsanız aşağıdaki içeriği okuyabilirsiniz.
Access'te Oturum Açma Formu Oluşturma Adımları
1. Bir oturum açma tablosu oluşturun
Yapmamız gereken ilk şey, tüm giriş bilgilerini saklayacak bir tablo oluşturmak.
- Yeni bir tablo oluşturun ve şu şekilde adlandırın: tbl_login.
- Tabloyu tasarım görünümünde açın.
- Karşılık gelen veri türleriyle birlikte aşağıdaki alanları ekleyin:
| Alan adı | Veri tipi |
| Kullanıcı kimliği | Otomatik numara |
| İsim | Kısa metin |
| Soyadı | Kısa metin |
| KullanıcıAdı | Kısa metin |
| Şifre | Kısa metin |
- Parolanın giriş maskesini, bir dizi yıldız (*) olarak görüntülenecek şekilde düzenleyin.
- Parola alanını seçin.
- Genel sekmesine gidin > Giriş Maskesi > …
- Giriş Maskesi Sihirbazı açıldığında, Parola'yı seçin.
- Son'a tıklayın.
- Tabloyu Veri Sayfası görünümünde açın ve ilk kaydı girin (oturum açma bilgileriniz).
- Tabloyu kapatın ve yapılan değişiklikleri kaydedin.
2. Oturum açma formunu oluşturun
2 metin kutusu ve 2 komut düğmesiyle (aşağıda gösterildiği gibi) boş bir form oluşturun. Komut düğmesi sihirbazını atlayın.
Kodumuzda bu form kontrollerine daha sonra değineceğiz, bu yüzden kolayca tanımlanabilmeleri için onları yeniden adlandırmak en iyisi olacaktır:
- txt_kullanıcı adı
- txt_şifre
- cmd_login
- cmd_cancel
Ardından, parola metin kutusunun giriş maskesini, bir dizi yıldız (*) olarak da görüntülenecek şekilde değiştirin.
- Tasarım görünümündeyken parola metin kutusunu seçin.
- Özellik Sayfasını açın (ALT + Enter).
- Veri sekmesi > Giriş Maskesi'ne gidin.
- Parola'yı seçin ve Son'a tıklayın.
Şimdi, estetik amaçlarla ve en önemlisi, kullanıcıların doğru giriş bilgilerini girmeden bu formu atlayamamalarını sağlamak için formun bazı özelliklerini değiştireceğiz.
- Tasarım görünümündeyken formu seçin (aşağıda gösterildiği gibi).
- Özellik Sayfasını (ALT + Enter) açın ve aşağıdaki özellikleri güncelleyin:
- Altında Format çıkıntı
- Başlık: Giriş
- Kayıt Seçiciler: Hayır
- Gezinme Düğmeleri: Hayır
- Kaydırma Çubukları: Hiçbiri
- Kenarlık Stili: İletişim Kutusu
- Kapat Düğmesi: Hayır
- Altında Diğer çıkıntı
- Açılır Pencere: Evet
- Kip: Evet
- Kısayol Menüsü: Hayır
- formu farklı kaydet frm_login.
3. Kodu ekleyin
Oturum Aç düğmesine bir Tıklandığında etkinliği ekleyin.
- Tasarım görünümündeyken Oturum Aç düğmesini seçin.
- Özellik Sayfası > Olay Sekmesi > Tıklandığında > … seçeneğine gidin.
- Seç Kod Oluşturucu Oluşturucu Seç menüsünden Tamam'a tıklayın.
- Bu, VBA Editörünü açacaktır.
- Aşağıdaki kodu kopyalayın.
Private Sub cmd_login_Click()
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim strSQL As String
If Trim(Me.txt_username.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Username should not be left blank.", buttons:=vbInformation, title:="Username Required"
Me.txt_username.SetFocus
Exit Sub
End If
If Trim(Me.txt_password.Value & vbNullString) = vbNullString Then
MsgBox prompt:="Password should not be left blank.", buttons:=vbInformation, title:="Password Required"
Me.txt_password.SetFocus
Exit Sub
End If
'query to check if login details are correct
strSQL = "SELECT FirstName FROM tbl_login WHERE Username = """ & Me.txt_username.Value & """ AND Password = """ & Me.txt_password.Value & """"
Set db = CurrentDb
Set rst = db.OpenRecordset(strSQL)
If rst.EOF Then
MsgBox prompt:="Incorrect username/password. Try again.", buttons:=vbCritical, title:="Login Error"
Me.txt_username.SetFocus
Else
MsgBox prompt:="Hello, " & rst.Fields(0).Value & ".", buttons:=vbOKOnly, title:="Login Successful"
DoCmd.Close acForm, "frm_login", acSaveYes
End If
Set db = Nothing
Set rst = Nothing
End Sub
Bu kod:
- Kullanıcı adı ve şifre alanlarının boş bırakılıp bırakılmadığını kontrol edin. Eğer öyleyse, bir bilgi istemi görünecektir.
- Oturum açma ayrıntılarının doğru olup olmadığını oturum açma tablosundaki (tbl_login) değerlerle karşılaştırarak kontrol edin.
- Oturum açma ayrıntıları doğrulandıktan sonra, kullanıcıyı karşılayan bir bilgi istemi görünecektir.
Bir sonraki adım, İptal düğmesinin kodunu eklemektir, böylece tıklandığında veritabanı kapanır.
- İptal düğmesine bir Tıklandığında olayı ekleyin (Oturum Aç düğmesiyle aynı prosedür).
- Aşağıdaki kodu kopyalayın.
Private Sub cmd_cancel_Click() DoCmd.Quit acQuitSaveAll End Sub
4. Oturum Açma Formunu Görüntüleme Formu olarak ayarlayın
Son olarak, Kullanıcıların veritabanını açtıklarında göreceği varsayılan form olarak Oturum Açma Formunu ayarlayın.
- Dosya > Seçenekler > Geçerli Veritabanı'na gidin.
- Görüntüleme Formunu frm_login olarak ayarlayın.
- Tamam 'ı tıklatın.
Nasıl çalıştığını görmek için veritabanını kapatıp yeniden açmanız gerekecek.
Erişim Veritabanınızı Kurtarın
Tebrikler! Artık değerli veritabanınızı geçersiz erişimden nasıl koruyacağınızı biliyorsunuz. Şimdi size fazladan bir ipucu vereceğim. Talihsiz bir nedenle veritabanınız bozulduysa, PANİK YAPMAYIN. DataNumen Veri kurtarma teknolojilerinde uzman olan Inc. bozuk Erişim veri tabanı. Veritabanınız yine de kurtarılabilir.
Yazar Tanıtımı:
Jayme Stack, veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql kurtarma ve excel kurtarma yazılımı ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com