Set xx = MSForms.control, Научите работать

[Avtopic]

Скоро начну ногти грызть.

в класс передаю форму

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

Private WithEvents flx As VSFlex7.VSFlexGrid
Private WithEvents Cmb As MSForms.ComboBox
Private WithEvents Lbl As MSForms.Label
Private WithEvents Cmn As MSForms.CommandButton

Public Sub SET_classDOCUMENT_TO(Frm As Object, dbPath As String)
    Set f_Me = Frm  ' Это работает

    Set flx = f_Me.VSFlexGrid1    ' Это работает
    Set Cmb = f_Me.ComboBox5      ' Это не работает
    Set Lbl = f_Me.Label12        ' Это не работает
    Set Cmn = f_Me.Command1       ' Это не работает

там где не работает, ругается на тип.

[keks-n]

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

Public Sub foo(form As Object)
Dim button As MSForms.CommandButton
Set button = form!CommandButton1
button.Caption = "Работает"
End Sub

[Avtopic]

Type mismatch!

Странно!
Свое сообщение вчера поправил, когда проверил топик, правка отразилась. Сегодня поправленный текст не видать?!

в конце было,

среда VB, а форма из VBA.

[Хакер]

Странно!
Свое сообщение вчера поправил, когда проверил топик, правка отразилась. Сегодня поправленный текст не видать?!

Не может такого быть. Вероятно ты перепутал и случайно нажал "Предв. просмотр" и таки да - увидел изменённый пост. И успешно покинул страницу, не нажав "Отправить".