Search This Blog

Loading...

Startup Form Microsoft Access

Microsoft Access menyediakan seting agar sebuah form langsung diaktifkan (dibuka) jika file Access tersebut dibuka oleh user. Pada contoh aplikasi ini, sebagai default Start up form digunakan form dengan nama bg. Dengan seting-an seperti ini maka setiap kali file access dibuka maka program akan langsung membuka form bg.

Cara menseting start up form pada Microsoft Access adalah:

1. Pilih menu Tools lalu pilih Start Up.
2. Akan muncul windows/option Startup.


3. Isi Application tittle sesuai dengan aplikasi yang anda buat.
3. Pilih form pada Display form/page dalam aplikasi ini form bg.
4. Klik tombol OK.

Form bg adalah form yang dibuat dengan desain seperti gambar berikut:


Seting property form bg adalah:
- Record Selector : No
- Navigation button : No
- Border Style : None

Pada form bg ada script yang dijalankan pada saat form ini diaktifkan. Even yang diaktifkan pada form bg ini adalah:
1. On Current
2. On Load
3. On Unload

Script lengkap pada form bg adalah sbb:


Option Compare Database
Option Explicit

Private Sub Form_Current()
Dim strDoc As String
strDoc = "Form Login"

DoCmd.OpenForm strDoc, acNormal, , , , acDialog

End Sub

Private Sub Form_Load()
App_Toolbars
End Sub

Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
Std_Toolbars
End Sub


Pada saat form diload maka procedure App_Toolbars akan dijalankan. Procedure ini berfungsi untuk menyembunyikan menu dan toolbar standard dari Microsoft Access dan mengaktifkan pull down menu dan toolbars buatan sendiri. Berikut adalah isi script procedure App_Toolbars:


Public Sub App_Toolbars()
On Error GoTo Error_Handler
Dim i As Integer
DoCmd.ShowToolbar "Alignment and Sizing", acToolbarNo
DoCmd.ShowToolbar "Database", acToolbarNo
DoCmd.ShowToolbar "Filter/Sort", acToolbarNo
DoCmd.ShowToolbar "Form Design", acToolbarNo
DoCmd.ShowToolbar "Form View", acToolbarNo
DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarNo
DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarNo
DoCmd.ShowToolbar "Formatting (Page)", acToolbarNo
DoCmd.ShowToolbar "Formatting (PivotTable/PivotChart)", acToolbarNo
DoCmd.ShowToolbar "Macro Design", acToolbarNo
DoCmd.ShowToolbar "Menu Bar", acToolbarNo
DoCmd.ShowToolbar "Page Design", acToolbarNo
DoCmd.ShowToolbar "Page View", acToolbarNo
DoCmd.ShowToolbar "PivotChart", acToolbarNo
DoCmd.ShowToolbar "PivotTable", acToolbarNo
DoCmd.ShowToolbar "Print Preview", acToolbarNo
DoCmd.ShowToolbar "Query Datasheet", acToolbarNo
DoCmd.ShowToolbar "Query Design", acToolbarNo
DoCmd.ShowToolbar "Relationship", acToolbarNo
DoCmd.ShowToolbar "Report Design", acToolbarNo
DoCmd.ShowToolbar "Source Code Control", acToolbarNo
DoCmd.ShowToolbar "Table Datasheet", acToolbarNo
DoCmd.ShowToolbar "Table Design", acToolbarNo
DoCmd.ShowToolbar "Toolbox", acToolbarNo
DoCmd.ShowToolbar "Utility 1", acToolbarNo
DoCmd.ShowToolbar "Utility 2", acToolbarNo
DoCmd.ShowToolbar "Web", acToolbarNo

DoCmd.ShowToolbar "myToolbar", acToolbarYes
DoCmd.ShowToolbar "Menuku", acToolbarYes

varUser = ""
varLevel = ""
varBagian = ""
varNIK = ""
varNamaSeksi = ""
varDepartemen = ""
varHeadquarter = ""
varLevelNo = 9

For i = 0 To Max_aModul
aModul(i) = ""
Next i

Exit Sub

Error_Handler:
MsgBox Err.Description, vbExclamation, Err.Number

End Sub


Pada script di atas tampak bahwa semua toolbars standar dari Microsoft Access dinonaktifkan dan toolbar myToolbar dan Menuku yang merupakan toolbar buatan user sendiri diaktifkan.

Sedangkan pada saat form di-unload, procedure Std_Toolbars dipanggil untuk mengembalikan setingan standar pull down menu dan standard toolbar dari Microsoft Access. Berikut adalah isi script procedure Std_Toolbars:


Public Sub Std_Toolbars()
On Error GoTo Error_Handler
DoCmd.ShowToolbar "myToolbar", acToolbarNo
DoCmd.ShowToolbar "Menuku", acToolbarNo

DoCmd.ShowToolbar "Alignment and Sizing", acToolbarWhereApprop
DoCmd.ShowToolbar "Filter/Sort", acToolbarWhereApprop
DoCmd.ShowToolbar "Form Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Form View", acToolbarWhereApprop
DoCmd.ShowToolbar "Database", acToolbarWhereApprop
DoCmd.ShowToolbar "Formatting (Datasheet)", acToolbarWhereApprop
DoCmd.ShowToolbar "Formatting (Form/Report)", acToolbarWhereApprop
DoCmd.ShowToolbar "Formatting (Page)", acToolbarWhereApprop
DoCmd.ShowToolbar "Formatting (PivotTable/PivotChart)", acToolbarWhereApprop
DoCmd.ShowToolbar "Macro Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Menu Bar", acToolbarWhereApprop
DoCmd.ShowToolbar "Page Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Page View", acToolbarWhereApprop
DoCmd.ShowToolbar "PivotChart", acToolbarWhereApprop
DoCmd.ShowToolbar "PivotTable", acToolbarWhereApprop
DoCmd.ShowToolbar "Print Preview", acToolbarWhereApprop
DoCmd.ShowToolbar "Query Datasheet", acToolbarWhereApprop
DoCmd.ShowToolbar "Query Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Relationship", acToolbarWhereApprop
DoCmd.ShowToolbar "Report Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Source Code Control", acToolbarWhereApprop
DoCmd.ShowToolbar "Table Datasheet", acToolbarWhereApprop
DoCmd.ShowToolbar "Table Design", acToolbarWhereApprop
DoCmd.ShowToolbar "Toolbox", acToolbarWhereApprop
DoCmd.ShowToolbar "Utility 1", acToolbarWhereApprop
DoCmd.ShowToolbar "Utility 2", acToolbarWhereApprop
DoCmd.ShowToolbar "Web", acToolbarWhereApprop

Exit Sub

Error_Handler:
MsgBox Err.Description, vbExclamation, Err.Number

End Sub
Post a Comment