VBA Untuk Mencuplik Komponen Tanggal Dalam Format 2 Digit Tanggal Dan 2 Digit Bulan

Niguru.com | Sabtu, 15 Ags 2020 | Melanjutkan penjelasan pada posting sehari sebelumnya yang menjelaskan mengenai cara untuk mencuplik komponen tanggal dengan menggunakan VBA script, maka pada posting kali ini Niguru.com akan menjelaskan cara untuk menghasilkan output yang berbeda.

Pada beberapa kasus seringkali programmer membutuhkan pencuplikan format tanggal dan bulan dalam 2 digit. Misalnya digunakan untuk membuat penomoran otomatis suatu dokumen tertentu.

Berikut ini caranya, mulai dari membuat form untuk uji coba:

1. Jalankan aplikasi MS (Microsoft Access), klik Forms
2. Klik Design
3. Klik Create form in Design view

1. Tambahkan 4 text box (penjelasan detailnya ada pada tabel dibawah)
2. Tambahkan 1 command button dengan nama dan caption = Proses
3. Klik OK untuk menyimpan form

Detail nama field dan teks yang harus ditampilkan pada label setiap field:

Tekan tombol [Alt + F11], untuk membuka VBA Editor, dan ketikkan instruksi:

Private Sub Proses_Click()
Tgl = Format(TglLengkap, "dd")
Bln = Format(TglLengkap, "mm")
Thn = Year(TglLengkap)
End Sub

Simpan hasilnya dan jalankan aplikasi, dengan membuka form, ketikkan sembarang tanggal pada kolom /field Tanggal lengkap.
Lihat hasilnya pada saat tombol Proses ditekan maka tanggal dan bulan yang ditampilkan adalah tanggal dan bulan dalam format 2 digit.

Demikianlah cara untuk membuat cuplikan komponen tanggal dan bulan dalam format 2 digit.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

VBA Untuk Mencuplik Komponen Tanggal

Niguru.com | Jumat, 14 Ags 2020 | Seringkali seorang programmer membutuhkan komponen tanggal pada saat pemrograman. Misalnya saja untuk membuat aplikasi alarm harian, aplikasi tagihan bulanan, dan lain sebagainya.

Pada posting kali ini Niguru.com akan menjelaskan mengenai cara untuk mencuplik komponen tanggal. Dengan menggunakan fungsi VBA tertentu kamu bisa mengambil: tanggal, atau hari atau tahun.

Berikut ini cara membuat form untuk testing berikut VBA-nya:

1. Klik side tab Form
2. Klik Create form in Design view
3. Klik Design

Tempatkan 4 buah text box ke Detail Form:

Rapikan posisi text box dan beri nama field dengan: TglLengkap, Tgl, Bln, Thn.
Sesuaikan label dengan nama fieldnya:

Tambahkan command button ke detail form:

Beri nama dan caption = Proses:

1. Klik pada TglLengkap
2. Atur agar format = Short Date

Klik tombol [Alt + F11] untuk masuk ke VBA Editor, ketikkan instruksi:

Private Sub Proses_Click()
Tgl = Day(TglLengkap)
Bln = Month(TglLengkap)
Thn = Year(TglLengkap)
End Sub

Simpan dan keluar dari VBA Editor setelah selesai:

Instruksi tersebut akan mengaktifkan fungsi tombol Proses.
Hasilnya komponen tanggal akan tampil secara terpisah, dengan fungsi: Day, Month dan Year, yang dituliskan pada VBA:

Contoh bila TglLengkap diisi dengan data lain, dan tombol Proses ditekan:

Demikianlah cara untuk mencuplik komponen tanggal dengan menggunakan fungsi VBA.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Between Instruksi VBA Untuk Mengatur Pembatasan Ukuran – Part 4 (Query)

Niguru.com | Kamis, 14 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 membahas kemampuan fungsi Between untuk membatasi record berdasarkan ukuran yang bukan berupa angka, tanggal ataupun waktu, tapi berdasarkan ABJAD.

Berikut ini contoh fungsi penggunaannya, yang dilengkapi dengan pembuatan tabel dan query pendukungnya.
Pertama kali buat tabel dengan 2 buah field dengan Data Type = Text, masing-masing bernama Inisial dan NamaBinatang:

Tekan tombol [Ctrl + S] untuk menyimpan tabel yang sudah dibuat > klik Yes:

Klik OK:

Klik No:

Hasilnya:

1. Klik side tab Queries.
2. Double click Create query in Design view.
3. Pilih dan klik Table1.
4. Klik Add.

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

Pada Criteria ketikkan: Between "a" And "e"

Tekan tombol [Ctrl + S] untuk menyimpan query > klik OK:

Hasilnya, query hanya menampilkan baris-baris record yang inisialnya dari huruf a sampai huruf e saja:

Demikianlah penjelasan mengenai fungsi Between yang dapat digunakan sebagai pembatas record berdasarkan suatu ukuran yang ditentukan oleh user.

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)

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

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)

Jangan Menggunakan Reserved Word Sebagai Nama Komponen Apapun Pada Aplikasi Pemrograman!

Niguru.com | Sabtu, 14 Des 2019 | Pada posting sehari sebelumnya, Niguru.com menjelaskan mengenai penggunaan perintah SQL untuk menampilkan sebagian record, dimana pada posting tersebut Niguru.com sengaja menampilkan sebuah tabel yang mengandung reserved word, sehingga kalau tidak ditangani dengan benar akan menimbulkan berbagai masalah dalam pemrograman.

