Coba di revisi : DoCmd.OpenReport stDocName, acPreview, , "Delivery Date ='" & Me.datDeliveryDate & "'"
Sumiyanto ________________________________ From: Cecep W <[email protected]> To: [email protected] Sent: Tue, March 30, 2010 6:59:48 AM Subject: [belajar-access] Filter Report hallo pakar access semua, saya membuat report dengan nama "CultureDeliveryRpt 2" dan didalam report tsb ada field "Delivery Date" kemudian akan saya buka report tsb menggunakan VBA sbb: Private Sub CmdCultureDelivery_ Click() On Error GoTo Err_CmdCultureDeliv ery_Click Dim stDocName As String Dim datDeliveryDate As Date stDocName = "CultureDeliveryRpt 2" datDeliveryDate = InputBox("Masukan tangal Delivey Date") DoCmd.OpenReport stDocName, acPreview, , "Delivery Date = '" & datDeliveryDate & "'" Exit_CmdCultureDeli very_Click: Exit Sub Err_CmdCultureDeliv ery_Click: MsgBox Err.Description Resume Exit_CmdCultureDeli very_Click End Sub setelah diklik muncul inputbox kemudian saya masukan tanggal 25/02/2010 tapi report-nya tidak terbuka malah keluar error sbb: Syntax arror (missing operator) in query expression '(Delivery Date = '25/03/2010' )' kenapa ya?
