02 January 2020

Beginilah Cara Membuat Tombol Tampil Pop Up Ala Web Pada Form Microsoft Access – Part 3 (Function)

www.niguru.com
Niguru.com | Kamis, 2 Jan 2020 | Bila pembaca perhatikan langkah-langkah pembuatan tombol Pop Up yang dijelaskan pada posting sehari sebelumnya, sudah dijelaskan bahwa instruksi VBA yang panjang dapat diringkas dengan menggunakan Procedure. Namun instruksi VBA yang diringkas dengan memanfaatkan penggunaan Procedure tersebut juga masih belum optimal, karena seharusnya instruksi tersebut masih bisa dibuat lebih ringkas lagi.

Pada posting kali ini Niguru.com akan menjelaskan cara untuk meringkas instruksi yang ada, menjadi instruksi yang lebih ringkas lagi, dan kali ini dengan memanfaatkan penggunaan Function.

Berikut ini langkah-langkah untuk penulisan Function, untuk membuat tombol Pop Up pada form MS (Microsoft) Access.
Berikut ini langkah-langkahnya.
Masih sama seperti pada penjelasan pada posting sebelumnya, buat Form Design > tempatkan 3 buah Button (tombol), beri nama Command0, Command1, dan Command2 (biasanya nama ini merupakan default, dan akan tampil berurutan) > atur agar ukuran 3 Button ini sama besar:

 www.niguru.com

Buka VBA Editor, dan ketik pada VBA Editor:
Option Compare Database
Option Explicit

Dim Height1 As Single, Height2 As Single
Dim FontSize1 As Single, FontSize2 As Single

Private Sub Form_Load()
Height1 = Command0.Height
Height2 = Command0.Height * 1.2
FontSize1 = Command0.FontSize
FontSize2 = Command0.FontSize * 1.3
End Sub

www.niguru.com

Note:
Pada bagian pembukaan ini, dimana pada VBA dideklarasikan 4 buah variabel dan dilanjutkan dengan pengisian nilai pada semua variabel tersebut pada Event On Load, masih sama dengan cara yang sudah dijelaskan pada posting sebelumnya.

Disinilah perbedaannya. Setelah penulisan instruksi event On Load, lanjutkan dengan penulisan Function bernama MouseOver, yang bisa digunakan untuk “tombol yang mana saja”:

Function MouseOver(myBtn As Object, isMO As Boolean) As Boolean
If isMO Then
myBtn.Height = Height2
myBtn.FontBold = True
myBtn.FontSize = FontSize2
MouseOver = True

Else
myBtn.Height = Height1
myBtn.FontBold = False
myBtn.FontSize = FontSize1
MouseOver = False
End If
End Function

www.niguru.com


Cara penggunaannya:
MouseOver [nama tombol], [true untuk membuat aktif mouse over, atau false untuk membuat non aktif mouse over]

Berikut ini penulisan Function untuk seluruh tombol, pada VBA Editor:

Private Sub Command0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseOver Command0, True
MouseOver Command1, False
MouseOver Command2, False
End Sub

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseOver Command1, True
MouseOver Command0, False
MouseOver Command2, False
End Sub

Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseOver Command2, True
MouseOver Command0, False
MouseOver Command1, False
End Sub

Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseOver Command0, False
MouseOver Command1, False
MouseOver Command2, False
End Sub


www.niguru.com


Karena semua Procedure tombol sudah dituliskan dengan menggunakan Function MouseOver, maka berikutnya tinggal memastikan bahwa Event Procedure pada setiap tombol sudah aktif.

Double-click Button Command0 > tab Event > On Mouse Move = Event Procedure:

 www.niguru.com

Double-click Button Command1 > tab Event > On Mouse Move = Event Procedure:

 www.niguru.com

Double-click Button Command2 > tab Event > On Mouse Move = Event Procedure:

www.niguru.com

Double-click frame Detail > tab Event > On Mouse Move = Event Procedure:

www.niguru.com

Demikianlah penjelasan mengenai cara untuk membuat tombol tampil pop up, dengan instruksi yang lebih ringkas, dengan memanfaatkan Function. Penjelasan mengenai trik pembuatan tombol pop up ini selesai pada posting ini.

Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)

No comments:

Post a Comment