ник: Iskin100
У меня есть таблица "Адреса" в ней счетчик столбец Счетчик, с именем поля: КодАдреса
Есть база 1.xls, при помощи которой обновляется таблица "Адреса" . Вот ее код.
Private Sub Кнопка0_Click()
DoCmd.Close acForm, "Каталог"
If Dir(CurrentProject.Path & "\1.xls") <> "" Then
CurrentDb.Execute "DELETE FROM Адреса"
DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, "Адреса", CurrentProject.Path & "\1.xls"
MsgBox "Успешное обновление базы!", vbOKOnly, "Сообщение"
DoCmd.Close
Else
MsgBox "Файл обновления отсутствует в базе!", vbOKOnly, "Сообщение"
End If
DoCmd.OpenForm "Каталог", acNormal, "", "", , acNormal
End Sub
У меня логичный вопрос к спецам, как обнулять счетчик при каждом обновлении данной таблицы?