Страницы: 1
RSS
Прошу помочь найти причину ошибки "Expected End Sub", Ошибка "Expected End Sub"
 
Дело в том, что на одном листе создана кнопка и к нему привязан модуль с макросом, я хочу переместить кнопку в форму, но вылазит ошибка "Expected End Sub"
Код
1
2
3
Sub Show_Form()
 Reports.Show 'отображаем форму отчета
End Sub
Изменено: pavlusha15 - 25.06.2017 22:44:48
 
Где-то в форме недописано окончание макроса.
 
Цитата
Hugo написал:
Где-то в форме недописано окончание макроса
Хм, ну где именно?
 
Код
1
2
3
4
Private Sub CommandButton8_Click()
Sub Show_Form()
Reports.Show
End Sub
Когда поставил в кнопку, вот так
Изменено: pavlusha15 - 25.06.2017 22:21:41
 
а так:
Код
1
2
3
Private Sub CommandButton8_Click()
  Show_Form
End Sub
или
Код
1
2
3
Private Sub CommandButton8_Click()
 Reports.Show
End Sub
как Вам удобно
Изменено: Ігор Гончаренко - 25.06.2017 22:24:03
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Цитата
pavlusha15 написал:
Хм, ну где именно?
- хотелось ответить, но так отвечать нельзя :)
Но после следующего поста отвечаю - ну неужели не видно?
Должно быть как-то так, если не нравится то, что выше сказал Игорь:
Код
1
2
3
4
5
6
Private Sub CommandButton8_Click()
'тут можно что-то сделать, например вызвать другой макрос как в примере выше
End Sub
Sub Show_Form()
Reports.Show
End Sub
 
Я просто новичок в этом, спасибо вам большое!
 
pavlusha15, название темы у Вас никудышное. Предложите новое - модераторы поменяют.
Стоит только отойти на минутку - Игори тут, как тут )
 
Юрий М, может так сгодится:
Прошу помочь найти причину ошибки "Expected End Sub"

Формула массива (ФМ) вводится Ctrl+Shift+Enter
Memento mori
 
Зачёт! )
 
в каком-то из модулей количество Sub больше, чем количество End Sub
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
Страницы: 1
Читают тему
Loading...