Membuat Splash Screen di Access

Splash screen adalah tampilan yang muncul sekilas dalam bentuk gambar atau logo di layar saat sebuah aplikasi dibuka. Secara umum, splash screen adalah halaman pengenalan aplikasi yang biasanya berisi nama aplikasi, versi, nama pembuat aplikasi, hak cipta, dan (bisa juga) alamat email si pembuat aplikasi.

Selain itu, splash screen juga digunakan untuk menunjukkan bahwa aplikasi sedang memuat berbagai macam program pendukung yang dibutuhkan, sampai siap dijalankan. Contohnya, saat kita membuka aplikasi produk Adobe (bisa Photoshop, Dream Weaver, Distiller, dan sebagainya), mereka menampilkan logo produk beserta berbagai proses yang sampai aplikasi siap untuk digunakan.

Kita dapat membuat splash screen sederhana dengan menggunakan file yang berekstensi bmp (bitmap). Adapun nama filenya sama persis dengan aplikasi, hanya berbeda di nama ekstensi saja. Jadi, misalnya nama aplikasi Access adalah Dokumen Elektronik.accdb, maka nama file bitmap untuk splash screen adalah Dokumen Elektronik.bmp. Untuk membuat file dengan ekstensi bmp, kita dapat menggunakan aplikasi semacam Adobe Photoshop, MS Photo Editor, MS Paint, dll yang bisa menyimpan file dalam format bmp.

Selain membuat file berekstensi bmp, splash screen juga bisa dibuat dengan menggunakan form yang dijalankan di awal program menggunakan macro AutoExec. Adapun caranya seperti ini:

Buatlah form dengan menggunakan Blank Form, simpan dengan nama frmSplashScreen. Atur properti form sebagai berikut:

1. Picture Tiling: Yes
2. Picture: Sisipkan gambar dengan ukuran bujur sangkar (panjang/lebar = tinggi).
3. Picture Aligment: Center
4. Picture Size Mode: Clip
5. Auto Center: Yes
6. Auto Resize: Yes
7. Fit to Screen: Yes
8. Border Style: None
9. Record Selector: No
10. Navigation Button: No
11. Scroll Bars: Neither 

Dengan menggunakan gambar di atas, selanjutnya, tambahkan control seperti ini:

1.         Nama Control Auto_Header0

            Control Type   Label

            Name  Auto_Header0

            Caption pada Label     ACCESS TERAPAN

2.         Nama Control bebas (sembarang nama)

            Control Type   Label

            Name  bebas (sembarang nama)

            Caption pada Label     Dokumen Elektronik

3.         Nama Control bebas (sembarang nama)

            Control Type   Label

            Name  bebas (sembarang nama)

            Caption pada Label     2020 (R01)

Bila perlu, tambahkan control lain yang sekiranya dibutuhkan.

Selanjutnya, pada modul form, sisipkan kode VBA berikut ini.

view plainprint?

1. Option Compare Database  
2. Private Sub Form_Load()  
3. On Error GoTo Err_Msg  
4.     Static boolSplashJalan As Boolean  
5.     Dim dtWaktuTerakhir As Date  
6.     Const strNamaFormSplash = "frmSplashScreen" 'Isikan nama form untuk splash screen  
7.     Const strNamaFormSetelahSplash = "frmLogin" 'Isikan nama form setelah splash screen dijalankan  
8.     Const lngDurasiDetik = 2  
9.       
10.     If boolSplashJalan Then  
11.         Exit Sub  
12.     End If  
13.     boolSplashJalan = True  
14.       
15.     DoCmd.OpenForm strNamaFormSplash  
16.     With Forms(strNamaFormSplash)  
17.         .SetFocus  
18.     End With  
19.       
20.     dtWaktuTerakhir = DateAdd("s", lngDurasiDetik, Now())  
21.     Do While Now() < dtWaktuTerakhir  
22.         DoEvents  
23.     Loop  
24.     DoCmd.Close acForm, strNamaFormSplash, acSaveNo  
25.     If strNamaFormSetelahSplash <> vbNullString Then  
26.         DoCmd.OpenForm strNamaFormSetelahSplash  
27.     End If  
28.       
29.     boolSplashJalan = False  
30.   
31. Exit_Sub:  
32.     Exit Sub  
33. Err_Msg:  
34.     MsgBox "Sub On Load, Error # " & CStr(Err.Number) & ", source: " & Err.Source & _  
35.     Chr(13) & Err.Description  
36.     End  
37.     Resume Exit_Sub  
38. End Sub  

Option Compare Database
Private Sub Form_Load()
On Error GoTo Err_Msg
    Static boolSplashJalan As Boolean
    Dim dtWaktuTerakhir As Date
    Const strNamaFormSplash = "frmSplashScreen" 'Isikan nama form untuk splash screen
    Const strNamaFormSetelahSplash = "frmLogin" 'Isikan nama form setelah splash screen dijalankan
    Const lngDurasiDetik = 2
    
    If boolSplashJalan Then
        Exit Sub
    End If
    boolSplashJalan = True
    
    DoCmd.OpenForm strNamaFormSplash
    With Forms(strNamaFormSplash)
        .SetFocus
    End With
    
    dtWaktuTerakhir = DateAdd("s", lngDurasiDetik, Now())
    Do While Now() < dtWaktuTerakhir
        DoEvents
    Loop
    DoCmd.Close acForm, strNamaFormSplash, acSaveNo
    If strNamaFormSetelahSplash <> vbNullString Then
        DoCmd.OpenForm strNamaFormSetelahSplash
    End If
    
    boolSplashJalan = False

Exit_Sub:
    Exit Sub
Err_Msg:
    MsgBox "Sub On Load, Error # " & CStr(Err.Number) & ", source: " & Err.Source & _
    Chr(13) & Err.Description
    End
    Resume Exit_Sub
End Sub

Selanjutnya, untuk menjalankan splash screen di awal aplikasi (saat awal program dijalankan), buatlah Macro yang bernama AutoExec dengan cara seperti ini:

1. Pada kotak design Macro, klik Add New Action, dan pilih Open Form
   
2. Pada kotak Form Name, pilih frmSplashScreen. Pada kotak View, pilih Form. Pada kotak Window Mode, pilih Normal. Lihat gambar di bawah.
   
   
   
3. Tekan Ctrl+S untuk menyimpan Macro.

Dengan cara di atas, setiap kali file aplikasi dibuka, Access menampilkan splash screen form frmSplashScreen.