Tujuan dari tips atau tutorial ini adalah untuk menambahkan sebuah jam digital yang dinamis yang selalu update tiap detiknya.
Caranya adalah:
- Buka sebuah form, form apa saja, dan tambahkan sebuah unbound text box;
- Buka jendela properties untuk text box tersebut;
- Klik pada tab ‘Format’ dan ganti formatnya menjadi ‘Long Time’;
- Kemudian, klik pada tab ‘Other’ dan ganti ‘Name’ untuk text box tersebut menjadi ‘txtClock;
- Lalu, klik pada tab ‘Data’ dan isi pada ‘Control Source’ dengan ‘=time()’;
- Buka kembali form sobat dalam mode Design view dan buka jendela properties untuk form tersebut (bukan properties untuk text box jam);
- Klik pada tab ‘Event’ dan scroll down sampai sobat menemukan dua item ini: ‘On Timer’ dan ‘Timer Interval’
- Set Timer Interval menjadi 1000;
- Kemudian, letakkan kursor pada kolom ‘On Timer’ – akan muncul tombol dengan gambar 3 titik.
- Klik tombol tersebut;
- Pilih ‘Code Builder’ dari popup yang muncul dan klik OK untuk menutup jendela popup sekaligus membuat Subprocedure.
Private Sub Form_Timer()
End Sub
Di antara 2 baris kode tersebut tambahkan kode di bawah:
Me.txtClock.Requery
Tutup jendela VBA dan buka form sobat dalam Normal view.
Sobat telah menyelesaikan membuat jam digital dinamis pada form Access 2007…. Selamat, Jam digital sobat sekarang akan aktif .
Download Contoh Jam Digital Dinamis.
Sumber: http://www.simply-access.com/Adding-a-Clock-to-a-Form.html
Tidak ada komentar:
Posting Komentar