MEMBUAT LOGIKA SEDERHANA (IF)

MEMBUAT LOGIKA SEDERHANA (IF)

DI MICROSOFT ACCESS DENGAN VBA

Hai para sobat blogger dan adik-adikku semua,,baru sempat posting lagi…,,access dasar nih, berikut ini saya mencoba bahas contoh penggunaan logika IF 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))

  If nakhir.Value >= 85 Then

     nhurup.Value = "A"

     Else

        If nakhir.Value >= 75 Then

           nhurup.Value = "B"

           Else

              If nakhir.Value >= 65 Then

                 nhurup.Value = "C"

                 Else

                    If nakhir.Value >= 55 Then

                       nhurup.Value = "D"

                       Else

                          nhurup.Value = "E"

                    End If

              End If

        End If

  End If

4.      Pada tombol Close, ketik code berikut:

DoCmd.Close

5.      Jalankan program, jika tidak terjadi kesalahan maka hasil seperti gambar dibawah ini.

 

SEMOGA BERMANFAAT