(10/01/2020, 10:55)ozanakkaya yazdı: (09/01/2020, 23:26)notrino yazdı: İçinde tablo bile olmayan boş bir veritabanı dosyası oluşturdum, şifrelemeye çalıştığımda aynı şifreleme hatasını alıyorum.Yani eski veri tabanımdaki nesneleri aktarma fırsatım bile olmadı
Veritabanının şifrelenip şifrelenmediğini kontrol ettiniz mi?
Sanırım bu hatanın nedenini buldum.
Veritabanım içindeki formları bir buton ile açarken eğer bir şifre koyduysam ve o şifreyi aşağıdaki kod dizilimi ile yaptıysam, devamında da
Access veritabanımı klasik yöntemle komple şifreliyorsam bu "blok şifreleme" hatasını alıyorum. Çünkü veritabanımı böldüğümde, butonla ve şifre ile açılan formlar, ana veritabanına bağlanamıyor ve Debug ekranı çıkıyor. Bu Debug ekranı da password'ün olduğu ekrandaki form açma hatasını işaret ediyor. İşin kötüsü, VB içinde kullandığım şifre ile
Access VT yi şifrelendirirken kullandığım şifre aynı bile olsa Debug ekranı karşıma çıkıyor ve form açılmıyor.
Kod:
Private Sub Komut2_Click()
Dim Sifre, DogruSifre As Variant
Sifre = InputBox("Şifreyi Yazınız (Sadece İdare Yetkilidir!)", "Şifre?", , , , "", 0)
DogruSifre = "1234"
Select Case Len(Sifre)
Case 0
Exit Sub
Case Else
If Sifre = DogruSifre Then
DoCmd.OpenForm "Ogrenci_Listesi", acNormal
Else
MsgBox ("hatalı şifre yazdınız")
Exit Sub
End If
End Select
End Sub
#1
