it's not viewing what it suppose to view.
Attachment included with the post
Thanks in Advance
Code:
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub Form_Load()
'Vendosja e Furnizuesve ne Combo Box
Call dbconek
ar.Open "Select *From tblFurnizuesit", strConek, adOpenStatic, adLockOptimistic
If ar.RecordCount = 0 Then
Exit Sub
Else
ar.MoveFirst
Do While Not ar.EOF
txtfurnizuesi.AddItem ar!furnizuesi
ar.MoveNext
Loop
ar.Close
End If
End Sub
Private Sub txtfurnizuesi_Click()
lv.ListItems.Clear
txttotal.Text = ""
Dim rtotal As Currency
Call dbconek
ac.Open strConek
With ar
criteria = "Select * From tblFurnizimi Where furnizuesi like'" & txtfurnizuesi & "%'"
.Open criteria, strConek, adOpenStatic, adLockOptimistic
Do While Not .EOF
lv.ListItems.Add , , !pershkrimi, 1, 1
lv.ListItems(lv.ListItems.Count).SubItems(1) = Format(!qmimi, "###,###,##0.00")
lv.ListItems(lv.ListItems.Count).SubItems(2) = !sasia
lv.ListItems(lv.ListItems.Count).SubItems(3) = Format(!total, "###,###,##0.00")
lv.ListItems(lv.ListItems.Count).SubItems(4) = !Data
lv.ListItems(lv.ListItems.Count).SubItems(5) = !furnizuesi
.MoveNext
Loop
.Close
End With
'=============Paraqitja e Infos
Call dbconek
ac.Open strConek
With ar
criteria = "Select * From tblFatura Where fat_nr like'" & Text1 & "%'"
.Open criteria, strConek, adOpenStatic, adLockOptimistic
Do While Not .EOF
rtotal = rtotal + CCur(!total)
txttotal.Text = rtotal
.MoveNext
Loop
.Close
End With
End SubThanks in Advance