di vba editor , tekan tombol [F1] dan isi textbox ( yg dicari ) dgn Recordset.FindFirst. Baca cukup lengkap
singkatnya cari record pertama , untuk field ... yg berisi ...
--- In belajar-access@yahoogroups.com, "hstod" <hstudio7@...> wrote:
>
> wah.. maaf nih sudah merepotkan... gan jkssbma! tks atas bantuannya. btw mohon di jelaskan secara bahasa ku :
>
> 1.rs.FindFirst "[id_reservasi]= " & Me![CBSearch]
>
> 2. rs.FindFirst "[customer_name]= '" & Me![CBSearch] & "'"
>
> selama ini hanya copast tanpa bisa memahami..
>
> tks
>
> --- In belajar-access@yahoogroups.com, "jkssbma" <jkssbma@> wrote:
> >
> >
> > silakan download [Pencarian Combo 32921.rar] di
> > [Files] [jkssbma] [cobasolusi] [combobox]
> >
> >
> > catatan menu [Files] ada di menu sisi kiri situs ini
> >
> > saya jadi mulai kirim ke folder [jkssbma] lagi nih , padahal saya harap
> > yg nanya bisa mengetik sendiri solusi yg diberikan..... [I-)]
> >
> >
> >
> > --- In belajar-access@yahoogroups.com, "hstod" <hstudio7@> wrote:
> > >
> > > klo gini kan cuman rubah id_reservasi nya kan mas jkssbma. sebelumnya
> > sdh sy coba dan tetap tidak bisa. bisa tolong di buatkan langsung kah di
> > file nya biar kinclong sy mempastenya :)
> > >
> > > tks
> > >
> > > --- In belajar-access@yahoogroups.com, "jkssbma" jkssbma@ wrote:
> > > >
> > > >
> > > > Event :
> > > >
> > > > Private Sub CBSearch_AfterUpdate()
> > > > Dim rs As Object
> > > > Set rs = Me.Recordset.Clone
> > > > rs.FindFirst "[id_reservasi]= " & Me![CBSearch]
> > > > If Not rs.EOF Then Me.Bookmark = rs.Bookmark
> > > > End Sub
> > > >
> > > > query [QReservasi ]:
> > > > SELECT T_resHeader.id_reservasi, T_resHeader.Tgl_Input,
> > > > T_resHeader.Customer_Name, T_resHeader.Reservasi_Book,
> > > > T_resHeader.Receptionist, T_resDetails.Rooms,
> > T_resDetails.Extra_Bed,
> > > > T_resHeader.Cek_In
> > > > FROM T_resHeader INNER JOIN T_resDetails ON T_resHeader.id_reservasi
> > =
> > > > T_resDetails.id_reservasi;
> > > >
> > > > Property untuk CBSearch :
> > > >
> > > > [row source] :
> > > >
> > > > SELECT Qreservasi.id_reservasi, Qreservasi.Customer_Name,
> > > > Qreservasi.Reservasi_Book, Qreservasi.Receptionist FROM Qreservasi;
> > > >
> > > > [column count] : 4
> > > >
> > > > [column widths] : 0";1.1806";2.1417";1.4091"
> > > >
> > > > [list width] : 5
> > > >
> > > > [width] : 4
> > > >
> > > >
> > > >
> > > > '==========
> > > >
> > > > --- In belajar-access@yahoogroups.com, Hstudio Tmk <hstudio7@>
> > wrote:
> > > > >
> > > > > Opps file nya ketinggalan..
> > > > > tks
> > > > >
> > > > >
> > > > >
> > > > > ________________________________
> > > > > From: jkssbma jkssbma@
> > > > > To: belajar-access@yahoogroups.com
> > > > > Sent: Friday, October 21, 2011 6:59 PM
> > > > > Subject: [belajar-access] Re: Unique Combo box field
> > > > >
> > > > > Data yang dicari harus memiliki korelasi dgn data yg ada pada
> > > > combobox. Jadi yg mau diambil/dicari gabungan data field nama dan
> > > > tgl.input ?
> > > > > beberapa pertanyaan yg perlu dipertimbangkan :
> > > > > 1. data Combobox diambil dari tabel/query apa ?
> > > > > 2. Data yg ingin di cari memiliki field2 apa saja yg mungkin
> > terkait
> > > > dgn tabel/query sumber bagi combobox ?
> > > > >
> > > > > Kalau tak mau pusing silakan file mdb/acdb disertakan pada
> > attachment
> > > > email yg anda kirim ke belajar-access@yahoogroups.com
> > > > >
> > > > >
> > > > > --- In belajar-access@yahoogroups.com, "hstod" hstudio7@ wrote:
> > > > > >
> > > > > > query :
> > > > > >
> > > > > > nama-------- tgl.input ----- chek.in
> > > > > >
> > > > > > master------12/10/11--------13/10/11
> > > > > > mister------16/10/11--------18/10/11
> > > > > > master------18/10/11--------19/10/11
> > > > > >
> > > > > > search : by combobox di form dengan code :
> > > > > > Dim rs As Object
> > > > > > Set rs = Me.Recordset.Clone
> > > > > > rs.FindFirst "[nama] = '" & Me![CBSearch] & "'"
> > > > > > If Not rs.EOF Then Me.Bookmark = rs.Bookmark
> > > > > >
> > > > > > untuk nama yang beda record bisa di tampilkan dengan benar,
> > namun
> > > > jika nama sama maka record tidak akurat (mengikuti yg paling pertama
> > di
> > > > input).
> > > > > >
> > > > > > saya coba dengan mengambil dari data id autonumber namun tidak
> > bisa.
> > > > gmn cara nya untuk bisa menampilkan data di form walau nama sama?
> > tapi
> > > > untuk tgl input dan lainnya tetap beda! (jadi record di form tetap
> > > > akurat berdasarkan tgl input)
> > > > > >
> > > > > > tks
> > > > > >
> > > > >
> > > > >
> > > > >
> > > > >
> > > > > ------------------------------------
> > > > >
> > > > > SPAM IS PROHIBITEDYahoo! Groups Links
> > > > >
> > > > >
> > > > >
> > > > > http://docs.yahoo.com/info/terms/
> > > > >
> > > >
> > >
> >
>
Tidak ada komentar:
Posting Komentar