(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