Teman-teman millis VB, saya ada kesulitan dalam pembuatan Program VB 6.0 dengan teknik lama DAO dengan mengaitkan langsung dengan ControlDatanya(DAO) di propertynya. Kesulitannya sbb : Saya mempunyai 2 tabel sbb : Tabel1 => (Master) : DataJemaat : nomerkartu, namakeluarga, alamat,status tinggal, dsb... Tabe2 =>(Child) DataKeluarga :nomerkartu, namaanggotakeluarga, jeniskelamin,Hubungan, dsb.... Jadi yang menjadi kunci primary(nomerkartu)
Sekarang yang mau saya tanyakan, bgmana script/coding relasi untuk menampilkan fiel-field dari DataKeluarga yang berisi field-field : nomerkartu, namaanggotakeluarga, jeniskelamin, dsb...Pada komponen SSTab kedalam txt_namaanggotakeluarga, cmdjnskelaminkel, cmdhubkel, txttptlahirkel, masktptlahirkel dst..... Dimana ada 1 nomer kartu berisi keluarga yang mempunyai anak lebih dari satu. Saya telah membuat form Entry DataJemaat terus saya memasang Komponen SSTab untuk menampilkan DataKeluarga dari tabel DataKelurga. Untuk DataKelurga yang anaknya lebih dari 1, cukup yang ditampilkan yang data anak terakhir saja di komponen SSTab kedalam : txt_namaanggotakeluarga, cmdjnskelaminkel, cmdhubkel, txttptlahirkel, masktptlahirkel dst..... Saya sdh mencoba membuat coding dengan menggunakan INNER JOIN sbb: Public Sub CariTampilkanDataKeluarga() ..... ..... DtKeluarga.RecordSource = " select * from datajemaat DJ inner join &_ datakeluarga DK On DJ.NomerKartu=DK.NomerKartu where *" & _ & Me.txtnomerkartu.Text & "*' " Me.txtnmlengkap = &_ UCase(DtKeluarga.Recordset!Nama) DtJnsKel.Recordset.FindFirst "IDJnsKel= '"&_ DtKeluarga.Recordset!IDJnsKel & "'" cmdjnskelaminkel.ListIndex = DtJnsKel.Recordset.AbsolutePosition . . Mohon kiranya teman-teman memberikan pencerahan mengenai coding saya yang mungkin salah.Thank atas bantuannya. Regard, D.Adam
