Lompat ke konten Lompat ke sidebar Lompat ke footer

Between Instruksi VBA Untuk Mengatur Pembatasan Ukuran – Part 3 (Form)

www.niguru.com
Niguru.com | Rabu, 13 Mei 2020 | Posting kali ini masih melanjutkan posting sebelumnya yang membahas mengenai fungsi Between yang berguna untuk membatasi tampilan record dari suatu database.

Posting kali ini melanjutkan penjelasan mengenai cara pembuatan form yang akan digunakan sebagai sarana untuk menguji fungsi Between, sehingga pembaca dapat mengetahui cara pemanfaatan fungsi Between bila ditempatkan pada form.

Berikut ini langkah selanjutnya:

  1. Double click tombol command button (dalam gambar bernama Command5), untuk menampilkan window Properties.
  2. Klik tab Other
  3. Name = BatasTgl.



  1. Klik tab Format.
  2. Caption = BATAS.



  1. Klik tab Event.
  2. Scroll down dan pilih Event Procedure pada On Click.
  3. Klik tombol Next (tanda 3 buah titik) untuk masuk ke VBA Editor.



Ketikkan "Table1_subform.Requery" (tanpa tanda petik):



  1. Klik tab Data
  2. Pada Record Source klik tombol Next (tiga titik), untuk menampilkan Query Builder.


Klik Yes:



  1. Mark (tandai) semua field pada Table1.
  2. Drag ke field area pada query.


Ketik "Between [Forms]![Form1]![StartDate] And [Forms]![Form1]![EndDate]" (tanpa tanda petik) pada Criteria pada field Tanggal:


Klik Yes:



Hasilnya, pada Record source terlihat perubahan data:


Klik OK:



Hasilnya:



Bila nilai pada Start dan End dirubah, kemudian dilanjutkan dengan klik tombol BATAS, maka record pada subform akan berubah.
Pada contoh Start = 2/3/2020 dan End = 7/3/2020, maka record yang ditampilkan ada record mulai tanggal 2/3/2020 sampai dengan tanggal 7/3/2020 :



Demikianlah contoh penggunaan fungsi Between dalam form.
Semoga penjelasan pada posting kali ini dapat menambah wawasan dan pengetahuan bagi para pembaca sekalian.

Selamat beraktivitas .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Posting Komentar untuk "Between Instruksi VBA Untuk Mengatur Pembatasan Ukuran – Part 3 (Form)"