надо подшитат обшее кол-во записеи по условию (Access)
ест такои код
Dim dbs As Database, qdf As QueryDef, rst As Recordset
Dim prm As Parameter, strSQL As String
Dim i As Integer
Set dbs = CurrentDb
strSQL = "SELECT * FROM Zakazi WHERE (((Left([Zakazi].[artn],2))= '" & artn1 & "'));"
Set qdf = dbs.CreateQueryDef("Parameterabfrage", strSQL)
Set rst = qdf.OpenRecordset
' в етом месте дает ошибку - 13
i = 0
While (Not (rst.EOF))
i = i + 1
rst.MoveNext
Wend
dbs.Close
rst.Close
Set rst = Nothing
dbs.QueryDefs.Delete ("Parameterabfrage")
моэт ест идеи