Alhamdulillah dapat jawaban dari master, tapi saya filenya kayak korup
Ketika pilih ‘Yes’ Tak berjalan Wassalam From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] Sent: 16 Desember 2017 22:52 To: BeExcel Subject: Re: [belajar-excel] Mengetahui nomor record Hai Heru, Mungkin seperti file terlampir. Regards, Kid 2017-11-01 9:43 GMT+07:00 'Heru Safrudin' fcprocessing.bisiked...@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>: Yth. Mr.Kid, Apa yang diulas Mr. diatas memang benar adanya, maaf jika pertanyaan saya mungkin tidak pentingnya bagi yang lain Tapi saya hanya mencontoh di beberapa aplikasi biasanya dibawah ada tampilan scroll record seperti screenshot berikut : Namun tampilan tidak secara columnar tapi detail per record secara portrait Sedangkan saat ini textbox record saya buat dengan kode sbb: rs.Open "SELECT ID, NAMA, TEMPAT_LAHIR, TGL_LAHIR, FROM `DATA GENERUS.MDB`.GENERUS,con, adOpenKeyset, adLockOptimistic If (Textbox1.Text) > rs.RecordCount Then Exit Sub rs.MoveFirst rs.Move Val(Textbox1.Text) - 1 Demikian mohon maaf Wassalam Heru Safrudin From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com] Sent: 01 Nopember 2017 0:57 To: BeExcel Subject: Re: [belajar-excel] Mengetahui nomor record Wa'alaikumussalam wr wb Hai Heru, imho, Pertanyaannya adalah apa pentingnya nomor record ? Nomor record itu tidak penting sama sekali. Setiap data memiliki kolom-kolom (bisa lebih dari 1) kunci. Dengan kolom-kolom kunci tersebut, maka record dapat diketahui. Sampai sekarang, saya tidak pernah menemukan pentingnya nomor record. Kalau ada 100juta records, maka nomor records hanya akan membuang ruang saja. Posisi record di dalam database tidak diketahui. Andai (andai nih ya), dibuatkan sebuah kolom bernama 'Nomor Record' di dalam tabel database, bagi si database, kolom tersebut seperti kolom lain. Tidak dengan serta merta menunjukkan nomor record. Ok, dari hal di atas, maka bisa disebut bahwa nomor record yang biasa dimaksud adalah urutan natural yang ditampilkan oleh query select from sederhana (tanpa klausa lain). Hasil query itu pun sekadar image (salinan, snapshot, atau apalah menyebutnya). Jadi, hasil query select from sederhana dengan hasil query yang sudah disertai sort (order by) ataupun filter (where), apalagi join (penyandingan dataset) maupun union (penggabungan dataset) dapat menghasilkan image tampilan yang memiliki urutan berbeda. Artinya, nomor record akan relatif terhadap bunyi query-nya. Itu sebabnya, tidak ada query meng-update data berdasar nomor record real, karena nomor record real tidak diketahui. Sampai disini, setidaknya ada kesepakatan bahwa : 1. nomor record itu tidaklah penting 2. nomor record yang dimaksud dalam kasus Anda ini adalah urutan hasil query dan tidak mewakili nomor record asli si data di dalam tabel. Kembali kepada kasus... Saya menghubungkan data XL saya dengan MS-Access dengan koneksi Recordset > Artinya, Anda menggunakan data object seperti ADO melalui Excel VBA. > Hasilnya adalah image dataset hasil query yang disebut recordset. > Hasil query yang dipegang oleh si object recordset ADO tersebut disalin ke > Excel Worksheet > Hasil salinannya adalah values (BUKAN connected data), jadi tidak bisa > di-refresh seperti menggunakan Refresh All yang disediakan Excel. > Refresh data hanya bisa dilakukan jika si prosedur yang berisi proses > penyalinan dari ADO recordset ke Excel worksheet tersebut dijalankan ulang. Pertanyaan saya bisakah kita melihat nomor record pada data kita di Access? > Jika yang dimaksud adalah nomor record yang ditampilkan diakses ketika > membuka tabel dengan nomor record hasil query, maka nomor record yang Anda > maksud tersebut tidak ada hubungannya. > Hal ini berpotensi terjadinya kesalahan baca. Karena hasil query menunjukkan > record ke-1 berisi data x, tapi di Access, ketika membuka tabel tersebut, > record ke-1 adalah data y. > Jika yang dimaksud adalah meniru seperti tampilan si Access, yang ada row > selector-nya (pemilih baris loh ya, bukan nomor record), maka jawabnya bisa. > Konsepnya sama saja, yaitu dari header, di-offset sebanyak N baris. N baris > adalah posisi baris dataset yang ingin dijadikan pusat perhatian (fokus). > di Excel VBA, kira-kira bunyinya : sheets("nama sheetnya").range("a1").offset( 5 ).activate atau application.goto sheets("nama sheetnya").range("a1").offset( 5 ) , scroll:=true 'sebaiknya, baris header di freeze pane dulu > Dan hal ini bisa digunakan untuk segala bentuk dataset (TIDAK hanya dataset > hasil ambil data dari tempat lain), di workbook baru pada worksheet kosong > pun bisa. Demikian pula jika kita ketikkan nomor maka akan nenunjuk ke data record nomor tersebut. Atau kita tombol panah kiri atau kanan, data akan menunjuk ke nomor record dalam textbox > Apapun object yang Anda gunakan sebagai media berinteraksi dengan user, > event-nya diisi dengan proses seperti di atas tadi, bisa pilih, mau pakai > application.goto atau range activate > Jika diinginkan bahwa kalau user menggerakkan active cells di worksheet dan > posisi baris dalam dataset ditampilkan pada object yang Anda gunakan : objectAnda.text = activecells.row - 1 'karena header di baris 1, bila perlu dilengkapi dengan pemeriksaan apakah activecells itu bagian dari dataset > Baris tersebut bisa diletakkan di dalam event milik worksheet yang bernama > Selection Change. > Sila pelajari lagi properti dan event yang dimiliki oleh object yang Anda > gunakan. > Dan hal ini bisa digunakan untuk segala bentuk dataset (TIDAK hanya dataset > hasil ambil data dari tempat lain), di workbook baru pada worksheet kosong > pun bisa. Wassalamu'alaikum wr wb Kid 2017-10-31 15:48 GMT+07:00 'Heru Safrudin' fcprocessing.bisiked...@bisi.co.id [belajar-excel] <belajar-excel@yahoogroups.com>: Dear Be-Exceller, Saya menghubungkan data XL saya dengan MS-Access dengan koneksi Recordset Pertanyaan saya bisakah kita melihat nomor record pada data kita di Access? Demikian pula jika kita ketikkan nomor maka akan nenunjuk ke data record nomor tersebut. Contoh kita isi textbox dibawah ini Atau kita tombol panah kiri atau kanan, data akan menunjuk ke nomor record dalam textbox Mohon pencerahannya Wassalam, Heru Safrudin
