Private Sub Attach_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
If Len(Attach.Value) = 0 Then MsgBox "Поле надо заполнить!"
Cancel = True
Call Snd_Cancell
End If
End Sub
Почему VB portable не понимает функцию?
Есть TextBox, куда надо вписать путь к файлу. И надо запретить выход из этого окна, пока не заполнено.
Пишется User-define type not defined. (пример взят из книжки "Программирование в VBA").
В чем может быть дело?
Код:
Пишется User-define type not defined. (пример взят из книжки "Программирование в VBA").
В чем может быть дело?
А почему пример из книжки VBA должен без адаптации работать в VB ?
Код:
Private Sub Attach_BeforeUpdate(Cancel As Integer)
If Len(Attach.Text) = 0 Then
MsgBox "Поле надо заполнить!", , ""
Cancel = -1 'True
End If
End Sub
If Len(Attach.Text) = 0 Then
MsgBox "Поле надо заполнить!", , ""
Cancel = -1 'True
End If
End Sub
А у меня даже не появлется такое свойство, как Before_Update. Т.е. если в левом верхнем окошке редактора кода выбрать элемент Attach, то в правом окошке в списке возможных процедур Updat'a нет. Может какая-то урезанная VB Port (или неправильно определен тип элемента - у меня TextBox)?
Хотя в таком виде VB не ругается, правда и записанный код не исполняется.
Хотя в таком виде VB не ругается, правда и записанный код не исполняется.
В VBA, при решении аналогичных задач, я использую событие TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean), поищите аналогичное событие VB, возможно оно там присутствует ...