How to execute a query in ms-access in VBA code?

by

How about something like this…

Dim rs As RecordSet
Set rs = Currentdb.OpenRecordSet("SELECT PictureLocation, ID FROM MyAccessTable;")

Do While Not rs.EOF
   Debug.Print rs("PictureLocation") & " - " & rs("ID")
   rs.MoveNext
Loop

More Related Contents:

  1. How does one decompile and recompile a database application?
  2. What are the rules governing usage of parenthesis in VBA function calls?
  3. Autonumber value of last inserted row – MS Access / VBA
  4. Code to loop through all records in MS Access
  5. Bang Notation and Dot Notation in VBA and MS-Access
  6. How do I force VBA/Access to require variables to be defined?
  7. VBA: Difference in two ways of declaring a new object? (Trying to understand why my solution works)
  8. How to diagnose MS access crashes
  9. Equivalent cURL in VBA?
  10. How do I access the selected rows in Access?
  11. Run-time error ‘3061’. Too few parameters. Expected 1. (Access 2007)
  12. Prevent enabling of shift bypass – Access 2010
  13. VBA procedure to import csv file into access
  14. Transform multiple rows into columns with unique key
  15. how to show query results in a datasheet in the same form?
  16. Access VBA: Find max number in column and add 1
  17. MS Access prepared statements
  18. Create sequential ID value based on the year that a record is added
  19. UrlDownloadToFile in Access 2010 – Sub or Function not Defined
  20. Null values for variables in VBA
  21. Using a centralized VBA module in multiple Access databases
  22. How to add a menu item to the default right click context menu
  23. VBA – Run Time Error 3271 using DAO object
  24. Trouble with InputBoxes
  25. Get Name of Current VBA Function
  26. How do I display a messagebox with unicode characters in VBA?
  27. Selecting 2 tables from 2 different databases (ACCESS)
  28. Linked table ms access 2010 change connection string
  29. Insert multiple records with a date range in MS Access
  30. MS Access VBA: Sending an email through Outlook [closed]

Leave a Comment