ให้ดูกระทู้ http://www.thai-access.com/suphap.php?topic_id=591 จะมีตัวอย่างสำหรับเพิ่มฟีลด์เข้าไปในตารางที่สร้างไว้แล้ว

และกระทู้ http://www.thai-access.com/suphap.php?topic_id=597 จะเป็นการตัวอย่างการสร้าง control เข้าไปใน form

แต่ต้องเปิด form เป้าหมายในโหมดออกแบบ แล้วจึงจะสามารถเพิ่ม control ใหม่ลงไปได้ครับ

ลองดูโค้ดนี้ครับ

Sub AddAutoNoField()
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "ALTER TABLE Table1 " _
& "ADD COLUMN Part3 Long;"
dbs.Execute "ALTER TABLE Table1 " _
& "ADD COLUMN Part4 Long;"
dbs.Close
Set dbs = Nothing
End Sub

Sub CreateCommandButton1()
Dim frm As Form
Dim ctlTextBox As Control
Dim intLeft As Integer, intTop As Integer

DoCmd.OpenForm "Form1", acDesign
Set frm = Forms("form1")

Set ctlTextBox = CreateControl(frm.Name, acTextBox, , "", "", _
intLeft, intTop)
With ctlTextBox
.Name = "Part3"
.ControlSource = "Part3"
.TabIndex = 3
End With

Set ctlTextBox = CreateControl(frm.Name, acTextBox, , "", "", _
intLeft, intTop)
With ctlTextBox
.Name = "Part4"
.ControlSource = "Part4"
.TabIndex = 4
End With

' เปลี่ยน Tab Order ของ Part9 ให้อยู่หลังสุด
frm.Part9.TabIndex = 5

DoCmd.Close acForm, frm.Name, acSaveYes

End Sub

ขอบคุณคำแนะนำของอาจารย์สุภาพเป็นอย่างสูง
เดี๋ยวผมจะลองนำไปปฏิบัติตามที่อาจารย์แนะนำ