[belajar-access] lookup

----- Original Message -----
From: "Maulana" <maulana_pup@yahoo.co.id>
To: <belajar-access@yahoogroups.com>
Sent: Monday, February 08, 2010 8:04 AM
Subject: Re: [belajar-access] lookup

Trims banyak P.Aksan ats pembahasan2nya
tapi maaf saya belum sempat pelajari soalnya
ada sdikit hambatan untuk konsen k topik ini, istri sy sdang sakit
jadi saya harus konsen k rumah sakit bolak balik
jadinya ngga sempat nengok2 e-mail, dan ini baru ada waktu sempat untuk cek
dan pastinya akan saya dalami...

Maulana

----- Original Message -----
From: Aksan Kurdin
To: belajar-access@yahoogroups.com
Sent: Friday, February 05, 2010 4:20 PM
Subject: Re: [belajar-access] lookup

Ok, P. Maulana

Sekarang kita membahas form lookupnya sendiri.

Secara sederhana, lookup untuk nomor dokumen bisa saja diwakili oleh combo
box:

combo box tersebut di set row sourcenya ke query: qs_IndentOutstanding
Ini adalah cara yang paling mudah dan cepat pembuatannya. Jika data indent
masih sedikit, loading form po tidak akan lama, tetapi jika data indent
sudah lama, maka untuk membuka form po membutuhkan selesainya dulu
qs_IndentOutstanding menarik data saat loading form, barulah form po di
display di layar.

cara berikutnya adalah membuat satu form lookup sendiri. karena berdiri
sendiri, maka proses loading qs_IndentOutstanding hanya pada form lookup ini
sendiri, sehingga form po tidak terpengaruh.

Ok ....

Form lookup yang saya buat adalah memberikan satu form header sebagai
dasar operasi pencarian, dan satu kontrol sub form unbound sebagai list
detail yang akan di cari.
form unbound ini nanti bisa diisi dari berbagai sub form lookup, sesuai
dengan kebutuhan. Misalnya lookup customer, lookup barang, lookup suplier,
lookup outstanding, dlsb.

Berikut desain form frm_lookup:

see, semua unbound.

ok mari kita bahas isi kode form lookup. di bagian deklarasi saya
memerlukan kode seperti berikut:

Option Compare Database
Option Explicit

Private mbol_Select As Boolean
Private mbol_CanClose As Boolean

form adalah class. maka saya sebut dua variabel di atas sebagai property
form frm_lookup.
mbol_select menandakan apakah kita telah menekan tombol select di form
(menjatuhkan pilihan)
mbol_canclose saya perlukan agar form bisa saya kontrol tidak bisa ditutup
oleh tombol silang, ctrl-f4, atau ctrl-w.
ingat, form ini kalau sudah dijatuhkan pilihan, akan di hide, bukan
ditutup, agar nilai2 yang kita butuhkan bisa kita ambil dari modul lain.

selanjutnya saya memerlukan satu property read write SelectOk. Berikut
deklarasinya:

Property Get SelectOk() As Boolean
SelectOk = mbol_Select
End Property

Property Let SelectOk(vData As Boolean)
mbol_Select = vData
mbol_CanClose = True

[belajar-access] lookup

----- Original Message -----
From: "Aksan Kurdin" <aksan.kurdin@gmail.com>
To: <belajar-access@yahoogroups.com>
Sent: Friday, February 05, 2010 4:06 PM
Subject: Re: [belajar-access] lookup

> Dear P. Maulana,
>
> Saya akan menyambung penjelasan kemarin, jadi tidak merujuk pada query
> yang anda kirim ini.
> Kita mulai dari form order/PO yang kosong:
>
>
> Setelah semua field header kita isi, maka saat mengisi textbox indent
> no, kita diberi kesempatan untuk memasukkan nomor indent yang akan
diorder.
> Cara pengisian bisa dengan mengklik tombol lookup (bernama
> cmdIndentLookup), atau langsung mengisi di textbox kalau P. Maulana
> ingat nomor indent yang belum di order tersebut.
> Jika lupa, tidak mengapa, ketik saja sembarang, nanti oleh program akan
> dikeluarkan form lookup ke nomor indent yang available.
>
>
>
>
> Event yang diperlukan oleh form ini adalah menangkap klik button :
>
> Private Sub cmdIndentLookup_Click()
> LookupIndent
> End Sub
>
> dan event after update pengisian dari Indent No textbox:
>
> Private Sub IndentNo_AfterUpdate()
> Dim rs As ADODB.Recordset
> Dim frm As Form
> On Error GoTo errHandle