ник: Alex
В форме документ создал кнопку, на неё повесил:
Private Sub Кнопка57_Click()
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
>> rst.Open "SELECT запТоварыВДокументе.* From запТоварыВДокументе"
If rst.RecordCount <> 0 Then
Do While Not rst.EOF '
rst("УчЦена") = DFirst("УчЦена", "запДвижениеИтоги", [rst.ID])
rst.MoveNext
Loop
End If
rst.Close
Set rst = Nothing
End Sub
Получаю сообщение:
Run-time error '3709'
Невозможно использование подключения для выполнения операции. Оно закрыто или не допускается в данном контексте.
Строка помеченная >> выделена желтым