Aşağıdaki kod ile VT'deki tüm formların araç çubukları değiştirebilirsiniz. En iyisi her VT için yönetim paneli oluşturulması.
[php]Public Sub SetFormToolbars()
Dim objFrm As AccessObject, frm As Form, ctl As Control
' Go through every form in the database
For Each objFrm In CurrentProject.AllForms
' Skip fixing any "plain" examples
If Right(objFrm.Name, 5) <> "plain" Then
DoCmd.OpenForm FormName:=objFrm.Name, View:=acDesign, WindowMode:=acHidden
|