04-06-2008, 14:09
Merhaba,
Excel usreformunda,
Formun başında;
İnıtalize bölümünde;
İlgili comboda ise;
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.
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.