Bapak, saya rasa bapak tidak teliti ketika menuliskan kriteria yaitu dengan mengikutkan forms![fd_outstanding_po]!
Cukup dimasukkan kolom yang sesuai di form yang akan di filter, dengan kriterianya. Private Sub Command18_Click() Dim stlink As String stlink = "[po_suplyer_id]= 'S" & Me.Suplyer_ID.Value & "'" DoCmd.OpenForm "fd_outstanding_po", acFormDS, , stlink, acFormReadOnly End Sub Salam hangat dan jabat erat, MBA _____ From: [email protected] [mailto:[email protected]] On Behalf Of yokananwahyono Sent: Thursday, 18 March, 2010 13:38 To: [email protected] Subject: [belajar-access] Membuka Forms dengan Criteria [1 Attachment] [Attachment(s) from yokananwahyono included below] Dear Para Master Saya coba buka forms dengan Criteria tertentu kok tidak bisa jalan y? Data harusnya keluar tapi tidak keluar Berikut kodenya Dim stlink As String stlink = "forms![fd_outstanding_po]![po_suplyer_id]= '" & Me.Suplyer_ID.Value & "'" DoCmd.OpenForm "fd_outstanding_po", acFormDS, , stlink, acFormReadOnly Salam Yokanan Attachment(s) from yokananwahyono 1 of 1 File(s) <http://l.yimg.com/kq/static/images/yg/img/doc/generic16x16.gif> Program <http://xa.yimg.com/kq/groups/3331658/1365957811/name/Program%20PO%2Erar> PO.rar No virus found in this incoming message. Checked by AVG - www.avg.com Version: 9.0.791 / Virus Database: 271.1.1/2753 - Release Date: 03/18/10 02:33:00
