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
5 comments:
Mas, untuk Access 2007 dan Access 2010 gmn, ya?
Seting startup form pada Access 2007:
1. Klik Tombol Microsoft Office Button (pojok kiri atas).
2. Klik tombol Access Options di sudut kanan bawah menu yang muncul.
3. Klik Current Database category di sisi kiri Access Options dialog box.
4. Di Application Options cari pilihan "Display Form." Pilih nama form Anda dari combo box.
5. Klik Ok untuk menutup Access Options.
6. Pada saat Anda membuka database nanti form anda akan terbuka ketika Startup.
Maksudnya buat ngilangin ribbon dan toolbar default lainnya saat membukan database tersebut, dan mengembalikan settingan awal saat membuka database lain.
(Access 2007 dan Access 2010)
Thanks
(Budhi)
Cara menyembunyikan dan menampilkan ribbon bisa anda lihat di sini:
http://www.techrepublic.com/blog/msoffice/hide-the-ribbon-programmatically-in-access-and-excel-2007/1131
Makasih gan, trik ini baru ane tahu, ternyata gak susah.
Post a Comment