(22/08/2021, 23:26)berduş yazdı: bağlantı için referanslardan  "Microsoft microsoft ActiveX Data Object xx.x Library" eklenirse aşağıdaki kod da kullanılabilir

 Sub CommandButton1_Click()

' Vba Tools sekmesindeki "Referanslar bölümüne tıklayın"

' "Microsoft microsoft ActiveX Data Object xx.x Library" alanını seçmeniz gereklidir.



'Excel Excel Bağla Referanslı _________________________________________________



Dim Sql As String

Dim ADO_RS As ADODB.Recordset

Dim ADO_CN As ADODB.Connection



SQL = "SELECT * FROM [ANA SAYFA] "



Set ADO_RS = New ADODB.Recordset

Set ADO_CN = New ADODB.Connection



ADO_CN.ConnectionString = "provider=Microsoft.ACE.OLEDB.12.0;" & _

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

    "Jet OLEDBatabase Password= 1234"

    

ADO_CN.Open

ADO_RS.Open SQL, ADO_CN, 3, 1

'



If ADO_RS.RecordCount < 1 Then 'Nomatch özelliktir. Bu özellik kayıt bulduysa False gönderir. kayıt bulamadıysa True gönderir.

MsgBox "Eğitim ID numarasını kontrol ediniz, Eğitim bulunamadı! ", vbCritical, "Hata"



Else

Range("A2").CopyFromRecordset ADO_RS

sonstr = Cells(Rows.Count, "C").End(xlUp).Row





For x = 2 To sonstr

    If InStr(1, Range("c" & x), "<font color=red>") > 0 Then Range("c" & x).Font.Color = vbRed

    Range("c" & x) = PlainText(Range("c" & x))

Next x





End If

ADO_RS.Close

ADO_CN.Close

Set ADO_RS = Nothing

Set ADO_CN = Nothing

End Sub

(22/08/2021, 23:16)mert_0671 yazdı: Veri Kaydetme ve Veri Güncelleme kodlarında da eklediğiniz kısmı eklersem kodlar çalışırmı acaba

bu kısmı anlamadım?

Yani yazmış olduğunuz parola kısmını Access veri tabanına kayıt eklemekte ve güncellemede kullandığım makroların ilgili kısmına eklersem hata verirmi