(22/08/2021, 23:32)berduş yazdı: bence vermemeli ama deneyin, sorun çıkarsa çözmeye çalışırız.

Tamamdır berduş hocam sorun olursa buradan yardım isterim Çok teşekkürler İyi geceler

rica ederim
iyi çalışmalar

(22/08/2021, 23:32)berduş yazdı: bence vermemeli ama deneyin, sorun çıkarsa çözmeye çalışırız.

Berduş hocam merhaba, şifreli Access veri tabanına kaydet kısmını yaptım ancak Güncelle makrosuna bir türlü entegre edemedim yazmış olduğunuz eklentiyi. Yardımcı olursanız sevinirim

Private Sub CommandButton2_Click()

  Dim con As Object, rs As Object, sorgu$



    Set con = CreateObject("adodb.connection")

    Set rs = CreateObject("adodb.recordset")

   

    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\ANASAYFA.accdb"

    sorgu = "select * from [ANASAYFA] Where [ÇALIŞMA DURUMU] = 'Etkin' and [TC KİMLİK NO] = " & TextBox2.Value

    rs.Open sorgu, con, 1, 3

    If Not rs.EOF Then

        rs(0).Value = Me.TextBox1.Value

        rs(2).Value = Me.TextBox3.Value

        rs(3).Value = Me.TextBox4.Value

        rs(4).Value = Me.TextBox5.Value

        'rs(5).Value = Me.TextBox6.Value

        rs.Update

        MsgBox "Kayyt De?i?tirildi.", vbOKOnly, "Bilgi"

     Else

        MsgBox "Kayyt Değişmedi.", vbCritical, "Hata"

    End If

    rs.Close: con.Close

    Set rs = Nothing: Set con = Nothing

End Sub

(23/08/2021, 23:37)mert_0671 yazdı: Güncelle makrosuna bir türlü entegre edemedim

tam olarak ne hata verdi?

---

dosyanızın son halini entegre edilemeyen halini ekler misiniz?

---

sadece connection kısmı değişiyordu o kadar

con.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _

    "Data Source=" & ThisWorkbook.Path & "\ANA SAYFA.accdb;" & _

    "Jet OLEDBatabase Password= 1234"

(23/08/2021, 23:40)berduş yazdı:

(23/08/2021, 23:37)mert_0671 yazdı: Güncelle makrosuna bir türlü entegre edemedim

tam olarak ne hata verdi?

---

dosyanızın son halini entegre edilemeyen halini ekler misiniz?

---

sadece connection kısmı değişiyordu o kadar

con.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _

    "Data Source=" & ThisWorkbook.Path & "\ANA SAYFA.accdb;" & _

    "Jet OLEDBatabase Password= 1234"

Hata veren hali ile ektedir

bir de zaten çalışmanıza ActiveX Data Object xx.x Library eklenmişti, CreateObject("adodb.connection") yapısına gerek yoktu kullandığım şablonu kullanmanız daha uygun olurdu