dear mas handoko
kenapa cr kok error ya, apa yang salah di kode vb nih sebagai berikut :
Private Sub layar_Click(Index As Integer)
On Error GoTo baru
sql = " SELECT Barang.Namabar, Barang.Stock, Barang.StockMin, Barang.Satuan,
[stock]<=[stockmin] AS sisa"
sql = sql & " From Barang"
sql = sql & " WHERE ((([stock]<=[stockmin]) Like -1))"
Set qry = db.CreateQueryDef("qrystokmin", sql)
Report1.ReportSource = crptReport
Report1.WindowState = crptMaximized
Report1.ReportFileName = App.Path & "\Daptar stock minimal.rpt"
Report1.Destination = crptToWindow
Report1.Action = 1
Exit Sub
baru:
db.QueryDefs.Delete ("qrystokmin")
Resume
End Sub
apa punya saran yang simple?
salam
fathan
Untuk keluar dari millis ini, kirim email kosong ke:
[EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/programmer-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
