Я хочу создать 200 текстовых полей в форме доступа с for петли и называть их s1, s2, s3 и т.д.как создавать динамические текстовые поля в VBA Access
Я не хочу, чтобы создать их сам в форме дизайна. Могу ли я иметь пример кода?
Я согласен, что это не очень хорошая идея, однако в интересах предоставления людям достаточно веревки, чтобы повесить себя на ..........
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
Звучит как домашнее задание ... –
Зачем вы хотите это сделать? Это звучит плохой дизайн по ряду причин, но это тоже то, что вы не хотите делать в производственном приложении. –