کلاسی با نام AppForm ایجاد شده برای اینکه یکسری خاصیت ها در فرم تنظیم شود
AppForm class.
Option Compare Database
Option Explicit
Private WithEvents frm As Access.Form
Public Sub SetAttributes(ByRef param_frm As Form)
Set frm = param_frm
With frm ' some general form attributes
.Caption =ThisApp.Name
.NavigationButtons = False
.ScrollBars = 0
.Moveable = True
.ControlBox = False
.RecordSelectors = False
End With
Set frm = Nothing
End Sub ' frm_Open
In Every Form
Option Compare Database
Option Explicit
بعد از ایجاد کلاس در هر فرمی ازکدهای زیر استفاده میشود کلاس با نام AppForm و کدهای بالا ایجاد شده که یک رویه با نام SetAttributes در رویداد Open هر فرم تنظیمات را انجام میدهد.زمانی استفاده میشود که چندین فرم دارید و میخواهید تنظیمات یکسانی روی آنها انجام شود.
Private ThisForm As New AppForm
Private Sub Form_Open(Cancel As Integer)
ThisForm.SetAttributes Me
End Sub