+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Access Update Komutu Hakkında (/konu-access-update-komutu-hakkinda.html)
Cvp: Acsess Update Komutu Hakkında - berduş - 24/02/2020
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
Cvp: Acsess Update Komutu Hakkında - kanakan52 - 24/02/2020
Hocam bu kadar hızlı dönüş yapacağınızı düşünemedim, Allah razı olsun..
Öncelikle şunu söylim hiç acsess tecrübem yok, forumlardan örnekleri araştırıp kendi çalışmama uyarlamayı böylece acsess konusunda da bilgi sahibi olmayı hedefliyorum.
Kod konusuna gelince, aşağıdaki hatayı aldım..
Cvp: Acsess Update Komutu Hakkında - kanakan52 - 24/02/2020
Sanırım burada resim ekleyemiyoruz.
baglan.Execute ile başlayan satırda eksik işleç hatası verdi.
Cvp: Acsess Update Komutu Hakkında - berduş - 24/02/2020
Yorum yaz kısmından girince aşağıda resim ekleme butonu var
Cvp: Acsess Update Komutu Hakkında - kanakan52 - 24/02/2020
Hata ekranım bu hocam..
Cvp: Acsess Update Komutu Hakkında - berduş - 24/02/2020
ofisi yeniden yükledim ama yine çalışmadı maalesef o nedenle düzenlemem sadece teorik, kodun ilgili kısmını aşağıdaki gibi dener misiniz?
dilerim çalışır
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 & "',HESAPGRUBU='" & 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