Soru Excell - Access ListBox Veri Sorunu

[berkem13]

Merhabalar vba ve access ilişkisini bir program hazırlayarak yavaş yavaş öğrenmeye çalışıyorum. Ekteki Excel dosyamda frmFaturaDetay formu açılırken formda bulunan ListBox'a diğer formlardaki ListBox'lara eklediğim gibi başlık eklemeye çalışıyorum ancak Run-Time Error '380 hatası alıyorum. Formun içinde "Ekle" butonuna basarak accessde ilgili tabloya veriyi gönderiyor ancak veriyi çekerken hata veriyor. Hata aldığım kodlar ve dosyalarım ektedir. Şimdiden hepinizden Allah razı olsun.

    Me.ListBox1.ColumnCount = 22
    Me.ListBox1.ColumnWidths = "75;60;75;60;75;0;75;75;75;0;75;75;0;75;60;60;60;60;60;65;60;60"
    
    Me.ListBox1.AddItem
    Me.ListBox1.List(0, 0) = "Kantar Fiş No"
    Me.ListBox1.List(0, 1) = "İrsalıye Tarihi"
    Me.ListBox1.List(0, 2) = "İrsaliye No"
    Me.ListBox1.List(0, 3) = "Fatura Tarihi"
    Me.ListBox1.List(0, 4) = "Fatura No"
    Me.ListBox1.List(0, 5) = "Alt Yüklenici Id"
    Me.ListBox1.List(0, 6) = "Alt Yüklenici Kodu"
    Me.ListBox1.List(0, 7) = "Alt Yüklenici Adı"
    Me.ListBox1.List(0, 8) = "Alt Yüklenici Plaka"
    Me.ListBox1.List(0, 9) = "Hizmeti Alan Id"
    Me.ListBox1.List(0, 10) = "Hizmeti Alan Kodu"
    Me.ListBox1.List(0, 11) = "Hizmeti Alan Adı"
    Me.ListBox1.List(0, 12) = "Tur İd"
    Me.ListBox1.List(0, 13) = "Tur Adı"
    Me.ListBox1.List(0, 14) = "Birim"
    Me.ListBox1.List(0, 15) = "Birim Fiyatı"
    Me.ListBox1.List(0, 16) = "İskonto"
    Me.ListBox1.List(0, 17) = "KDV'siz Tutar"
    Me.ListBox1.List(0, 18) = "KDV Tutarı"
    Me.ListBox1.List(0, 19) = "Tevkifat Tutarı"
    Me.ListBox1.List(0, 20) = "KDV Toplam"
    Me.ListBox1.List(0, 21) = "Genel Toplam"

