Makro ile Şifreli Access veri tabanına bağlanmak

[kral8596]

Excel üzerinden Access veri tabanına kayıt ekleme yapabiliyorum fakat veri tabanına şifre koymak durumunda kaldık.
Şİfreli veri tabanına nasıl bir kod eklemem lazım.
Kullandığım kod bu şekilde;

Sub Access_Veri_Kayit_Et()
Dim DataBaglan As DAO.Database
Dim DataKayitlari As DAO.Recordset
Set DataBaglan = OpenDatabase("C:\Users\123\desktop\VERİ TABANI\personel_takip.accdb")
Set DataKayitlari = DataBaglan.OpenRecordset("cek")
DataKayitlari.AddNew
DataKayitlari.Fields("tc") = Range("C1")
DataKayitlari.Fields("isim") = Range("C2")
DataKayitlari.Fields("telefon") = Range("C3")
DataKayitlari.Update
End Sub

Yardımlarınız için şimdiden teşekkür ederim.

 

[Haluk]

    Set DataBaglan = OpenDatabase("C:\Users\123\desktop\VERI TABANI\personel_takip.accdb", False, False, ";pwd=123456")

.

 

[kral8596]

    Set DataBaglan = OpenDatabase("C:\Users\123\desktop\VERI TABANI\personel_takip.accdb", False, False, ";pwd=123456")

.

Hocam yardımınız için teşekkür ederim fakat geçersiz parola hatası vermektedir.

 

[Haluk]

123456 yerine kendi parolanızı girdiniz mi?

.

 

[kral8596]

Doğrudur hocam girdim. Güncel kod bu şekilde

Sub Access_Veri_Kayit_Et()
Dim DataBaglan As DAO.Database
Dim DataKayitlari As DAO.Recordset

yol = ThisWorkbook.Path
Set DataBaglan = OpenDatabase(yol & "\personel.accdb", False, False, ";pwd=123")
Set DataKayitlari = DataBaglan.OpenRecordset("Tablo1")

DataKayitlari.AddNew
DataKayitlari.Fields("tc") = Range("C1")
DataKayitlari.Fields("isim") = Range("C2")
DataKayitlari.Fields("tel") = Range("C3")

DataKayitlari.Update

End Sub

 

[Haluk]

Aşağoıdaki linke bakın, orada da benzer bir konu işlenmişti...

Şifreli Access veritabanına bağlantı | Excel WEB TR Forum - Excel, Excel Makro, Excel Fonksiyon, Excel Formül, Excel soru ve çözümleri

.

 

[kral8596]

Gönderdiğiniz link işimi gördü hocam
Dosya>Seçenekler>İstemci Ayarı>Şifreleme Yöntemi:Eski Şifrelemeyi Kullan seçeneğini işaretledikten sonra
Şifreyi kaldırıp tekrar şifre koydum sorunsuz çalıştı.
Teşekkür ederim.