السلام،
الكود أدناه يقوم بإنشاء From جديد ويضيف TextBox وبعد ذلك بظهره
Sub iniForm() Dim frm As Form Dim cont As Control Set frm = CreateForm() With frm .Width = 100 .AutoCenter = True .PopUp = True .NavigationButtons = False .DividingLines = False .RecordSelectors = False End With Set cont = CreateControl(frm.Name, acTextBox, acDetail) cont.DefaultValue = "هلا والله" DoCmd.OpenForm frm.Name End Sub
أمل أن يستفيد منه أحد في مشاريعة