VBA --- Сделать переменную DAO.QueryDef для чтения в подпрограмме

Question

Возможно ли иметь Dao.DataBase в качестве параметра, который передается через подпрограмму?

Public Sub FillInData(InfoArray() As Variant, qdf2 As DAO.QueryDef, k As Integer, rec_set_fill1 As Recordset, rec_set_fill As Recordset, DataBase As DAO.DataBase, TheId As Long, Weekly_Working As Integer) With qdf2 проблема в том, что он выдает ошибку, что элемент не найден в этой коллекции, поэтомуя предполагаю, что он не читает из базы данных Dao.Database или что-то

Answer 1

Если вы создаете с помощью CreateQueryDef с пустой строкой для имени, оно не добавляется в коллекцию querydefs - следовательно, «элемент не найден в коллекции».Назовите это как-нибудь, и оно должно существовать достаточно долго, чтобы пройти мимо.