0 голосов
спросил от в категории Access
Вы используете DAO, поэтому .. мы можем динамически изменять запрос:

Function ChangeQuery(sQryName As String, sSQL As String) As Boolean Dim db As Database, qry As QueryDef 'default returned value ChangeQuery = True 'ignore errors to check if query by given name exists On Error Resume Next Set qry = CurrentDb.QueryDefs(sQryName) If Not qry is Nothing Then CurrentDb.Querydefs.Delete sQryName 'in case of deletion CurrentDb.QueryDefs.Refresh 'catch errors On Error GoTo Err_ChangeQuery 'add new query and refresh collection of queries Set qry = CurrentDb.CreateQueryDef(sQryName, sSQL) CurrentDb.QueryDefs.Refresh Exit_ChangeQuery:     On Error Resume Next     qry.Close     Set qry = Nothing     db.close     Set db = Nothing     Exit Function Err_ChangeQuery:     Err.Clear     ChangeQuery = False     Resume Exit_ChangeQuery End Function


Использование:
Private Sub Command130_Click() Dim rst As DAO.Recordset, bRetVal As Boolean, sSQL As String   Set rst = CurrentDb.OpenRecordset("SELECT DISTINCT [SUP_Sup_name] FROM [query03 Retail Lender] ORDER BY [SUP_Sup_name];", dbOpenSnapshot)   Do While Not rst.EOF     sSQL = "SELECT * FROM SupEmployees WHERE [SUP_Sup_Name] = " & rst![SUP_Sup_Name]     bRetVal  = ChangeQuery("Indv Retail Lender", sSQL)     If bRetVal Then DoCmd.OutputTo acOutputReport, "Indv Retail Lender", acFormatPDF, "g:data folderdataincentive" & "" & rst![SUP_Sup_Name] & ".pdf"     DoEvents     rst.MoveNext Loop   rst.Close Set rst = Nothing End Sub


Удалить Private Sub Report_Close () и Private Sub Report_Open (Отменить как целое) из отчета.

Пожалуйста, войдите или зарегистрируйтесь чтобы ответить на этот вопрос.

Категории

Добро пожаловать на сайт DraftingCode Q&A, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Похожие вопросы

0 голосов
0 ответов
спросил 10 Сен, 18 от richard maccutchan в категории Access
0 голосов
0 ответов
спросил 26 Апр, 10 от eddy vluggen в категории Access
0 голосов
0 ответов
спросил 01 Янв, 70 от MacFirst (120 баллов) в категории Access
0 голосов
0 ответов
0 голосов
0 ответов
спросил 10 Янв, 18 от maciej los в категории Access
...