Доброго времени суток увожаемые форумчане.
Помогите пожалуста разобратся с проблемкой. У меня в mdb была форма с кнопками принажатии одной из них добавлялись пустые записи благодаря заросу или если записи уже были то выводилась предупреждение. Суть в следущем существовавший код теперь не работает в adp а в VBA я достаточно слабоват что-бы самому разобратся.

Private Sub Кнопка5_Click()
Dim q As DAO.QueryDef
Dim Rs As DAO.Recordset
Dim znach As Long


If DCount("[№ записи]", "Кол-во записей на дату") <> 0 Then
MsgBox ("На данную дату уже есть записи. Добавление не возможно")
Exit Sub
End If

Set Rs = CurrentDb.OpenRecordset("SELECT Счетчики.[№ счетчика] FROM Счетчики ORDER BY Счетчики.[№ счетчика];")

With Rs
.MoveFirst
znach = ![№ счетчика]
While Not .EOF
znach = ![№ счетчика]
Me.Счетчик = znach
DoCmd.GoToRecord , "", acNewRec
.MoveNext
Wend
End With

Set Rs = Nothing
End Sub


Подскажите пожалуйста что здесь надо переделать и как

Большое спасибо проблема решена.