Mengenal Instruksi ME Yang Menyederhanakan Penulisan Obyek Untuk Diri Sendiri Pada VBA

Niguru.com | Selasa, 29 Jun 2021 | Dalam penulisan instruksi VBA seringkali programmer perlu menuliskan obyek yang akan dimanipulasi oleh perintah yang akan dieksekusi. Misalnya Forms!f_absensi.visible = True.

Dalam penulisan VBA penulisan ini bisa dituliskan dengan lebih singkat apabila instruksi VBA tersebut dituliskan pada form yang sama dimana obyek yang akan dimanipulasi tersebut berada, dengan mengganti nama obyek tersebut dengan ME yang berarti diri sendiri.

Perhatikan form berikut ini:

Niguru.com akan menambahkan event on load yang akan memanipulasi caption pada form:

Membuat caption (judul yang tampil pada frame atas form) tampil dengan tulisan "Selamat Belajar".
Dengan menuliskan VBA:
Forms!Form1.Caption = "Selamat Belajar" :

Hasilnya:

Instruksi ini bisa dibuat lebih sederhana dengan mengganti obyek yang dimanipulasi dengan ME:

 

Note:

Instruksi sebelumnya dibuat non aktif dengan menambahkan tanda petik tunggal di awal baris instruksi.

Hasilnya sama dengan sebelumnya:
 

Demikianlah penjelasan mengenai cara pemanfaatan instruksi ME dalam VBA.

Semoga penjelasan pada posting kali ini dapat menambah wawasan dan pengetahuan bagi teman-teman pembaca sekalian.

Selamat beraktivitas .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Membuat Database Window Tampil Minimal Saat Suatu Form Dibuka

Niguru.com | Senin, 19 Okt 2020 | Pada MS ( Microsoft) Access versi 2003 atau versi yang lebih lama, terdapat database window, yaitu suatu window yang menampung berbagai obyek untuk membuat aplikasi, seperti tabel, query, form, report dan lain sebagainya.

Untuk membuat suatu form tampil tanpa terganggu tampilan database window, maka user bisa menyisipkan sebaris instruksi VBA di dalam form agar, pada saat form tersebut dibuka, database window akan langsung tampil dalam mode minimize.

Berikut ini caranya:

1. Pilih dan klik Form pada objects.
2. Klik Create form in Design view.
3. Pilih dan klik komponen Label.
4. Buat label di canvas.
5. Ketikkan teks pada label tersebut, misal: Uji Coba Database Window.

1. Perbesar font pada label, misal = 22.
2. Tekan tombol [Ctrl + S] untuk menyimpan, beri nama form, misal: Form1.
3. Klik OK

1. Double-click pada sudut kiri atas frame Form.
2. Pilih tab Event.
3. Pada event On Open, scroll down dan pilih [Event Procedure].
4. Klik tombol untuk masuk ke VBA Editor (tombol dengan tiga titik).

Ketikkan:
DoCmd.SelectObject acForm, "form1", True
DoCmd.Minimize

Simpan pekerjaan tersebut, dan buka kembali form yang sudah dibuat.
Hasilnya saat form tersebut (= Form1) dibuka, maka database window akan tampil dalam mode minimize, sementara Form1 tetap tampil normal:

Demikianlah cara untuk membuat database window tampil minimal pada saat suatu form dibuka.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Mengatur Record Source Pada Suatu Form Lewat VBA - Part 2 (Form Dan VBA)

Niguru.com | Kamis, 1 Okt 2020 | Posting kali ini melanjutkan posting sehari sebelumnya yang membahas mengenai cara mengatur record source dari suatu form lewat VBA. Dimana biasanya pengaturan record source hanya dilakukan pada saat pembuatan form saja.

Bila pada posting sehari sebelumnya, Niguru.com menjelaskan mengenai cara pembuatan tabel yang akan digunakan sebagai record source, maka pada posting kali ini Niguru.com akan menjelaskan pada bagian form dan cara menyisipkan instruksi VBA didalamnya.

1. Klik side tab Forms.
2. Double click Create form in Design view.
3. Klik icon Label.
4. Drag area pada Detail form untuk membuat label > ketikkan : SWITCH RECORD SOURCE.

Perbesar teks pada label dengan mengubah font size menjadi = 18:

1. Klik side tab Tables.
2. Klik Table1.
3. Drag Table1 ke area Detail dari form. Dengan cara ini maka secara otomatis tercipta sub form dari Table1.
4. Klik Finish.

Hasilnya:

1. Klik icon check box.
2. Drag check box di detail area form.

Ganti label check box menjadi pilihan Binatang/Tumbuhan

1. Double click check box.
2. Klik tab Other
3. Edit agar Name = PilihBtn.

1. Klik tab Event.
2. Scroll down After Update > pilih Event Procedure.
3. Klik tombol Next (titik tiga).
   

Ketika VBA Editor tampil, ketikkan instruksi sebagai berikut:

If PilihBtn Then

Table1_subform.Form.RecordSource = "table1"

Else

Table1_subform.Form.RecordSource = "table2"

End If

     

Ganti label NamaBinatang menjadi Nama, karena kolom ini digunakan juga nantinya untuk nama tumbuhan juga:

 

 

 Tekan tombol [Ctrl + S] untuk menyimpan form > klik Yes, saat window konfirmasi Save tampil:

 

 

 

