ник: DRAK0N
Хм что-то не пойму что делаю не так. Снова валится с ошибкой 3078 "" на строке Set rst = CurrentDb.OpenRecordset(SQLStatement), а подключение к базе проходит нормально...
Public Function QRCount(SQLStatement As String) As Long
Dim rst As Recordset
'''SQLStatement = "Select * From 'Запрос1'"
Set rst = CurrentDb.OpenRecordset(SQLStatement)
rst.MoveLast
QRCount = rst.RecordCount
rst.Close
End Function
Sub main()
MsgBox QRCount("Select * From 'Запрос1'")
Dim MyCounter As Integer
ActiveDocument.MailMerge.OpenDataSource Name:=ActiveDocument.Path & "\Склад.accdb" _
, SQLStatement:="SELECT * FROM 'Запрос1'", SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
...
End Sub
|