ok druze, to je ono sto je meni potrebno ali mala izmena, ja zelim prikazati rezultat iz trenutnog listview-a, dakle ne iz cele baze vec ono sto se trenutno nalazi u listviev3? da li je to moguce, inace za prikaz podataka u listview3 koristim sledece:
1.Imam listview1 i prkaz faktura sa nekim osnovnim podacima (ne sve), dakle redni_broj, datum, broj_fakture, kupac,iznos koji se vuku iz tablice baza_faktura.
2.Na dogadja dblClick_lisview1 imam otvaranje nove forme i na njoj listview2, vrsi se upit u istu tablicu (baza_faktura) i prikazuju kompletne informacije tipa redni_broj, datum, broj_fakture, kupac,artikal,iznos.pdv i t.d.
3. Na dogadjaj Stampanje_click() - datareport takodje vrsi upit i prikazuje sve sto je pronadjeno pod broj_fakture
ja zelim da sada racunam pdv, iznos, rabat u toj istoj formi (form2) a da iste u datareport prikazem iz texbox-a, dakle stanje pdv, rabat, iznos i t.d. i to sam zamislio tako sto ce se vrsiti upit u baza_faktura ali samo ono sto je prikazano u tom trenunom listview3
nadam se da ste/si me razumeli/o
pretraga i prikaz u listview3 na form2 iz lisview1 sa form1
Code:
Sub pretrazi()
Dim SQL As String
Dim search As String
Form2.ListView3.ListItems.Clear
On Error Resume Next
search = ListView1.SelectedItem.SubItems(1)
Err.Clear
openconn
SQL = "SELECT * FROM baza_faktura WHERE broj_fakture = '" & broj_fakture & "' ORDER BY broj_fakture DESC;"
Set rs = conn.Execute(SQL)
If rs.EOF Then
MsgBox "U bazi ne postoji ni jedan zapis!", vbExclamation, "Access"
closeconn
Exit Sub
End If
Form2.ListView3.ListItems.Clear
Do Until rs.EOF
Form2.ListView3.ListItems.Add 1, , rs("redni_broj")
Form2.ListView3.ListItems(1).SubItems(1) = rs("datum")
Form2.ListView3.ListItems(1).SubItems(3) = rs("kolicina")
Form2.ListView3.ListItems(1).SubItems(2) = rs("broj_fakture")
Form2.ListView3.ListItems(1).SubItems(4) = rs("jm")
Form2.ListView3.ListItems(1).SubItems(5) = rs("kupac")
Form2.ListView3.ListItems(1).SubItems(6) = rs("sifra")
Form2.ListView3.ListItems(1).SubItems(7) = rs("naziv_artikla")
Form2.ListView3.ListItems(1).SubItems(8) = rs("iznos")
Form2.ListView3.ListItems(1).SubItems(9) = rs("pdv")
Form2.ListView3.ListItems(1).SubItems(10) = rs("rabat")
Form2.ListView3.ListItems(1).SubItems(11) = rs("mp_vp")
Form2.ListView3.ListItems(1).SubItems(12) = rs("valuta")
rs.MoveNext
Loop
closeconn
End Sub
a ovo je suma iz polja "iznos" u tablci baza_faktura
Code:
Private Sub Command7_Click()
Dim rs As ADODB.Recordset
Dim TempVrednost As Double
On Error Resume Next
Set rs = New ADODB.Recordset
rs.CursorType = adOpenDynamic
rs.CursorLocation = adUseClient
rs.LockType = adLockOptimistic
rs.Close
Err.Clear
TempVrednost = 0
openconn
rs.Open "SELECT iznos FROM baza_faktura", conn, , adCmdTable
broj = rs.RecordCount
For i = 0 To broj - 1
If i = 0 Then
rs.MoveFirst
Else
rs.MoveNext
End If
TempVrednost = TempVrednost + rs.Fields.Item(0).Value
Next i
rs.Close
Text3.Text = TempVrednost
closeconn
End Sub
i na kraju, ono sto zelim je da se ovde u ovom poslednjem kodu izvrsi racunanje po upitu po broju_fakture, odnosno da se u text.text prikaze zbir polja "iznos" iz lisview3