ساخت Class در اکسس

کلاسی با نام 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