Hallo Mac Ba, Mungkin itu yang saya alami dulu, Saya dapat pencerahan dari para suhu di sini, Ini tampilan formnya : Ini vba saat tanggal order di klik, '------------------------ Private Sub CmdQryTglPO_Click() Dim db As DAO.Database Dim QD As QueryDef Dim where As Variant Set db = CurrentDb() On Error Resume Next db.QueryDefs.DELETE ("qryMar_5_OrderSumary") On Error GoTo 0 Where = Null Where = where & " AND [order_id]= '" + Me![CmbOrder] + "'" Where = where & " AND [prod_id]= '" + Me![CmbPartNo] + "'" Where = where & " AND [cust_id]= '" + Me![CmbCustomer] + "'" Where = where & " AND [lokasi]= '" + Me![CmbLokasi] + "'" Where = where & " AND [thnpo]= " + Me![CmbTahun] Where = where & " AND [blnpo]= " + Me![CmbBulan] Where = where & " AND [balance]= " + Me![sisanya] If Not IsNull(Me![SdTanggal]) Then Where = where & " AND [order_date] between #" & _ Me![DariTanggal] & "# AND #" & Me![SdTanggal] & "#" Else If Not IsNull(Me![DariTanggal]) Then Where = where & " AND [order_date]= #" & Me![DariTanggal] & " #" End If End If MsgBox "Kriteria yang anda pilih : => " & Mid(where, 6) & " <=" Set QD = db.CreateQueryDef("qryMar_5_OrderSumary", _ "Select * from [qrymar_orderreportfinal] " & (" where " + Mid(where, 6) & ";")) DoCmd.OpenForm "frmMar_5_OrderSumary" End Sub Terima kasih kepada para suhu yang dulu menginspirasi saya, Ini kami namakan Dynamic Query Semoga ini menjadi inspirasi yg lain. Belajar Dan Belajar -------Original Message------- From: mac ba Date: 12/21/2012 10:41:44 AM Subject: [belajar-access] Merubah criteria pada query dengan coding VBA
| ||
|

Reply via web post | Reply to sender | Reply to group | Start a New Topic | Messages in this topic (18) |