هل يمكن إنشاء وتصميم نموذج بكود

و عليكم السلام

اود ان اشكرك على الموضوع الذي طرحته ..

و الذي جعلني افكر في طريقة معينه لعمل form من form

و قد خرجت ببداية كود يعمل على انشاء فورم اسمه "Test" و وضع رز امر فيه "Ok"

Public WithEvents frmTest As Form
Public WithEvents btnOK As CommandButton


Private Sub comCreateObject_Click()

Set frmTest = CreateForm
With frmTest
.Caption = "Test"
.AllowFormView = True
.AutoCenter = True
.CloseButton = False
.ControlBox = False
.DividingLines = False
.GridX = 40
.GridY = 40
.Modal = True
.Moveable = True
.PopUp = True
.RecordSelectors = False
.NavigationButtons = False
.ScrollBars = 0
.Width = 200
End With

Set btnOK = CreateControl(frmTest.Name, acCommandButton, acDetail, , , 1500, 2700, 950, 450)
btnOK.Caption = "OK"

DoCmd.OpenForm frmTest.Name, acNormal

DoCmd.MoveSize 6000, 4000, 5500, 5000

End Sub

test2.zip

اشكرك أخي على تجاوبك السريع

ولكن هل تسمح بشرح الكود من أجل أن نقوم بعمل أجزاء أخر

Public WithEvents frmTest As Form 
Public WithEvents btnOK As CommandButton

* تعريف object من نوع form و command button

Private Sub comCreateObject_Click()
 Set frmTest = CreateForm

*انشاء form جديد مربوطا بزر امر اسمه comCreateObject

With frmTest
.Caption = "Test"
.AllowFormView = True
.AutoCenter = True
.CloseButton = False
.ControlBox = False
.DividingLines = False
.GridX = 40
.GridY = 40
.Modal = True
.Moveable = True
.PopUp = True
.RecordSelectors = False
.NavigationButtons = False
.ScrollBars = 0
.Width = 200
End With

*خصائص ال Form

Set btnOK = CreateControl(frmTest.Name, acCommandButton, acDetail, , , 1500, 2700, 950, 450)
btnOK.Caption = "OK"

* انشاء كائن جديد من نوع command button و و ضعه في النموذج الجديد و تسميته

DoCmd.OpenForm frmTest.Name, acNormal

*فتح النموذج الجديد

DoCmd.MoveSize 6000, 4000, 5500, 5000
 End Sub

*وضع مكان النموذج و ابعاده في الشاشة (RIGHT, DOWN , WIDTH, HIGHT)

* نهاية الكود

أشرك أخي الكريم فلم أعلم ماذا كنت سأعمل بدونك

ولكن هناك سألين بعد إذنك

كيف أضع حدث للزر أو عند الفتح

أريد تعريفات أخرى مثل مربع نص ،صورة ، مربع تسمية

إخوانى الأفاضل

وجدت رابط ممكن تستفيدوا منه

فكرة أداة لعمل نموذج إدخال البيانات

تمنياتى لكم وللجميع بالتوفيق

أحبتى فى الله

رابط آخر للفائده

كود لإنشاء ال Forms برمجيا مثال جدا سهل ويمكن إضافة Controls حسب ما تشاء

جزاه الله خيرا صاحب الموضوع

تمنياتى لكم بالتوفيق