Вызов процедуры с параметром (неужели так нельзя?) ...

[BamBr]

Пытаюсь вызвать процедуру с параметром sText и использовать в ней этот параметр сл. образом:

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

Private Sub Error_Input(sText As String)
   Me.sText.BackColor = &H80000013
   Me.sText.SetFocus
End Sub

Выползает сообщение "Метод или данные не найдены".

Собственно вопрос: Так делать низя? Или я не догоняю?

[uhm]

Так делать нельзя. Ты не догоняешь.

Объясни для начала словами, что ты хотел сделать?

[alibek]

As Object.

[BamBr]

Есть несколько процедур ...__LostFocus(), в которых проверяется одинаковое условие на содержание textbox'ов.
Если условие выполняется, надо вызвать одинаковую для всех обработку.
Я думал вызывать эту обработку так Error_Input (Srok0), где Srok0 - это имя textbox'а (а их несколько).

[BamBr]

Вызываю так

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

Call Error_Input(Srok0)

As Object.

Не помогло Копаю дальше.

[BV]

Передавай не имя, а объект - сам TextBox, это раз.
Убери Me, это два.

[BamBr]

Передевай не имя, а объект - сам TextBox, это раз.
Убери Me, это два.

Спасибо, сделал.

[Vi]

Пытаюсь вызвать процедуру с параметром sText и использовать в ней этот параметр сл. образом:

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

Private Sub Error_Input(sText As String)
   Me.sText.BackColor = &H80000013
   Me.sText.SetFocus
End Sub

Выползает сообщение "Метод или данные не найдены".

Собственно вопрос: Так делать низя? Или я не догоняю?

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

Private Sub Error_Input(sText As String)
  With Me.Controls(sText)
    .BackColor = &H80000013
    .SetFocus
  End With
End Sub

[zHackLeX]

Или, если нужно именно имя, тогда CallByName(Me,sText,vbGet).BackColor=&H80000013
CallByName(Me,sText,vbGet).SetFocus
Хотя это - изврат ещё тот...

[keks-n]

Между прочим CallByName - не больший изврат, чем вызов методов объекта, лежащего в переменной, объявленной как Object или Variant.

[tyomitch]

Между прочим CallByName - не больший изврат, чем вызов методов объекта, лежащего в переменной, объявленной как Object или Variant.

Больший. В полтора раза.