如何在Access vba中创建动态文本框

问题描述

||                                                                                                                   关闭。这个问题需要细节或明确性。它当前不接受答案。                                                      

解决方法

        我同意这不是一个好主意，而是为了给人们足够的绳索以使其垂悬……。

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),300,240)
    ctrl.ControlName = \"txtDynamic_control_\" & x

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

End Function