Public Sub ImportFilldown()
Dim rs As New ADODB.Recordset
Dim prevarr( 256 ) As String
rs.Open "select * from ТАБЛИЦАКУДАСДЕЛАНИМПОРТ order by id", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
Do Until rs.EOF

For i =  0  To rs.Fields.Count -  1 
If Nz(rs.Fields(i).value, "") <> "" Then
prevarr(i) = rs.Fields(i).value
Else
 rs.Fields(i).value = prevarr(i)
rs.Update
End If
Next i

На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика.

Продолжая использовать сайт, вы даёте согласие на обработку файлов cookie, необходимых для работы сайта. Другие опции вы можете выбрать по своему усмотрению.

По нижеприведенным ссылкам мы можете ознакомиться с действующим на сайте пользовательским соглашением и политикой конфиденциальности.

Пользовательское соглашение
Политика конфиденциальности

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы