Beginilah Cara Membuat Tombol Tampil Pop Up Ala Web Pada Form Microsoft Access – Part 1 (Mouse Over)

Niguru.com | Selasa, 31 Des 2019 | Pada web page yang menampilkan tombol, yang biasanya merupakan bagian dari menu, atau suatu pengarah untuk membuka URL (link) yang sudah ditentukan, biasanya tombol akan berubah bentuk saat “mouse over” (mouse berada diatas suatu obyek tertentu).

Pada aplikasi MS (Microsoft) Access, event mouse over tidak tersedia, sehingga perlu suatu trik khusus untuk membuat sebuah tombol dapat berubah bentuk saat mouse over.

Pada posting kali ini Niguru.com akan memberikan trik untuk membuat tombol yang ada pada form MS Access dapat membesar saat mouse over, sehingga dapat memberikan kesan POP UP (= obyek yang tampak maju dari posisi semula).

Untuk lebih jelasnya lihat pada tayangan video berikut ini, yang memperlihatkan tombol yang tampil Pop Up:


Berikut ini langkah-langkahnya.
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:

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

Double-click Button Command0 > tab Event > On Mouse Move = Event Procedure > klik [...]:

Pada VBA Editor:
Private Sub Command0_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command0.Height = Height2
Command0.FontBold = True
Command0.FontSize = FontSize2

Command1.Height = Height1
Command1.FontBold = False
Command1.FontSize = FontSize1
Command2.Height = Height1
Command2.FontBold = False
Command2.FontSize = FontSize1
End Sub

Double-click Button Command1 > tab Event > On Mouse Move = Event Procedure > klik [...]:

Pada VBA Editor:
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command1.Height = Height2
Command1.FontBold = True
Command1.FontSize = FontSize2

Command0.Height = Height1
Command0.FontBold = False
Command0.FontSize = FontSize1
Command2.Height = Height1
Command2.FontBold = False
Command2.FontSize = FontSize1
End Sub

Double-click Button Command2 > tab Event > On Mouse Move = Event Procedure > klik [...]:

Pada VBA Editor:
Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command2.Height = Height2
Command2.FontBold = True
Command2.FontSize = FontSize2

Command0.Height = Height1
Command0.FontBold = False
Command0.FontSize = FontSize1
Command1.Height = Height1
Command1.FontBold = False
Command1.FontSize = FontSize1
End Sub

Dan sebagai penutup tambahkan pada VBA Editor:
Private Sub Detail_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command0.Height = Height1
Command0.FontBold = False
Command0.FontSize = FontSize1
Command1.Height = Height1
Command1.FontBold = False
Command1.FontSize = FontSize1
Command2.Height = Height1
Command2.FontBold = False
Command2.FontSize = FontSize1

End Sub

Demikianlah penjelasan mengenai cara untuk membuat tombol tampil pop up. Penjelasan mengenai trik ini akan dilanjutkan pada posting selanjutnya.

Selamat mencoba .. Have a nice day :-)

www.Niguru.com (Nino Guevara Ruwano)