advanced code snippet search

Posted By

qrist0ph on 07/24/08


Tagged

access


Versions (?)

Parametrisierte Abfrage aus Formular starten

 / Published in: Visual Basic
 
Expand | Embed | Plain Text 
  1. Sub bar()
  2. Dim db As DAO.Database
  3. Dim qdf As DAO.QueryDef
  4. Dim rst As DAO.Recordset
  5.  
  6. Set db = CurrentDb
  7. Set qdf = db.QueryDefs("Query2")
  8. qdf.Parameters(0) = Forms!Form1!Text0
  9. foo= Zwischen [Formulare]![Tagesbericht Druckparameter]![Datvon] Und [Formulare]![Tagesbericht Druckparameter]![Datbis]
  10. Set rst = qdf.OpenRecordset
  11.  
  12. Do Until rst.EOF
  13.   Debug.Print rst!resource
  14.   rst.MoveNext
  15. Loop
  16.  
  17. rst.Close
  18. qdf.Close
  19. End Sub

Report this snippet  

You need to login to post a comment.