Arkadaşlar merhaba,
Kapalı bir access dosyasına yazdırdığım bilgileri ListBox üzerinde görüntülüyorum.
aynı isimli kayıtlar olabildiği için ListBox click olayına aşağıdaki şekilde bir kod kullanıyorum ayırabilmesi için,metin olarak tanımlı yerlerde bir sorun yok fakat sayı olarak tanımlı olan kısımları yanlış getiriyor.
Sayı olarak tanımlı olanlar için kodlarda nasıl bir değişiklik yapmam gerekir acaba?
Private Sub ListBox2_Click()
Dim mrk, mdl, tdr, adt, uvv, buv As String
Dim r As Integer
r = ListBox2.ListIndex
mrk = ListBox2.List(r, 0) ' ithalat_no
mdl = ListBox2.List(r, 1) ' tedarikci
tdr = ListBox2.List(r, 2) ' malzeme_cinsi
adt = ListBox2.List(r, 3) ' urun_adi
uvv = ListBox2.List(r, 4) ' renk
buv = ListBox2.List(r, 5) ' uv
ssk = ListBox2.List(r, 6) ' satis_sekli
bfy = ListBox2.List(r, 7) ' birim_fiyat
bbf = ListBox2.List(r, 8) ' birim_bf
kdm = ListBox2.List(r, 9) ' kdv_dahil_maliyet
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [MyTable]Where (ithalat_no='" & mrk & "' and tedarikci='" & mdl & "' and malzeme_cinsi='" & tdr & "' and urun_adi='" & adt & "' and renk='" & uvv & "' )"
RS.Open strSQL, adoCN, 1, 3
TextBox1 = RS("ithalat_no")
ComboBox1 = RS("tedarikci")
ComboBox2 = RS("malzeme_cinsi")
ComboBox3 = RS("urun_adi")
TextBox42 = RS("renk")
TextBox15 = RS("uv")
ComboBox7 = RS("birim_uv")
ComboBox6 = RS("satis_sekli")
TextBox20 = RS("birim_fiyat")
ComboBox8 = RS("birim_bf")
TextBox24 = RS("kdv_dahil_maliyet")
ComboBox9 = RS("birim_kdm")
TextBox28 = RS("kdv_haric_maliyet")
ComboBox10 = RS("birim_khm")
TextBox32 = RS("miktar")
ComboBox5 = RS("birim_m")
ComboBox4 = RS("yukleme_cinsi")
TextBox38 = RS("icerik")
TextBox40 = RS("depo_giris_tarihi")
CommandButton5.Enabled = True
CommandButton3.Enabled = True
Set RS = Nothing
End Sub
Kapalı bir access dosyasına yazdırdığım bilgileri ListBox üzerinde görüntülüyorum.
aynı isimli kayıtlar olabildiği için ListBox click olayına aşağıdaki şekilde bir kod kullanıyorum ayırabilmesi için,metin olarak tanımlı yerlerde bir sorun yok fakat sayı olarak tanımlı olan kısımları yanlış getiriyor.
Sayı olarak tanımlı olanlar için kodlarda nasıl bir değişiklik yapmam gerekir acaba?
Private Sub ListBox2_Click()
Dim mrk, mdl, tdr, adt, uvv, buv As String
Dim r As Integer
r = ListBox2.ListIndex
mrk = ListBox2.List(r, 0) ' ithalat_no
mdl = ListBox2.List(r, 1) ' tedarikci
tdr = ListBox2.List(r, 2) ' malzeme_cinsi
adt = ListBox2.List(r, 3) ' urun_adi
uvv = ListBox2.List(r, 4) ' renk
buv = ListBox2.List(r, 5) ' uv
ssk = ListBox2.List(r, 6) ' satis_sekli
bfy = ListBox2.List(r, 7) ' birim_fiyat
bbf = ListBox2.List(r, 8) ' birim_bf
kdm = ListBox2.List(r, 9) ' kdv_dahil_maliyet
Set RS = CreateObject("ADODB.recordset")
strSQL = "SELECT * FROM [MyTable]Where (ithalat_no='" & mrk & "' and tedarikci='" & mdl & "' and malzeme_cinsi='" & tdr & "' and urun_adi='" & adt & "' and renk='" & uvv & "' )"
RS.Open strSQL, adoCN, 1, 3
TextBox1 = RS("ithalat_no")
ComboBox1 = RS("tedarikci")
ComboBox2 = RS("malzeme_cinsi")
ComboBox3 = RS("urun_adi")
TextBox42 = RS("renk")
TextBox15 = RS("uv")
ComboBox7 = RS("birim_uv")
ComboBox6 = RS("satis_sekli")
TextBox20 = RS("birim_fiyat")
ComboBox8 = RS("birim_bf")
TextBox24 = RS("kdv_dahil_maliyet")
ComboBox9 = RS("birim_kdm")
TextBox28 = RS("kdv_haric_maliyet")
ComboBox10 = RS("birim_khm")
TextBox32 = RS("miktar")
ComboBox5 = RS("birim_m")
ComboBox4 = RS("yukleme_cinsi")
TextBox38 = RS("icerik")
TextBox40 = RS("depo_giris_tarihi")
CommandButton5.Enabled = True
CommandButton3.Enabled = True
Set RS = Nothing
End Sub