Остановка выполнения кода и продолжение с того же места в VBA Access

[Landurik]

Привет всем! Короч такая замарочка, нужно как-то остановить выполнение кода в VBA Access, который содержится в форме. Т.е. чел заполняет форму, нажимает кнопку сохранить, после запроса будет ли новая запись, чел начинает заполнять форму по новой. Вот в этом месте мне и нужно остановить выполнение кода, чтобы после нажатия кнопки он начал выполняться с того места где была остановка!
Вроде понятно рассписал )))) Помогите плиз!

[Abrakadabra]

Сообщение от Landurik

чтобы после нажатия кнопки он начал выполняться с того места где была остановка!

не берусь судить зачем это нужно, но остановить с кнопкой продолжения можно просто:
в нужном месте кода напишите (напр)

msgbox "Код остановлен"

[Landurik]

Немного не так поняли ) пользователь вводит данные на форме, после заполнения всех полей, он нажимает "Сохранить". Появляется сообщение, будет ли добавлена новая запись, если да, то он возвращается на форму и заполняет уже очищенные поля. Если пользователь нажимает "нет", то поля экспортируются в Excel. Т.е. получается, сколько он добавит новых записей, столько и будет записей в экселе.
Может это можно как-то по другому организовать, но я ничего не могу придумать другого ((((

[Abrakadabra]

Сообщение от Landurik

Может это можно как-то по другому организовать, но я ничего не могу придумать другого ((((

Можно организовать как угодно, смотря какая задача перед Вами стоит. Постарайтесь для начала ее сформулировать.
Начните с "я хочу, чтобы после ввода информации в поля формы..."

[Landurik]

Сообщение от Abrakadabra

Начните с "я хочу, чтобы после ввода информации в поля формы..."

пользователь нажимает кнопку "Сохранить", появляется сообщение "Хотите ли добавить новую запись?", если ДА, то пользователь должен вводить, опять в те же поля, новые данные. Если НЕТ, открывается файл Excel (готовый шаблон), где введенные данные забиты в определенные ячейки.
Не получается забить много записей в шаблон Excel, посредством многоразового ввода данных.

[Abrakadabra]

Приведите пример используемого Вами кода из программы для корректировки

[Landurik]

Set Otchet = CreateObject("Excel.Application")
Set Otchet2 = Otchet.Workbooks.Open("D:\ITO.xls")
Set Dannie = Otchet2.Worksheets(3)
InvenNomer = Forms![Движение]![Номер]
.............................................
Doljnost2 = Forms![Движение]![Должность]
If Dannie.Range("L19").Text = "" Then
    Dannie.Range("L19").Value = InvenNomer
    .................................................    
    Dannie.Range("A39").Value = Doljnost2
    Call Provodki
    Sabj = MsgBox("Будет новая запись?", vbYesNo)
    If Sabj = vbYes Then
        Call Ochistit

!!!!!!! Здесь должна появиться чистая форма для ввода новых данных !!!!!!
        
        Exit Sub
    Else
        Otchet.Visible = True
        Exit Sub
    End If
End If
If Dannie.Range("B21").Text = "" Then
      Dannie.Range("B21").Value = InvenNomer
      Dannie.Range("B22").Value = TipMarka
      Dannie.Range("L21").Value = Cennoct
      Dannie.Range("O21").Value = ZavodNomer
      Call Provodki
      Sabj = MsgBox(""Будет новая запись?", vbYesNo)
    If Sabj = vbYes Then
        Call Ochistit
        Exit Sub
    Else
        Otchet.Visible = True
        Exit Sub
    End If
End If
 И ТАК ДОЛЖНО ВВЕСТИСЬ ОКОЛО 5 ЗАПИСЕЙ