Dim jumlahe As Double
Do While Not rstbarang.EOF
txtKDBRG.Text = rstbarang.kode
txtNMbrg.Text = rstbarang.namabarang
Do While Not rstsales.EOF
txtSales.Text = rstsales.nip
a = "select sum(keluar)as jumlahe from tbkartustock WHERE nip='" &
txtSales.Text & " '"
a = a & "and kode='" & txtKDBRG.Text & " ' "
a = a & "and tanggal between #" & Format(DTPicker1.Value, "MM/dd/yyyy")
& "# and #" & Format(DTPicker2.Value, "MM/dd/yyyy") & "# "
txtKeluarRokok.Text = jumlahe
Adodc11.RecordSource = a
Adodc11.Refresh
rstsales.MoveNext
Loop
rstbarang.MoveNext
Loop
sy bermaksud melakukan filter tsb diatas tapi gagal.
apakah meletakkan hasil sum kedalam textbox dapat dilakukan?
mohon petunjuknya. trims
