24/02/2020, 11:53
4. mesajınızdaki kodlara bakarak söyleyeyim metinsel değerler için tek tırnak eklememişsiniz gibi geldi, doğrudan sorgu koduna eklemeyi denediniz mi ayrıca başta set rs= olmayacak bence
Birkaçı için düzenleme çalıştım
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
baglan.Execute("UPDATE carikart SET CARIADI='" & cari & "',HESAPGURUBU=" & hesgrp & ",ADRES='" & adres & "',IL=" & il & ",ILCE=" & ilce & ",TELEFON=" & tlfn & ",FAKS=" & fks & ",VERGIDAIRESI=" & vdaire & ",VERGINO=" & vno & ",TCNO=" & TcNo & ",YETKILI" & yetkili & ",MAIL=" & mail & " WHERE ID=" & sno)
Set baglan = Nothing
Birkaçı için düzenleme çalıştım
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
baglan.Execute("UPDATE carikart SET CARIADI='" & cari & "',HESAPGURUBU=" & hesgrp & ",ADRES='" & adres & "',IL=" & il & ",ILCE=" & ilce & ",TELEFON=" & tlfn & ",FAKS=" & fks & ",VERGIDAIRESI=" & vdaire & ",VERGINO=" & vno & ",TCNO=" & TcNo & ",YETKILI" & yetkili & ",MAIL=" & mail & " WHERE ID=" & sno)
Set baglan = Nothing