Я новенький, не бейте сильно, но помогите...пожалуйста...

Друзья мои! Помогите! Глаза уже красные, как у рака, не знаю что придумать!!! Аааааа!!! Помогите!!! Оченно нужно придумать мммм, как это у вас тут на сленге... в общем чтоб заработало... Надо так: ввел в форму диапазон номеров документов, и они после жамка кнопкти попали в таблицу, один за одним... Че смог во вложении, но работает до 18 штук, а надо 2-3 тыщи закидать... одним кликом... Макрос не работает больше 20 рекурсов... Помогите, братья... иначе ослепну я...

оййй-ёёйй !!

qwerty112
оййй-ёёйй !!

????? а я ваще не смог открыть макрос. Пишет Modul Not Found , и Access улетает.

:-)

vasjaspb,

забудьте это слово "макрос" :)

Private Sub Кнопка4_Click()
On Error GoTo Err_Кнопка4_Click

'    Dim stDocName As String
'
'    stDocName = "Макрос1.В_Реестр"
'    DoCmd.RunMacro stDocName
Dim CurrNum As Long
CurrNum = Me.Номер_С
With CurrentDb.OpenRecordset("Реестр")
  Do While CurrNum < Me.Номер_По
    .AddNew
    .Fields("Номер_Откреп").Value = CurrNum
    .Update
    '
    CurrNum = CurrNum + 1
  Loop
End With

Exit_Кнопка4_Click:
    Exit Sub

Err_Кнопка4_Click:
    MsgBox Err.Description
    Resume Exit_Кнопка4_Click
    
End Sub

Private Sub Кнопка4_Click()
Dim n_from As Long, n_to As Long, i As Long
n_from = Val(Me.Номер_С.Text)
n_to = Val(Me.Номер_По.Text)
DoCmd.SetWarnings False
For i = n_from To n_to
    DoCmd.RunSQL "INSERT INTO [Реестр] ([Номер_Откреп]) VALUES (" & CStr(i) & ")"
Next i
End Sub

Не работает...

:-(

vasjaspb
Не работает...

бывает ... ((

vasjaspb,

Что именно не работает? Первый или второй предложенный метод? Что именно вы там у себя натворили?

Второй метод чуть-чуть переделан и оба метода работают, они на самом деле вставляют значения в вашу таблицу.

Private Sub Кнопка4_Click()
Dim n_from As Long, n_to As Long, i As Long
n_from = Me.Номер_С
n_to = Me.Номер_По
For i = n_from To n_to
    DoCmd.RunSQL "INSERT INTO [Реестр] ([Номер_Откреп]) VALUES (" & CStr(i) & ")"
Next i
End Sub