Bpk biasanya utk field yg ada spasinya harus diapit dengan symbol [], selain 
itu tgl harus diapit oleh #, misal:

DoCmd.OpenReport stDocName, acPreview, , "[Delivery Date] = #" &
datDeliveryDate & "#"

Thank's
  ----- Original Message ----- 
  From: Cecep W 
  To: [email protected] 
  Sent: Tuesday, 30 March 2010 6:59 AM
  Subject: [belajar-access] Filter Report


    
  hallo pakar access semua,

  saya membuat report dengan nama "CultureDeliveryRpt2" 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_CmdCultureDelivery_Click

  Dim stDocName As String
  Dim datDeliveryDate As Date

  stDocName = "CultureDeliveryRpt2"
  datDeliveryDate = InputBox("Masukan tangal Delivey Date")
  DoCmd.OpenReport stDocName, acPreview, , "Delivery Date = '" &
  datDeliveryDate & "'"

  Exit_CmdCultureDelivery_Click:
  Exit Sub

  Err_CmdCultureDelivery_Click:
  MsgBox Err.Description
  Resume Exit_CmdCultureDelivery_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?


  

Kirim email ke