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.
Şİ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.