Fungsi Select Case

Fungsi Select Case adalah fungsi alternatif dari fungsi If...Then...Else/ElseIf...

Dengan fungsi Select Case kita lebih dipermudah dalam menangani sebuah event yang memiliki banyak kriteria/nilai dari sebuah Field. Dengan kata lain jika kita tidak memahami fungsi Select Case maka kita akan menuliskan code If...Then...Else/ElseIf... berulang-ulang (tergantung dari jumlah kriteria/nilai dari Field yang menjadi acuan kita). Misalnya ada sebuah Textbox yang memiliki Sumber data dari sebuah ComboBox, dan value/nilai dari ComboBox berjumlah 5 data, jika kita menggunakan fungsi If..Then...Else/ElseIf... maka kita harus mengulang fungsi If...Then...Else/ElseIf... sebanyak 5 kali pula. Fungsi select case akan memudahkan kita dalam mengatur kondisi-kondisi tersebut, karena penulisan statementnya sangat mudah, kita hanya tinggal menentukan kondisi-kondisinya saja lalu memasukkan kondisi hasilnya. Berbeda dengan fungsi If then Else atau If Then ElseIf, yang "mengharuskan" kita untuk benar-benar memikirkan kondisi-kondisi yang harus mendapatkan "prioritas" untuk dituliskan pertama agar kondisi-kondisinya tidak saling "tumpang tindih", dalam arti kondisi-kondisi tersebut tidak boleh saling bertolak belakang, misalnya anda tempatkan IsNull di akhir EleIf, hal ini akan menyebabkan error atas fungsi anda, karena seharusnya fungsi IsNull diletakkan pada bagian awal dari fungsi If. Namun tidak demikian halnya dengan fungsi Select Case, karena fungsi Select Case akan membuat access secara otomatis mencari kondisi yang paling sesuai pada statement Select Case tersebut atas keadaan yang sedang terjadi.

Struktur dari Fungsi Select Case adalah :

Select Case <Nama Fungsi/Field Acuan>

Case <Pertama>

<Value/Nilai yang diinginkan>

Case <Kedua>

<Value/Nilai yang diinginkan>

Case <Ketiga>

<Value/Nilai yang diinginkan>

Case <Keempat>

<Value/Nilai yang diinginkan>

dan seterusnya...

Case Else

<Value/Nilai yang diinginkan>

End Select

Contohnya :

Jika Menggunakan Fungsi If...Then...Else/ElseIf :

If Me.ComboBox1.Column(1) = "1" Then

TextBox1= "Januari"

ElseIf Me.ComboBox1.Column(1) = "2" Then

Textbox1= "Februari"

ElseIf Me.ComboBox1.Column(1) = "3" Then

Textbox1= "Maret"

ElseIf Me.ComboBox1.Column(1) = "4" Then

Textbox1= "April"

ElseIf Me.ComboBox1.Column(1) = "5" Then

Textbox1= "Mei"

ElseIf Me.ComboBox1.Column(1) = "6" Then

Textbox1= "Juni"

ElseIf Me.ComboBox1.Column(1) = "7" Then

Textbox1= "Juli"

ElseIf Me.ComboBox1.Column(1) = "8" Then

Textbox1= "Agustus"

ElseIf Me.ComboBox1.Column(1) = "9" Then

Textbox1= "September"

ElseIf Me.ComboBox1.Column(1) = "10" Then

Textbox1= "Oktober"

ElseIf Me.ComboBox1.Column(1) = "11" Then

Textbox1= "November"

ElseIf Me.ComboBox1.Column(1) = "12" Then

Textbox1= "Desember"

Else

MsgBox "Bukan Nomor Bulan", vbInformation

End If

Jika menggunakan fungsi Select Case :

Select Case ComboBox1.Column(1)

Case Is = 1

TextBox1 = "Januari"

Case Is = 2

TextBox1 = "Februari"

Case Is = 3

TextBox1 = "Maret"

Case Is = 4

TextBox1 = "April"

Case Is = 5

TextBox1 = "Mei"

Case Is = 6

TextBox1 = "Juni"

Case Is = 7

TextBox1 = "Juli"

Case Is = 8

TextBox1 = "Agustus"

Case Is = 9

TextBox1 = "September"

Case Is = 10

TextBox1 = "Oktober"

Case Is = 11

TextBox1 = "November"

Case Is = 12

TextBox1 = "Desember"

Case Else

MsgBox "Bukan Nomor Bulan", vbInformation

End Select

untuk file contoh penggunaan fungsi ini bisa didownload dari 4shared

Semoga bermanfaat...

Posted in: belajar access 2003