Coba perhatikan nama field yang digunakan pada tabel yang digunakan sebagai contoh. Ada field dengan nama Open, Close pada tabel yang digunakan sebagai contoh. OPEN dan CLOSE adalah merupakan kata khusus yang merupakan bagian dari perintah dalam VBA.




Berikut ini contoh tabel dengan konten reserved word bila digunakan pada form, pada aplikasi MS (Microsoft) Access:

Pada form diatas Niguru.com menggunakan tabel dengan field yang namanya sama dengan reserved word Open dan Close.

Untuk membuktikan bahwa penggunaan reserved word sebagai nama, akan mengakibatkan masalah, maka disini Niguru.com menambahkan sebuah tombol (TEST) dan sebuah text box dengan nama “test01”.

Niguru.com akan mencoba membuat penjumlahan Test01 = Open + Close saat tombol TEST ditekan:

Seperti terlihat pada gambar, tampil Compile error.

Sekarang perhatikan bila nama Text Box Open diganti menjadi NewOpen dan Text Box Close diganti namanya menjadi NewClose:

Niguru.com kemudian mencoba mengulang kembali operasi penjumlahan Open + Close dengan nama baru:

Penggantian nama membuat fungsi penjumlahan bisa berjalan tanpa error.

Namun untuk menghindari masalah dalam pemrograman, sebaiknya hindari penggunaan reserve word (kata yang dipakai sebagai perintah dalam pemrograman) untuk menamai komponen apapun.

Demikianlah penjelasan mengenai larangan penggunaan reserved word untuk menamai komponen apapun yang digunakan dalam program.

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)

VBA Untuk Menjalankan Query Pada Microsoft Access

Niguru.com | Sabtu, 17 Ags 2019 | Dalam pembuatan program seringkali diperlukan manipulasi data dari tabel yang berada pada database.

Cara untuk memanipulasi data dari tabel yang paling mudah adalah dengan memanfaatkan fasilitas QUERY yang tersedia pada semua aplikasi pengolah database, termasuk database MS (Microsoft) Access.



Pada bulan Februari 2019 lalu Niguru.com sudah beberapa kali membahas mengenai cara pembuatan query lewat beberapa artikel.
Pada posting kali ini Niguru.com akan menjelaskan mengenai cara untuk menjalankan query lewat VBA.

Untuk menjalankan query yang sudah ada dalam bentuk tabel, dapat digunakan perintah:

DoCmd.OpenQuery "namaQuery"

Contoh:
DoCmd.OpenQuery "q_simpan2"

Sedangkan untuk menjalankan query yang belum dibuat “tabel query”-nya, adalah dengan perintah:

DoCmd.RunSQL “instruksi SQL”

Contoh:
DoCmd.RunSQL  “SELECT IDsimpan, simpan FROM t_simpan ORDER BY IDsimpan DESC;”


Note:
Query yang dibuat dalam bentuk tabel adalah salah satu fasilitas yang disediakan oleh aplikasi MS Access, dan tidak tersedia pada bahasa pemrograman Visual Basic.

Query yang dapat dibangun dalam bentuk tabel adalah fasilitas untuk mempermudah user /programmer dalam membuat query.

Demikianlah penjelasan mengenai cara untuk menjalankan query lewat VBA.
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

Function Untuk Mengisi Field Dengan Angka Berurutan Dalam Hitungan Maju

Niguru.com | Kamis, 15 Ags 2019 | Dalam menyusun program kadangkala Niguru.com memerlukan sebuah tabel dengan jumlah record yang sudah Niguru.com batasi dan didalamnya sudah terdapat sebuah field yang berisi angka yang berurutan.

Kadangkala Niguru.com membutuhkan angka berurutan maju/naik (up counting) yang biasanya diberlakukan untuk form khusus yang hanya bisa diedit dan tidak pula bisa dihapus atau ditambah.



Tabel record terbatas semacam ini biasanya digunakan untuk mencatat daftar penumpang pada kendaraan umum atau pesawat, daftar pengunjung bioskop yang jumlah kursinya memang terbatas, daftar undangan terbatas, dan lain sebagainya yang record-nya memang terbatas.

Untuk keperluan ini Niguru.com menggunakan function khusus, yang pada artikel kali ini Niguru.com bagikan kepada para pembaca sekalian.
Berikut ini adalah instruksi untuk function tersebut:

'Function Up Counter:
'-----------------------------
Public Function UpCounter(tableKu As String, fieldKu As String, counterNum As Integer) As Boolean
Dim sqlKu As String
Dim upCnt As Integer
UpCounter = False
upCnt = 0

If counterNum <> 0 Then
Do While counterNum > 0
upCnt = upCnt + 1
sqlKu = "INSERT INTO " & tableKu & " ( " & fieldKu & " ) SELECT " & upCnt & " AS dataKu;"
DoCmd.SetWarnings False
DoCmd.RunSQL sqlKu
DoCmd.SetWarnings True
counterNum = counterNum - 1
Loop
UpCounter = True
End If

End Function
'-----------------------------

Untuk menggunakannya user harus membuat sebuah variabel bertipe data boolean, dan isi dengan nama tabel, nama field, dan jumlah record yang ingin diisi dengan angka hitungan maju/naik. Contohnya sebagai berikut:

Dim dataKu As Boolean
dataKu = UpCounter("tabel_penumpang", "IDpenumpang", 120)

Setelah selesai maka dataKu akan menjadi TRUE. Namun apabila parameter ketiga = 0, maka dataKu akan menjadi FALSE
'-----------------------------
Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)