如何獲取VBA

Question

我想在Access中創建表格200個文本框與for循環，並呼籲他們S1，S2，S3等創建動態文本框

我不希望通過創建它們我自己在形式設計。我可以有代碼示例嗎？

Answer 1

我同意這不是一個非常好的主意，但是爲了給人們足夠的繩索來掛上.........。

Public Function Make_controls(iLoops As Integer) 
DoCmd.OpenForm "frmYour_form", acDesign 
Dim x As Integer 
Dim ctrl As Control 

For x = 1 To iLoops 
    Set ctrl = CreateControl("frmYour_form ", acTextBox, acDetail, , "", 0 + (x * 300), 0, 300, 240) 
    ctrl.ControlName = "txtDynamic_control_" & x 

    DoCmd.Save acForm, " frmYour_form " 
Next x 
DoCmd.Close acForm, " frmYour_form ", acSaveYes 

End Function