Skip to main content

AccessTr.neT


Etiketler
Yazar: mehmeser - Cevaplar: 2 - İzleme: 2222
VT'de Tüm form Araç Çubuklarını otomatik değiştirme
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
Task