/ Published in: Visual Basic

Expand |
Embed | Plain Text
Sub bar() Dim db As DAO.Database Dim qdf As DAO.QueryDef Dim rst As DAO.Recordset Set db = CurrentDb Set qdf = db.QueryDefs("Query2") qdf.Parameters(0) = Forms!Form1!Text0 foo= Zwischen [Formulare]![Tagesbericht Druckparameter]![Datvon] Und [Formulare]![Tagesbericht Druckparameter]![Datbis] Set rst = qdf.OpenRecordset Do Until rst.EOF Debug.Print rst!resource rst.MoveNext Loop rst.Close qdf.Close End Sub
You need to login to post a comment.