(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ı acababu 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