Excelde, access'ten veri almada sorun.
#1
Merhaba,

Excel usreformunda,
Formun başında;
Kod:
Public dbs As DAO.Database
Public dst As DAO.Recordset
Public veriyolu As String

İnıtalize bölümünde;

Kod:
Dim al

veriyolu = ThisWorkbook.Path
Set dbs = OpenDatabase(veriyolu & "\deneme.mdb")
Set dst = dbs.OpenRecordset("select Burono from listeSorgu order by Burono")

If dst.RecordCount < 1 Then
MsgBox "veri yok"
Exit Sub
End If
dst.MoveLast
dst.MoveFirst

For al = 1 To dst.RecordCount
ComboBox6.AddItem dst("Burono")
dst.MoveNext
Next

İlgili comboda ise;

Kod:
Private Sub ComboBox6_Change()

Set dst = dbs.OpenRecordset("select * from listeSorgu where Burono='" & ComboBox6 & "'")

TextBox67 = dst!İcramd
TextBox68 = dst!İcradosyano & ""
TextBox65 = dst!Alacakli_1 & ""
TextBox66 = dst!Borclu_1 & ""

TextBox50 = Format(dst!Takiptarihi, "dd.mm.yyyy") & ""
End Sub


Kodları var.

Aynı excelin başka formlarında bu şekilde combodaki veri tıklandığında, textboxlara ilgili veriler geldiği halde,

Konu ettiğim bu formda;

Comboya Büronalarl geliyor. Buradan seçim yaptığımda ise:

"Ölçüt ifadesinde veri türü uyuşmazlığı" 3464

hatası veriyor ve

Set dst = dbs.OpenRecordset("select * from listeSorgu where Burono='" & ComboBox6 & "'")

satırı sarı renkli hata vermektedir.

Dosya çok kapsamlı ve birbirine bağlantılı olduğu için örnek koyamadım.

Sorunu nasıl çözebiliriz.

Şimdiden teşekkürler.



  Alıntı
Bu mesajı beğenenler:
#2
Merhaba;

Kod:
Set dst = dbs.OpenRecordset("select * from listeSorgu where Burono=" & ComboBox6 )

olarak dener misiniz?
Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Alıntı
Bu mesajı beğenenler:
#3
Sayın Beab2005;

Bu konularda yani tam anlamıyla ÜSTATSINIZ.

Tamam, oldu.

Fakat başka userformlarda (Yazdığım şekilde) oluyor da, niye bu formda olmadı.Anlayamadım.

Teşekkür ve Selamlar.



  Alıntı
Bu mesajı beğenenler:
#4
Merhaba;
Aslında üstatlık bir iş değildi. Veri türü uyuşmazlığı dediniz dolayısyla "combobox6" verisini metin verisi gibi işleme tabi tuttuğunuz için olduğunu düşündüm ve "bürono" da sayı olmalı. Hal böyle olunca tırnak ve tek tırnaklara dikkat etmek gerekiyor. Yine de iltifatınız için teşekkür ederim.
Javascript
  1. this.setState({sign:"Here comes the sun...."})







  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Access Formu üzerinden Sql Server Tabloya Nasıl Veri Kaydı Yapılır karacahil 4 186 15-02-2024, 12:10
Son Mesaj: halily
  Excelde 70mb Olan Veri Access 1000mb Oluyor !!! adnnfrm 1 96 26-11-2023, 11:36
Son Mesaj: dsezgin
  Access'e Excelden Dış Veri Almak snapper 3 149 02-10-2023, 22:55
Son Mesaj: dsezgin
  [VBA] Bozulan Access Veri Tabanı Kurtarma (yardım !!!) mobildestek 2 199 06-03-2023, 22:59
Son Mesaj: alperalper
access-sql-18 Access'e Dosya Bul Butonu Ile EXcel'den Veri çekme snapper 2 266 06-12-2022, 11:51
Son Mesaj: snapper
  [RAPOR] Rapora Resim Ekleme Ile Alakalı Sorun charisma1907 17 790 12-07-2022, 06:10
Son Mesaj: dsezgin
  Access Veri Tabanı Kayıt Numarası osmanyd 1 222 11-04-2022, 00:09
Son Mesaj: dsezgin
  [FORM] Access Data Tablosunda Kimlik Ile Userform üzerinden Veri Arama ofbayoglu61 1 254 29-11-2021, 02:54
Son Mesaj: dsezgin

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi