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