Private Sub ShowData()
Dim intI As Integer
On Error GoTo ERROR
For intI = 1 To intColls Step 1
Me.Text(intI).Text = T.Fields(Me.Label(intI).Caption)
Next intI
ERROR:
If Err.Number = 3021 Then
MsgBox ("ошибка обработана")
End If
End Sub
Не работает ON ERROR GOTO [МЕТКА]
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
1 сообщение
• Страница 1 из 1
1 сообщение
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: Yandex-бот и гости: 187