▼ ساختن یک فرم جدید با دستورات VBA

Sub main()

ابتدا متغییر و اشیائی را معرفی می کنیم و VBA تکلیف مشخص‌تری با  متغییرهای ما داشته باشد.

Dim frm As Form
Dim ctlLabel As Control, ctlText As Control
Dim intDataX As Integer, intDataY As Integer
Dim intLabelX As Integer, intLabelY As Integer

دستورات بعدی یک فرم جدید را ایجاد خواهند کرد.

Set frm = CreateForm
frm.RecordSource = "Orders"

دستور بالا رابطه دیتای فرم را با یکی از جداول به نام "Orders" مشخص می کند.

سپس در دستورات بعدی مکان بالا،چپ، عرض و ارتفاع کنترلرهایی مانند Lable و TextBoxی که م یخواهیم در فرم ایجاد کنیم، تعیین می کنیم.

intLabelX = 100
intLabelY = 100
intDataX = 1000
intDataY = 100

و در دستورات بعدی در بخش detail فرم یک TexBox ایجاد می کنیم.

Set ctlText = CreateControl(frm.Name, acTextBox, , "", "", _
intDataX, intDataY)

و در دستورات بعدی در بخش detail فرم یک Lable ایجاد می کنیم.

Set ctlLabel = CreateControl(frm.Name, acLabel, , _
ctlText.Name, "NewLabel", intLabelX, intLabelY)

و به اکسس اطلاع می دهیم که کار با با تنظیمات فرم تمام شده است و آنرا دوباره سازی کند.

DoCmd.Restore
End Sub