Memahami "IF-THEN-ELSE Statement" di Microsoft Access Bagian 1

If ... Then ... Else Statement (Visual Basic) adalah pernayataan pemrograman yang menggunakan parameter kondisi tertentu untuk melakukan eksekusi suatu perintah berdasarkan kondisi yang ditentukan.

Penggunaan If ... Then ... Else Statement memerlukan logika dalam penulisannya, karena parameter kondisi dapat berupa bermacam-macam parameter. Tergantung pada pembuat program. Oleh karena itu, untuk menjadi seorang programer yang ahli diperlukan pemikiran dan logika yang bagus, baik secara matematis maupun non matematis.

Demo File:

If-Then-Else Statement

Contoh dan Penjelasan:

Bagian 1.

If kondisi_1 Then
Hasil jika kondisi_1 terjadi
Else
Hasil jika kondisi_1 tidak terjadi
End If

1. Pernyataan If selau diikuti dengan kondisi kemudian pernyataan Then

2. Baris kedua adalah hasil atau perintah yang dieksekusi apabila parameter kondisi terjadi.

3. Else merupakan kebalikan dari kondisi_1, yaitu jika kondisi_1 tidak terjadi maka kondisi yang terjadi kebalikan dari kondisi_1.

4. Baris setelah Else merupkan hasil atau perintah yang akan dijalankan apabila kondisi_1 tidak terjadi.

5. Baris terakhir End if berfungsi untuk menutup If-Then-Else Statement. (Wajib)

 Contoh Bagian 1

 If Not IsNull(Me.txtNama) Then 

 MsgBox "Nama saya "  & Me.txtNama.Value

 Else
 MsgBox "Masukkan nama Anda."
 End If

Penjelasan:

Ketika nilai object txtNama tidak sama dengan Null. Maka Perintah selanjutnya adalah menampilkan MessageBox (MsgBox "Nama saya "  & Me.txtNama.Value). 

Jika ternyata nilai object txtNama bernilai Null, maka perintah yang dijalankan adalah menampilkan MessageBox (MsgBox "Masukkan nama Anda.")

Catatan:

Else dalam If-Then-Else statement adalah bersifat opsional.

Access Tips: Easy Close Form with ESC Key

Kali ini saya akan berbagi tips mudah bagaimana agar form atau window form dapat ditutup dengan mudah hanya dengan menekan tombol ESC atau Escape di Keyboard (biasanya harus menekan command button close atau tombol close di pojok kanan window).

Undul file latihan:

Easy Close Form with ESC key

Kalau saya pribadi tentu akan lebih memilih metode menekan ESC untuk menutup jendela Form yang terbuka, hal ini berdasarkan pertimbangan kemudahan navigasi, easy open and easy close. Akan tetapi juga perlu memperhatikan tipe form yang kita buat.

Oke, langsung saja, caranya cukup simpel, yaitu:

1. Buat form baru, bisa blank form.

2. Ctrl+S dan beri nama sesuai keinginan, misalnya "Modal".

3. Atur Property Sheet Form seperti gambar di bawah:

Untuk Border Style di buat None saja.

4. Kemudian buat sebuah Command Button, atur nama object pada Tab Other dengan nama cmd_Close.

5. Klik kana -> pilih code builder dan ketik code berikut:

Kode:
Private Sub cmd_Close_Click()
DoCmd.Close
End Sub

6. Ctrl+S dan close code builder.

7. Ilustrasi form seperti berikut:

Command Button "cmd_Close" berwarna biru di pojok kanan atas.

8. Klik command button "cmd_Close", atur Property Sheet pada Tab Other seperti berikut:

Ubah nilai property Cancel dari No ke Yes.

9. Ctrl+S dan form siap dijalankan.

10. Hasilnya seperti berikut setelah beberapa penyesuaian dan tambahan:

 11. Tampilan form ketika di jalankan.

12. Untuk menutup form, tekan tombol ESC.

Semoga Bermanfaat dan Selamat Mencoba.

Untuk kritik dan saran silakan pos di komentar :).

Penulis: Trisna Novi Ashari - Universitas Negeri Semarang '11

Modul VBA: Konversi "Hexadecimal Color Codes" Agar Bisa Digunakan dalam Penulisan Kode VBA

