Вопрос : управление формы основанное на проходить имя формы и управления

Довольно чем изменяющ цвет предпосылки в каждом случае входа и выхода для формы 2003 базы данных ДОСТУПА, я хотел был бы создать функцию которая делает это так если я хочу изменить цветы, то, я только должна сделать его внутри раз устанавливает.  Однако, когда я пытаюсь передать имя формы, то как шнур для имени формы, я получите ошибки как объявленная перемеююый или datatype mismatched. class= " ясное " >

> " codeSnippet " class=

class= " lineNumbers "

class=

1: 2: 3: 4: 5: 6:

class= " notpretty " >Public Sub OnFocusColors id= " codeSnippet941957 "

class=

Ответ : управление формы основанное на проходить имя формы и управления

Я использовал бы активировать/выключаю случаи. См. Кодего. Заметьте что я изменило параметры к шнурам.

Ли

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:

Общественное Sub OnFocusColors (frmName как шнур, ctlName как шнур) Формы (frmName). Контролирует (ctlName) .BackColor = vbRed Подводная лодка конца Общественное Sub LostFocusColors (frmName как шнур, ctlName как шнур) Формы (frmName). Контролирует (ctlName) .BackColor = vbBlue Подводная лодка конца Приватное Sub Form_GotFocus () Звонок OnFocusColors (Me.Name, Text0.Name) Подводная лодка конца Приватное Sub Form_LostFocus () Звонок LostFocusColors (Me.Name, Text0.Name) Подводная лодка конца