Kod:
Dim lstview As ListItem
Set lstview = TBL_SIPRS.ListView1.ListItems.Add(, , rs("Cari_Kod"))
lstview.SubItems(1) = rs("Siparis_Tarihi")
lstview.SubItems(2) = rs("Termin_Tarihi")
Kod:
Private Sub Tsipno_Change()
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
strSQL = "select*from SiparisKayitlari where Siparis_No ='" & Tsipno & "'"
Set rs = baglan.Execute(strSQL)
Dim lstview As ListItem
If Not rs.EOF Then
Tsiptarihi.Text = r
s("Siparis_Tarihi")
Ttermin.Text = rs("Termin_Tarihi")
tcarikod.Text = rs("Cari_Kod")
Caliciadi.Value = rs("Cari_Adi")
Taliciadresi.Value = rs("Adres")
Caliciil.Value = rs("Ýl")
Caliciilce.Value = rs("Ýlce")
Caliciülke.Value = rs("Ulke_")
Talicitelefon.Value = rs("Telefon")
Talicifaks.Value = rs("Faks")
Talicimail.Value = rs("Mail")
Cfarkliteslim.Value = rs("Farkli_Teslimat_Cari_Adi")
Tfarkliteslimadres.Value = rs("Farkli_Teslim_Adres")
Cfarkliteslimil.Value = rs("Farkli_Teslim_Ýli")
Cfarkliteslimilce.Value = rs("Farkli_Teslim_Ýlce")
Cfarkliteslimülke.Value = rs("Farkli_Teslim_Ulke")
Tfarkliteslimtelefon.Value = rs("Farkli_Teslim_Telefon")
Tfarkliteslimfaks.Value = rs("Farkli_Teslim_Faks")
Tfarkliteslimmail.Value = rs("Farkli_Teslim_Mail")
Tmüsterisiparisno.Value = rs("Müsteri_Siparis_No")
Tteslimperiyodu.Value = rs("Teslim_Periyodu")
Tnakliye.Value = rs("Nakliye_Þekli")
'-------------------------------------------------------------------
Set lstview = TBL_SIPRS.ListView1.ListItems.Add(, , rs("Cari_Kod"))
lstview.SubItems(1) = rs("Siparis_Tarihi")
lstview.SubItems(2) = rs("Termin_Tarihi")
Else
Exit Sub
End If
End SubPHP Kod:
TBL_SIPRS.ListView1.ListItems.Clear