Pada kesempatan ini, saya akan berbagi ilmu tentang Hex Code dan bagaimana cara membuat fungsi untuk mengkonversi Hex Code agar dapat digunakan saat menulis kode VBA.

Hexadecimal Color Code atau lebih dikenal sebagai Hex Color Code adalah kode warna yang penulisannya terdiri dari angka 0-9 dan huruf A-F. Format penulisan Hex Code  adalah #rrggbb.

Contoh: #ff0000 akan menghasilkan warna merah dalan Hex Code.

Contoh: rgb(255,0,0) akan menghasilkan warna merah dalan Hex Code.

# /tanda pagar menandakan bahwa kode tersebut adalah Hex Color

rr mewakili warna merah (red)

gg mewakili warna hijau (green)

bb mewakili warna biru (blue)

Jika Anda mengenal format RGB color, tentunya Anda akan punya pemikiran bahwa Hex Code memiliki hubungan dengan RBG Color Format. 

Hex Code sangat terkenal dalam dunia pemrograman web, karena dalam penulisan css (Casscading Style Sheet) khusunya berkaitan dengan property color. Berbeda dalam pemrograman VBA khusunya di Microsoft Visual Basic For Applications, kita tidak dapat asal menggunakan Hex Code, misalnya:

Me.nama_object.BackColor="#ff0000"

Hal ini dikarenakan VBA hanya mengenal vbColor serta Hex Code/RGB Color dengan format Long Type Data.

Misalnya:

vbColor:Me.nama_object.BackColor=vbRed
Me.nama_object.BackColor=vbWhite
Me.nama_object.BackColor=vbBlack
Me.nama_object.BackColor=vbGreen
Me.nama_object.BackColor=vbBlue
Me.nama_object.BackColor=vbYellow
Me.nama_object.BackColor=vbMagenta
Me.nama_object.BackColor=vbCyan

Sedangkan untuk menggunakan Hex Code perlu membuat modul fungsi.

Untuk itu, pada saat kita ingin menggunakan Hex Code dalam penulisan kode VBA, maka perlu membuat fungsi konversi dari kode warna Hex Code ke dalam tipe data Long.

Logikanya adalah:
1. Menghilangkan tanda pagar (#), bersifat opsional saat penulisan Hex Code.
2. Memilah mana yang sebagai R, G dan B.
3. Membalikkan format dari RGB ke format BGR.
3. Mengkonversi kedalam tipe data Long Number dengan fungsi  CLng().

Langkah-langkah:
1. Buat Module baru dan simpan dengan nama sesuai dengan keinginan Anda, misal HexColor.
2. Copy dan Paste kode yang ada di bawah.
3. Ctrl+S
4. Siap digunakan.

Kode dan penjelasan:
Option Explicit
Public Function HexColor(strHex As String) As Long

'Contoh Penggunaan:
'Me.object_name.BackColor=HexCode("#ff0000")

'Me.Text0.BackColor=HexCode("#ff0000")

'Me.Text0.BorderColor=HexCode("#ff0000")

'Deklarasi variabel 

 Dim strColor As String 

 Dim strR As String 

 Dim strG As String 

 Dim strB As String

'Menghilangkan tanda pagar (#) jika nilai strHex mengandung tanda pagar, misal: #ffffff

'Jika tidak mengandung tanda (#) secara otomatis langkah ini akan dilewati, misal: ffffff 

 If Left(strHex, 1) = "#" Then 

 strHex = Right(strHex, Len(strHex) - 1)

 End If 

 'Memilah mana yang sebagai R, G, dan B dari format Hex Code : #RRGGBB

strR = Left(strHex, 2) strG = Mid(strHex, 3, 2) strB = Right(strHex, 2)

'Membalik format dari RGB ke BGR'Misal dari kode #fa91d3 menjadi #d391fa
strColor = strB & strG & strR

'Mengkonversi hasil pembalikan "strColor" ke dlama tipe data Long Number 

 HexColor = CLng("&H" & strColor)
End Function

Semoga bermnfaat dan selamat Mencoba.

Penulis: Trisna Novi Ashari - Universitas Negeri Semarang '11