Form StartUp

Kali ini penulis akan share tentang cara membuat form startup untuk aplikasi yang kita buat. Form startup ini akan dijadikan sebagai form yang pertama kali ditampilkan ketika aplikasi dibuka/diload.
Caranya adalah sebagai berikut (versi penulis) :
Buat sebuah form baru dengan nama frmStartUp, dengan Properti form :

• Scroll Bars : Neither
• Record Selectors : No
• Navigation Buttons : No
• Dividing Lines : No
• Auto Resize : Yes
• Auto Center : Yes
• Border Style : None
• Control Box : No
• Min Max Buttons : None
• Close Button : No
• Timer Interval : 400
• Event On Timer : [Event Procedure]

Dalam form startup tersebut, buat sebuah label bernama lblLoading dengan caption : LOADING
Lalu pada jendela code vba, masukkan code berikut ini:

Option Explicit

Private strLoading As String

Lalu masukkan code berikut kedalam event On Timer dari frmStartUp

strLoading = strLoading & "."
Me.lblLoading.Caption = "LOADING" & strLoading
If Me.lblLoading.Caption = "LOADING.............." Then
DoCmd.Close acForm, "frmStartUp"
DoCmd.OpenForm "frmUtama"
End If

Sehingga Code anda dalam frmStartUp akan menjadi seperti ini:

Option Compare Database
Option Explicit

Private strLoading As String

Private Sub Form_Timer()
strLoading = strLoading & "."
Me.lblLoading.Caption = "LOADING" & strLoading
If Me.lblLoading.Caption = "LOADING.............." Then
DoCmd.Close acForm, "frmStartUp"
DoCmd.OpenForm "frmUtama"
End If
End Sub

Untuk form frmUtama adalah form yang akan dibuka setelah frmStartUp ditutup, biasanya sih penulis menempatkan Form Login, namun disini penulis masukkan frmUtama karena tidak semua aplikasi selalu menggunakan form login :) , jika anda tidak menggunakan frmUtama, maka anda tidak perlu menuliskan code DoCmd.OpenForm "frmUtama".

Penjelasan dari code diatas :

Option Compare Database

--> Penulis juga masih bingung cara ngejelasinnya, namun yang pasti kata-kata ini akan selalu ada setiap kali kita akan membuat sebuah procedure.
Option Explicit
--> Digunakan untuk agar ms access akan selalu mengecek apakah variable custom itu sudah dideklarasikan atau belum, jika belum dideklarasikan, maka access akan menampilkan pesan error.
Private strLoading As String
--> Digunakan untuk membuat string yang berkelanjutan (versi penulis)
Private Sub Form_Timer()
--> Event On Timer dalam form
strLoading = strLoading & "."
--> Membuat strLoading menjadi tanda titik(.) yang banyak
Me.lblLoading.Caption = "LOADING" & strLoading
--> Membuat caption dari lblLoading menjadi LOADING dan tanda titik(.) yang banyak
If Me.lblLoading.Caption = "LOADING.............." Then
--> Fungsi yang akan mengecek nilai caption dari lblLoading apakah sudah menjadi "LOADING.............." atau belum.
DoCmd.Close acForm, "frmStartUp"
DoCmd.OpenForm "frmUtama"
--> Jika nilai caption dari lblLoading adalah "LOADING.............." maka akan menutup frmStartUp dan membuka frmUtama.
End If
--> Akhir dari Fungsi If
End Sub
--> Akhir dari even On Timer frmStartUp

Demikianlah cara penulis membuat form startup dalam ms access
Untuk contoh filenya bisa didownload dari 4shared

Semoga Bermanfaat...

Posted in: tips n trik