Wah...kayaknya ga nyampe struktur tabel deh Mas... Strukturnya saya rasa sudah ga masalah.. permasalahannya adalam memunculkan jumlah saja.... Jumlah penduduk per Kecamatan dalam text box...yang selama ini saya pakai DCount itu.... Dan yang pasti memang hanya view saja.... bukan edit......
Mmmmmmm...... tapi .... berarti yang diubah bukan control source text box tsb ya... tapi record source si form datasheetnya....... Gitu mungkin maksud Mas Aksan....? --- In [email protected], "aksan kurdin" <[EMAIL PROTECTED]> wrote: > > kalau begitu struktur tabel ? > terus data yang dihasilkan apakah hanya untuk view saja (read only) atau > harus bisa diedit ? > kalau hanya untuk view, mungkin bisa pakai agregat query seperti: > > select camatid, count(no_ktp) as jumlah_penduduk > from qs_penduduk_camat > group by camatid > > untuk bisa bikin query qs_penduduk_camat, tolong tingkatan dispenduknya > bagaimana ? tolong dilengkapi sampai ke tingkat paling dasar, jangan pakai > 'dan seterusnya' ...... > > ... > kabupaten > kecamatan > kelurahan > ... > > aksan kurdin > > On 1/13/08, Bobby <[EMAIL PROTECTED]> wrote: > > > > Wah... maas maf... eh maaf mas.. telat ngejawabnya.....Terimakasih atas > > responnya yang cepat... > > sebenernya udah saya baca sejak saat dikirim.... tapi router di tempat > > saya lagi trouble > > jadi ga bisa buka web.... ini juga balesnya pake windows mail..... > > > > Mohon maaf kalau saya tidak bisa melampirkan contoh data.... karena > > datanya lumayan sensitif... > > dan saya ga kebayang utk membuat contoh data dgn objek lain. > > Tapi kurang lebih begini.... > > Satu kabupaten terdiri dari beberapa kecamatan, setiap kecamatan terdiri > > dari desa/kelurahn, dan strusnya sampai keluarga... > > Saya membuat form datasheet, dgn recordsource: "select * from > > tbl_kecamatan", dan dalam datasheet tsbut, selain > > semua data tg kecamatan (nama kecamatan, lokasi, Nama camatnya dan > > identitas lain) saya tambahkan satu textbox > > (katakanlah txtJumlahPenduduk) dengan control source : > > =Dcount("Rec_ID";"tbl_Penduduk";"Kecamatan=' " & [Kecamatan] & " ') " > > Memang bisa memunculkan hasil dengan benar di setiap record tergantung > > nama kecamatannya, ttp membutuhkan waktu > > yang menurut saya "kurang cepat", tidak secepat menggunakan ADODB > > recordset. Saya sudah bisa membuat function (dalam VB) > > dengan ADODB.. tetapi bagaimana memasukkan hasil dari fungsi tsb ke dalam > > text box sehingga setiap record memunculkan > > data jumlah sesuai kecamatannnya. Functionnya sbb: > > > > Function HitungPenduduk() As Long > > Dim longPenduduk As Long > > Dim cn As New ADODB.Connection > > Dim rs As ADODB.Recordset > > > > Set cn = CurrentProject.Connection > > Set rs = New ADODB.Recordset > > SQL = "Select count(rec_ID)as Jumlah from tbl_Penduduk " & _ > > "Where Kecamatan =' " & Me!Kecamatan & " ' " > > Debug.Print SQL > > rs.Open SQL, cn > > longPemilih = rs!Jumlah > > HitungPenduduk= longPenduduk > > > > Set rs = Nothing > > cn.Close > > End Function > > > > Gitu Mas Aksan.... agak2 bertele-tele mungkin gambarannya..... tapi mudah2 > > an Mas Aksan atau yang > > lain bisa memahami dan bisa sharing ..... > > Terima kasih > > > > Salam > > > > Bobby > > > > > > ----- Original Message ----- > > *From:* aksan kurdin <[EMAIL PROTECTED]> > > *To:* [email protected] > > *Sent:* Saturday, January 12, 2008 10:46 PM > > *Subject:* Re: [belajar-access] (Urgent) Adodb recordset untuk setiap > > record dalam datasheet > > > > > > > > bisa kasih contoh data, contoh kriteria bagaimana meng-count, dan contoh > > hasil yang diinginkan. > > > > aksan kurdin > > > > > > On 1/12/08, Bobby <[EMAIL PROTECTED]> wrote: > > > > > > Salam.....semuanya > > > Tidak lupa mengucapkan selamat tahun baru hijriyah 1425 H > > > > > > Walaupun hari sabtu....yang biasanya sepi..mudah2 an ada yang bisa > > > bantu, soalnya urgent nih...... > > > > > > Saya sedang mencari cara untuk memunculkan jumlah dari setiap record > > > berdasarkan kriteria tertentu ke dalam text box (sebut saja namanya > > > "txtJumlah")dalam form datasheet. > > > Biasanya saya menggunakan DCOUNT dam control source text box tsb, > > > dengan kriteria tertentu. Tetapi dengan cara tersebut, ternyata > > > membutuhkan waktu lama ketika menghitung data dalam jumlah besar. > > > > > > Dengan menggunakan ADODB ternyata lebih cepat (sudah saya coba), > > > tetapi bagaimana memunculkan hasil dari nilai yang didapat dari adodb > > > connection tsb ke dalam text box. Sehingga setiap record memiliki > > > nilai berbeda tergantung dari kondisinya. > > > Koneksi ADODB sya simpan di VB berupa function. Sudah saya coba > > > memasukkan function tsb ke dlm event "on current" ternyata ketika form > > > dibuka semua recorddi txtJumlah tsb nilainya sama, yaitu nilai dari > > > record pertama. Harus di klik setiap record baru berubah... itu jg > > > merubah record2 yg lain (emang kayak gitu kan ya kalau on Current). > > > > > > Saya coba masukkan function nya ke dalam control source, tidak bisa > > > karena saya menggunakan ADP. > > > > > > Kira kira teman2 milis ada yg punya solusi....? atau cara lain selain > > > cara saya......?? (Saya sudah googling ...susah juga cari keywordnya) > > > Terima kasih sebelumnya.. > > > > > > Salam > > > > > > Bobby > > > > > > > > > > > > -- > > Aksan Kurdin > > > > > > > > > > -- > Aksan Kurdin >
