From: "exz@nt" <exzantmilis@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Wednesday, September 16, 2009 1:58 PM
Subject: Re: [belajar-access] mesin pencari
sy biasanya pake combo
yg sourcenya dimodif ditambahin kriteria where like
contoh sbg berikut :
Private Sub cmbCari_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[BARCODE] =" & Chr(34) & Me.cmbCari.Value & Chr(34)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.cmbCari.Value = ""
End Sub
Private Sub cmbCari_NotInList(NewData As String, Response As Integer)
Me.cmbCari.RowSource = "SELECT * FROM [Produk] WHERE produk.NM_BRG Like
" & Chr(34) & "*" & NewData & "*" & Chr(34) & ";"
Response = acDataErrContinue
End Sub
maksud kode diatas : jika kode yg diketikkan pada combo tidak terdaftar,
maka dilakukan seleksi sourcedata berdasarkan Nama Barang.
smg membantu.
salam,
exz@nt
2009/9/14 Masyruchi Se <