Hasilnya, saat Form1 dibuka, dan check box dicontreng:

 

 

 

Hasilnya, saat Form1 dibuka, dan check box dikosongkan:

 

 

 

Untuk pembaca yang ingin mendapatkan file latihan yang sudah dibuat dengan langkah-langkah yang dijelaskan tadi, tanpa membuat sendiri, bisa download di URL: http://hideadew.com/LUK

Klik tombol Next (tiga titik):

Klik Download:

Hasilnya file contoh akan terdownload:

Demikianlah langkah-langkah untuk mengatur record source dari suatu form lewat VBA.

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)

Mengatur Record Source Pada Suatu Form Lewat VBA - Part 1 (Tabel)

Niguru.com | Rabu, 30 Sep 2020 | Agar suatu form dapat menampilkan record yang tersimpan pada suatu tabel, maka record source dari form tersebut haruslah berasal dari tabel yang sesuai. Dan pengaturan record source dilakukan pada saat desain form dibuat.

Pada posting kali ini Niguru.com akan membahas sebuah trik pada form MS (Microsoft) Access, untuk melakukan pengaturan record source lewat suatu instruksi pada VBA.

Berikut ini langkah-langkah pembuatan form untuk pengujian dan cara penempatan instruksi VBA di dalamnya:

1. Buka aplikasi MS Access > Klik  Blank database, untuk membuat database baru.
2. Ketikkan VBASource.MDB sebagai nama (boleh nama lain).
3. Klik Create.

1. Klik side tab Tables.
2. Double click Create table in Design view.
3. Buat field ID (Data Type = Number), field Nama (Data Type = Text).
4. Caption untuk field Nama = NamaBinatang.

Tekan tombol [Ctrl + S] untuk menyimpan (Save) > Klik OK:

Saat window yang menawarkan untuk membuat Primary Key tampil, klik No:

1. Sekali lagi kli side tab Tables, untuk menambahkan satu buah tabel lagi.
2. Double click Create table in Design view.
3. Buat field ID (Data Type = Number), field Nama (Data Type = Text).
4. Caption untuk field Nama = NamaTumbuhan.

Tekan tombol [Ctrl + S] untuk menyimpan (Save) > Klik OK:

Saat window yang menawarkan untuk membuat Primary Key tampil, klik No:

Buka Table1 dan isikan ID secara berurut, dan nama binatang seperti pada contoh (boleh juga mengisi nama binatang yang berbeda dengan contoh):

Buka Table1 dan isikan ID secara berurut, dan nama tumbuhan seperti pada contoh (boleh juga mengisi nama tumbuhan yang berbeda dengan contoh):

Demikianlah persiapan pembuatan 2 buah tabel yang nantinya akan digunakan sebagai record source bagi form yang akan dibuat.

Posting ini bersambung ke posting berikutnya.

Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Cara Untuk Menyembunyikan Ribbon Pada Saat Sebuah Form Dibuka

Niguru.com | Minggu, 13 Sep 2020 |Pada MS (Microsoft) Access versi 2007, atau versi berikutnya yang lebih baru, baris-baris menu dan icon-icon pada toolbar digantikan dengan RIBBON.

Berbeda dengan toolbar yang bisa dengan mudah disembunyikan lewat startup settings, ribbon bisa disembunyikan permanen secara manual, atau bila ingin disembunyikan saat membuka aplikasi tertentu, harus menggunakan instruksi VBA untuk pengaturannya.

Berikut ini langkah-langkah untuk menyembunyikan ribbon.
Untuk uji coba ini Niguru.com menggunakan form yang sudah dibuat dengan langkah-langkah yang sudah dijelaskan pada posting kemarin (baca: Membuat Database Window Tampil Minimal Saat Suatu Form Dibuka):

1. Double-click ujung kiri atas frame dari Form
2. Pilih tab Event
3. Pada event On Open, scroll down dan pilih [Event Procedure]
4. Klik tombol untuk membuka VBA Editor (tombol tiga titik)

Pada VBA Editor, terlihat sudah ada instruksi pada event On Open, karena pada uji coba form sebelumnya diisikan instruksi untuk membuat database window tampil minimize.
Tambahkan instruksi:
On Error Resume Next
DoCmd.ShowToolbar "Ribbon", acToolbarNo

Simpan hasilnya, dan apabila form tersebut (Form1) dibuka pada MS Access 2003 yang tidak memiliki ribbon maka, perintah untuk menyembunyikan ribbon tidak berfungsi, dan hanya berfungsi instruksi sebelumnya yang digunakan untuk membuat database window tampil minimize:

Bila aplikasi dijalankan pada MS Access 2007 atau versi yang lebih baru, maka sebelum Form1 dibuka, ribbon dan navigation pane akan tampil normal.

Pada saat Form1 dijalankan maka dua baris instruksi pertama pada event On Open akan menyembunyikan ribbon, dan dua baris instruksi berikutnya akan membuat Navigation Pane tampil dalam mode hidden (= tersembunyi):

Demikianlah cara untuk menyembunyikan ribbon pada MS Access pada saat sebuah form dibuka.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)