Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Вызов процедуры. Ошибка 438  [new]
КД
Member

Откуда:
Сообщений: 959
По двойному щелчку на отвязанной от контрола надписи пытаюсь вызвать процедуру - выдает ошибку 438. Что не так?

Private Sub lblDateLeg_DblClick(Cancel As Integer)
On Error GoTo ErrorHandler
    
    Call ChangeColorLabelAndSetDefaultValue(lblDateLeg) 'на этой строке ошибка
    
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    MsgBox "Ошибка №:" & Err.Number & ";Описание:" & Err.Description & " в процедуре lblDateLeg_DblClick модуля Form_frmSpecimens"
    Resume ErrorHandlerExit
End Sub


Private Sub ChangeColorLabelAndSetDefaultValue(mstrNameOfControl As String)
On Error GoTo ErrorHandler
    
    If Me(mstrNameOfControl).BackColor <> -2147483633 Then 'если цвет фона надписи не серый,
        Me(mstrNameOfControl).BackColor = -2147483633 'делаем его серым
    Else 'если цвет фона надписи  серый,
        Me(mstrNameOfControl).BackColor = 8781460   'делаем его зеленым
        'и меняем значение по умолчанию соответствующего контрола
        Select Case mstrNameOfControl
        
        End Select
        
    End If
    
ErrorHandlerExit:
    Exit Sub
ErrorHandler:
    MsgBox "Ошибка №:" & Err.Number & ";Описание:" & Err.Description & " в процедуре ChangeColorLabelAndSetDefaultValue модуля Form_frmSpecimens"
    Resume ErrorHandlerExit
End Sub


Сообщение было отредактировано: 1 май 21, 22:10
1 май 21, 22:17    [22317316]     Ответить | Цитировать Сообщить модератору
 Re: Вызов процедуры. Ошибка 438  [new]
sdku
Member

Откуда: Краснодар
Сообщений: 7350
.

Сообщение было отредактировано: 1 май 21, 22:49
1 май 21, 22:48    [22317320]     Ответить | Цитировать Сообщить модератору
 Re: Вызов процедуры. Ошибка 438  [new]
mds_world
Member

Откуда: Ташкент
Сообщений: 27574
автор
Call ChangeColorLabelAndSetDefaultValue(lblDateLeg) 'на этой строке ошибка

Передаете контрол (lblDateLeg), а при вызове используете имя надписи
Private Sub ChangeColorLabelAndSetDefaultValue(mstrNameOfControl As String)

Тогда и передавать надо не объект лабел, а его имя
Call ChangeColorLabelAndSetDefaultValue(lblDateLeg.Name As String) 
1 май 21, 23:10    [22317327]     Ответить | Цитировать Сообщить модератору
 Re: Вызов процедуры. Ошибка 438  [new]
КД
Member

Откуда:
Сообщений: 959
mds_world,
верно... ах я, старый осел!
Спасибо!
1 май 21, 23:14    [22317329]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить