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.....
--- 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