Lam Nal Adam...
Gwe Tjoba mbantu
Data1-->Tabel Agama
Data2---> Tabel Keluarga
Bikin Index di table Keluarga (contoh disini nama indexnya "NamaAgama")
do while not data2.recorset.eof
Data2.recordset.Index="NamaAgama"
Data2.recordset.seek '=', data1.recordset!NamaAgama
if not data2.recordset.nomatch then
data2.recordset edit
data2.recordset!IDAgama=data1.recordset!IDAgama
data2.recordset.update
end if
data2.recordset.movenext
loop
Mungkin gitu kali yah?
DISCLAIMER : Gwe nyatain bahwa koding di atas adalah hasil logika
pemprograman gwe yang masih cetek. Apabila pada saatnya ada kesalahan atau
penyesatan atas penggunaan koding tersebut, maka gwe dengan ini menyatakan maaf
dan koding tersebut batal berlaku.
Maklum masih belajar... hehehe :-)
"D.N.Adam" <[EMAIL PROTECTED]> wrote:
Teman-teman VB, saya ada membuat program database dgn teknologi lama
DAO(maklum permintaan user) dengan menghubungkan langsung yg diset
lewat properties.Dan saya ada tabel agama yang field-field dgn isinya sbb:
Field: |IDAgama|NamaAgama|
|01 | Islam|
|02 | Protestan|
|03 | Katholik|
|04 | Hindu|
|05 | Budha|
Masalahnya sbb:
Saya sdh buat program SIMPAN yang menggunakan COMBOBOX (jadi memilih
langsung di COMBOBOX nya akan ada tampilan ISLAM, PROTESTAN, KATHOLIK,
HINDU, BUDHA).Saya ambil contoh pilih ISLAM, terus saat saya tekan
tombol SIMPAN yang tersimpan adalah field IDAgama saja,yaitu => 01
bukan field NamaAgama => ISLAM.
Adapun script saya buat kalau menggunakan COMBOBOX sbb:
DtAgama.Recordset.AbsolutePosition = cmbagama.ListIndex
DtKeluarga.Recordset!IDAgama = DtAgama.Recordset!IDAgama
Nah, pertanyaan saya, bgmana kalau menggunakan TEXTBOX(tidk pakai
COMBOBOX)..? Jadi saat saya isi ISLAM di TEXTBOX, maka saat saya
tekan tombol SIMPAN yang tersimpan di tabel DataKeluarga adalah field
IDAgama nya -> 01 bukan field NamaAgama -> ISLAM.
Mohon pencerahannya.Thank
Salam,
D.Adam
.
Regards
Gege Nugroho
---------------------------------
Never miss a thing. Make Yahoo your homepage.
