<>>
Опять, ваш не идти мочь сделать то здесь в типичном способе OOP. Вы не можете иметь предмет низкопробного типа, тогда subclass оно и дорабатывать его. Access/VBA не поддерживает никакое из того.
Вы можете создать тип textbox и случаи раковины с им и ввести новые свойства и методы, но они будут этим же для каждого управления в app если вы не иметь отдельно типы.
<>>
По мере того как я сказал, он кажется я нуждается зрении по мере того как я все еще реально не понимаю он ваш идти поже. Это:
Приватное Sub Form_Load ()
GetForm (FORM_MAIN). Титр = «шнур титра испытания»
Тусклое TempControl как управление
Установите TempControl = GetControl (FORM_MAIN, FORM_MAIN_TEXBOX_1)
С TempControl
.SetFocus
. Текст = «испытание»
Конец с
Установите TempControl = ничего
Закончите подводную лодку
Как раз не делает чувство к мне в доступе. Он был бы как раз как просто и clearer для того чтобы сделать:
Приватное Sub Form_Load ()
Me.Caption = «шнур титра испытания»
Me.Text0.SetFocus
Me.Text0.Text = «испытание»
Подводная лодка конца
и без всех экстренных накладных расходов. Так я не вижу никакое преимущество к использованию GetForm (), GetControl () etc как раз для того чтобы получить справку к что-то. Возможно пропавше то нормальн, проявитель назовет управление что-нибудь подобное:
txtBirthDate
cbxHIPPAOnFile
lstSelectPatient
для называть управления и других предмет (using приставка), которым будет легке для работы с и реально помогает с работами по дома изменения и обслуживания.
И далеко как режимы вы имеете, никакую причину закрепить петлеть через все формы или управление как то. Как раз сделайте:
Общественная функция GetForm (sFormName ByVal) как форма
На ошибке переход GetForm_Error
Установите GetForm = формы (strFormName)
GetForm_Exit:
Выходите функция
GetForm_Error:
Установите GetForm = ничего
Возобновьте GetForm_Exit
Закончите функцию
По мере того как вы можете увидеть, Access/VBA уже имеет формы собрание и вы можете использовать синтаксис:
Формы (strFormName)
получить справку к использованию перемеююого шнура содержа имя. И оно имеет собрания для как раз около каждого другого предмета также.
О единственном месте где необходимо требовал для того чтобы сделать ваш пытаться сделать когда вам нужно иметь множественные примеры формы. Тому типично нужно быть обращанным с что-то как GetForm (), которое поддерживало бы собрание раскрынных форм по мере того как Access/VBA не отрегулирует то на ем должно иметь. Но снаружи того, ничего еще, котор я могу думать где он worth накладные расходы.
JimD.
