CONTOH PENGGUNAAN SELECT CASE
DI MICROSOFT ACCESS DENGAN VBA
Hai
para sobat blogger dan adik-adikku masih merupakan lanjutan dari Logika
Sederhana di MS. Access, berikut ini saya mencoba bahas contoh penggunaan SELECT
CASE di Ms. Access, dengan menggunakan Visual Basic for Application (VBA).
Ok lansung
aja langkah-langkahnya:
1.
Desainlah
form seperti gambar dibawah ini.
2.
Aturlah
property sebagai berikut:
a.
TextBox1
:
8 Format : General
Number
8 Name : Nhadir
b.
TextBox2
8 Format : General
Number
8 Name : NUts
c.
TextBox3
8 Format : General
Number
8 Name : NUas
d.
TextBox4
8 Format : General
Number
8 Name : NTugas
e.
TextBox5
8 Format : General
Number
8 Name : Nakhir
8 Locked : Yes
f.
TextBox6
8 Format : General
Number
8 Name : NHurup
8 Locked : Yes
g.
Button1
8 Caption :
&Proses
8 Name : CmdProses
h.
Button
8 Caption :
&Close
8 Name : CmdClose
3.
Klik
pada tombol Proses,, pada Tab Event,,pilih On Click…masukkan code
berikut:
nakhir.Value =
((nhadir.Value * 0.15) + (nuts.Value * 0.3) + (nuas.Value * 0.35) +
(ntugas.Value * 0.2))
Select Case nakhir
Case Is >= 85
nhurup = "A"
Case Is >= 75
nhurup = "B"
Case Is >= 65
nhurup = "C"
Case Is >= 55
nhurup = "D"
Case Else
nhurup = "E"
End Select
4.
Pada
tombol Close, ketik code berikut:
DoCmd.Close
5.
Jalankan
program, jika tidak terjadi kesalahan maka hasil seperti gambar dibawah ini.
SEMOGA BERMANFAAT
