How to save the result of a SQL query into a variable in VBA?

by

Simply have your Function return the value from the Recordset:

Public Function rubrieknaamSQL(Child As Integer)
   Dim rst As DAO.Recordset
   Dim strSQL As String
   strSQL = "SELECT rubrieknaam FROM dbo_tbl_rubriek where rubrieknummer = " & Child & ""
   Set rst = CurrentDb.OpenRecordset(strSQL)
   ' new code:
   rubrieknaamSQL = rst!rubrieknaam
   rst.Close
   Set rst = Nothing
End Function

More Related Contents:

  1. How do I use parameters in VBA in the different contexts in Microsoft Access?
  2. What’s the difference between DoCmd.SetWarnings and CurrentDB.Execute
  3. Using Excel VBA to export data to MS Access table
  4. How to use system username directly in MS Access query?
  5. Access – compare two tables and update or insert data in first table
  6. Query for getting value from another record in same table and filter by difference greater than a gap threshold
  7. Escaping ‘ in Access SQL
  8. SQL Access ” Count “? [closed]
  9. SQL Query output in VBA is different than in SQL Oracle
  10. Upserting in MS-access
  11. How to get matching data from another SQL table for two different columns: Inner Join and/or Union?
  12. Case expressions in Access
  13. How do I count unique items in field in Access query?
  14. Date Difference between consecutive rows
  15. Pivoting data in MS Access
  16. coalesce alternative in Access SQL
  17. Top n records per group sql in access
  18. Does MS Access support “CASE WHEN” clause if connect with ODBC?
  19. Why does a LIKE query in Access not return any records?
  20. How to SUM two fields within an SQL query
  21. can we list all tables in msaccess database using sql?
  22. SQL Updating from an inner join
  23. How to delete in MS Access when using JOIN’s?
  24. SQL: Using NULL values vs. default values
  25. How do I call an Oracle stored procedure from an Excel VBA script?
  26. How do I perform update query with subquery in Access?
  27. How to deal with single quote in Word VBA SQL query?
  28. SQL SET DEFAULT not working in MS Access
  29. How do I create a decimal field in Access with Alter Table?
  30. Access substitute for EXCEPT clause

Leave a Comment