Передать в процедуру имя поля и изменить это поле!

[erzhavin]

Народ, помогите пожалуйста:
Хочется, чтобы при изменении поля на форме это поле подсвечивалось и кнопка OK менялась на SAVE!
Но нем могу передать имя изменившегося поля в процедуру! Посмотрите пожалуйста где тут затык?

Код: Выделить всё


Private Sub NMRcontactCode_AfterUpdate()
Dim FieldName As Field
FieldName = Me.NMRcontactCode.Name
OnSomeChange FieldName
End Sub

Private Sub OnSomeChange(FieldName)
EditColor = RGB(0, 0, 255)
Me.FieldName.ForeColor = EditColor
Me.Ok.Caption="Save"
End Sub


После изменения поля NMRcontactCode его цвет должен быть голубым, но программа "не видит" что конкретно нужно подсветить, так как я неправильно передаю процедуре имя поля NMRcontactCode!
А как??? Спасибо.

[Viper]

Код: Выделить всё

Me.Fields(FieldName).ForeColor = EditColor

[erzhavin]

Не работает так!
Кстати, слово FieldName зарезервированное, так что пришлось поменять перменную, однако все равно не работает:

Код: Выделить всё

Private Sub NMRcontactCode_AfterUpdate()
Fname = Me.NMRcontactCode.Name
OnSomeChange Fname
End Sub

Private Sub OnSomeChange(Fname)
EditColor = RGB(0, 0, 255)
Me.Fields(Fname).ForeColor = EditColor
End Sub


[HandKot]

а так?

Код: Выделить всё

Private Sub NMRcontactCode_AfterUpdate()
  EditColor = RGB(0, 0, 255)
  Me.NMRcontactCode.ForeColor = EditColor
  Me.Ok.Caption="Save"
End Sub

[erzhavin]

а так?

Так-то работает, понятно! Нужно именно передать имя поля в другую процедуру, чтобы не писать десять раз одни и те же строки.

Упращаю задачу - почему это неправильно???

Код: Выделить всё



Private Sub NMRcontactCode_AfterUpdate()
EditColor = RGB(0, 0, 255)
Fname = "NMRcontactCode"
Me.Fields(Fname).ForeColor = EditColor
End Sub



[Viper]

по идее рабочий вариант

Код: Выделить всё


Private Sub NMRcontactCode_AfterUpdate()
Dim sFieldName As String
sFieldName = Me.NMRcontactCode.Name
OnSomeChange sFieldName
End Sub

Private Sub OnSomeChange(FieldName As String)
EditColor = RGB(0, 0, 255)
Me.Fields(sFieldName).ForeColor = EditColor
Me.Ok.Caption="Save"
End Sub


последний вариант не работает, поскольку "NMRcontactCode" не есь имя

[erzhavin]

по идее рабочий вариант

Код: Выделить всё


Private Sub NMRcontactCode_AfterUpdate()
Dim sFieldName As String
sFieldName = Me.NMRcontactCode.Name
OnSomeChange sFieldName
End Sub

Private Sub OnSomeChange(sFieldName As String)
EditColor = RGB(0, 0, 255)
Me.Fields(sFieldName).ForeColor = EditColor
End Sub


Вы не поверите, но НЕ РАБОТАЕТ! Причем Access даже не показывает ошибку - просто не выполняет процедуру и все! Бред какой-то...Ничего не понимаю.

[Viper]

а так

Код: Выделить всё

Private Sub NMRcontactCode_AfterUpdate()
Dim pFieldName As Field
pFieldName = Me.NMRcontactCode.Name
OnSomeChange pFieldName
End Sub

Private Sub OnSomeChange(pFieldName As Field)
EditColor = RGB(0, 0, 255)
pFieldName.ForeColor = EditColor
Me.Ok.Caption="Save"
End Sub

З.Ы. Из предыдших постов не было видно, что это Access

[erzhavin]

а так

И так тоже нет! Я не шучу...

[HandKot]

Код: Выделить всё

Private Sub OnSomeChange(nm As String)
    EditColor = RGB(0, 0, 255)
    Me.Controls(nm).ForeColor = EditColor
End Sub

???

[Viper]

Больше кода в студию тогда!

[erzhavin]

Код: Выделить всё

Private Sub OnSomeChange(nm As String)
    EditColor = RGB(0, 0, 255)
    Me.Controls(nm).ForeColor = EditColor
End Sub

???

Bingoooo!!! Работает! Спасибо! Непонятно почему та схема не работала...

[KL]

Bingoooo!!! Работает! Спасибо! Непонятно почему та схема не работала...

Помимо прочего, совершенно очевидно, что использовалась неверная коллекция объектов - Fields вместо Controls В будущем не забывай указывать приложение, тип объекта и его местонахождение

[Viper]

Ндя... сумел автор всех запутать...