Access Update Komutu Hakkında

1 2 3 4
24/02/2020, 12:39

berduş

kodu tekrar düzenledim
24/02/2020, 12:48

kanakan52


24/02/2020, 12:48

kanakan52

Hata verdi hocma, şimdi namaza gidiyorum, dönüşte uzak başlantı versem vakit ayırabilir misiniz ?
24/02/2020, 16:11

berduş

aşağıdaki kodu dener misiniz?
Not:baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb" bu koddaki  
Microsoft.ACE.OLEDB.12.0; sizde
microsoft.jet.oledb.4.0; olabilir
Dim sno As Integer
sno = TextBox20.Value
cari = ComboBox4
adres = TextBox1
il = ComboBox3
ilce = ComboBox1
tlfn = TextBox2
fks = TextBox17
vdaire = TextBox15
vno = TextBox16
TcNo = TextBox19
yetkili = TextBox14
mail = TextBox3
hesgrp = TextBox18
tür = ComboBox2

Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=Microsoft.ACE.OLEDB.12.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"

StrTcVr = IIf(Len(TextBox16) = 0, ", VERGINO=Null", ", VERGINO=" & vno) & IIf(Len(TextBox19) = 0, ",TCNO=Null", ",TCNO=" & TcNo)
SqlG = "UPDATE carikart SET CARIADI='" & cari & "',HESAPGRUBU='" & hesgrp & "',ADRES='" & adres & _
                "',IL='" & il & "',ILCE='" & ilce & "',TELEFON='" & tlfn & "',FAKS='" & fks & "',VERGIDAIRESI='" & vdaire & _
                "',YETKILI='" & yetkili & "',MAIL='" & mail & "'" & StrTcVr & " WHERE ID=" & sno

baglan.Execute  SqlG
Set baglan = Nothing
24/02/2020, 16:56

kanakan52

Hocam merhaba,

Dayanamadınız uğraştınız değil mi ? İnanın biri benden yardım isteyince bende işi gücü bırakıp onla uğraşıyorum.

Bu arada kodlar çalışıyor , emeğinize sağlık. Aşağıdaki uyarınızda belirtmiştiniz TC no ve vergi no alanlarını kısa metin olarak değiştirmem lazım. Diğer türlü hata verdi.

Tekrardan hakkınızı helal ediniz, 

"Not: accesstek tabloda neredeyse tüm alanları uzun metin olarak ayarlamışsınız, faks isim yada ne bileyim telefon no gibi alanlar 255 karakter uzunluğunu aşmazlar o nedenle kısa metin olmalıydı, ayrıca TCNo 11 hanelidir yanı uzun tamsayıda bile hata verir o alanı da kısa metin olarak ayarlayabilirsiniz"
24/02/2020, 17:00

berduş

1 - verdiğim kod şu haliyle tüm sayısıal alanları boş bıraksanız bile çalışıyor mu?
2 - sayısal alanları metne çevirirseniz kodu güncellemek gerekebilir.
1 2 3 4