Arkadaşlar merhaba,
Veritabanı olarak hep
Excel kullandırdım, bu aralar Acsess veritabanına merak saldım, tablo oluşturma veri yazma vs konularına giriş yaptım UPDATE komutunda takıldım, ne yaptıysam userformdaki bilgileri tabloya aktaramadım,
Malum desteklerinizi rica ediyorum.
Şimdiden teşekkür eder, saygılar sunarım.
güncelleme kısmını nasıl açıyorsunuz adım adım anlatır mısınız?
ben userformdaki mükellef bilgilerini açmaya çalıştım ama dosya bir türlü açılmadı, dosya kilitlendi.
berduş hocam merhaba,
DATA sayfasında Yeni Kayıt formu çalışması lazım.. Listview var ondan çalışımıyor olabilir mi ? malum .ocx dosyası
Update için denediğim kod bloğu aşağıdaki gibi, hata görselleri de ekte hocam..
Dim sno As Integer
sno = TextBox20.Value
'cari = "'" & ComboBox4.TEXT & "'"
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.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
Set rs = 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: Set rs = Nothing:
maalesef o da kilitlendi. sorun ofis kurulumumdan da kaynaklanıyor olabilir, yeniden kurduktan sonra tekrar denerim
İlginiz için teşekkürümü iletiyorum