'Dim cnn As New ADODB.Connection
    'Dim rst As New ADODB.Recordset
    'Dim qry As String
          
    'cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\master.accdb"
    
    'If Me.TextFaturaNo.Value <> "" Then
        'qry = "SELECT * FROM tblNakliyeFaturaDetay WHERE FaturaNo = " & Me.TextFaturaNo.Value
    'Else
        'qry = "SELECT * FROM tblNakliyeFaturaDetay Where FaturaNo = 0"
    'End If
    
    'rst.Open qry, cnn, adOpenKeyset, adLockOptimistic
    
    'If rst.RecordCount = 0 Then
        'rst.AddNew
    'End If
    
    'rst.Fields("KantarFisNo").Value = frmFaturaDetay.TextKantarNo.Value
    'rst.Fields("IrsalıyeTarihi").Value = frmFaturaDetay.TextIrsaliyeTarihi.Value
    'rst.Fields("IrsaliyeNo").Value = frmFaturaDetay.TextIrsaliyeNo.Value
    'rst.Fields("FaturaTarihi").Value = frmFaturaDetay.TextFaturaTarihi.Value
    'rst.Fields("FaturaNo").Value = frmFaturaDetay.TextFaturaNo.Value
    'rst.Fields("AltYukleniciId").Value = frmFaturaDetay.TextAltYukleniciId.Value
    'rst.Fields("AltYukleniciKodu").Value = frmFaturaDetay.TextAltYukleniciKodu.Value
    'rst.Fields("AltYukleniciAdi").Value = frmFaturaDetay.TextAltYukleniciAdi.Value
    'rst.Fields("AltYukleniciPlaka").Value = frmFaturaDetay.cmbboxPlaka.Value
    'rst.Fields("HizmetiAlanId").Value = frmFaturaDetay.TextHizmetAlanId.Value
    'rst.Fields("HizmetiAlanKodu").Value = frmFaturaDetay.TextHizmetAlanKodu.Value
    'rst.Fields("HizmetiAlanAdi").Value = frmFaturaDetay.TextHizmetAlanAdi.Value
    'rst.Fields("TurId").Value = frmFaturaDetay.TextTurId.Value
    'rst.Fields("TurAdi").Value = frmFaturaDetay.TextTurAdi.Value
    'rst.Fields("Birim").Value = frmFaturaDetay.TextBirim.Value
    'rst.Fields("BirimFiyat").Value = frmFaturaDetay.TextBirimFiyat.Value
    'rst.Fields("Iskonto").Value = frmFaturaDetay.TextIskonto.Value
    'rst.Fields("KDVsiz").Value = frmFaturaDetay.TextKDVsiz.Value
    'rst.Fields("KDV").Value = frmFaturaDetay.TextKdvTutari.Value
    'rst.Fields("Tevkifat").Value = frmFaturaDetay.TextTevkifatTutari.Value
    'rst.Fields("KDVtoplam").Value = frmFaturaDetay.TextKdvToplami.Value
    'rst.Fields("GenelToplam").Value = frmFaturaDetay.TextGenelToplam.Value
    
    'rst.Update
 
    'frmFaturaDetay.TextTurId.Value = ""
    'frmFaturaDetay.TextTurAdi.Value = ""
    'frmFaturaDetay.TextBirim.Value = ""
    'frmFaturaDetay.TextBirimFiyat.Value = ""
    'frmFaturaDetay.TextIskonto.Value = ""
    'frmFaturaDetay.TextKDVsiz.Value = ""
    'frmFaturaDetay.TextKdvTutari.Value = ""
    'frmFaturaDetay.TextTevkifatTutari.Value = ""
    'frmFaturaDetay.TextKdvToplami.Value = ""
    'frmFaturaDetay.TextGenelToplam.Value = ""
    
    'Call hareketgetir

 

[Korhan Ayhan]

Projeden önce bence kullandığınız nesnelerin özelliklerini öğrenmelisiniz.

ListBox nesnesi Additem yöntemi ile belli kapasitede (sütun olarak) veri yükleyebilirsiniz. Bunun yerine GetRows metodunu araştırabilirsiniz.

 

[berkem13]

Projeden önce bence kullandığınız nesnelerin özelliklerini öğrenmelisiniz.

ListBox nesnesi Additem yöntemi ile belli kapasitede (sütun olarak) veri yükleyebilirsiniz. Bunun yerine GetRows metodunu araştırabilirsiniz.

Üstadım, dediğiniz metodu araştırmaya başladım. Üstadım, Peki ikinci belirttiğim kodda neden hata alıyorum bir fikriniz var mı?

 

[Korhan Ayhan]

Dediğim gibi bol bol araştırma yapmalısınız.

Kod yazarak dbden veri almak ve kaydetmek ve işlemek

Merhaba arkadaşlar. Kod yazarak dbye kayıt güncelleme silme listeleme (Listboxta) şekilde bir dosya hazırladım. Üstatlarımız bir bakarasa eksik bir tarafı veya yanlış bir tarfı varmı. Bu benim kod yazarak yaptığım ilk access dosyasıdır.EXCELde yaptığımdan pek farkı yok.Yalnız listboxa veriler...

www.excel.web.tr