Code Snippet "VBA Access"

In VB-Code Access-Query mit Parametern erzeugen

Sub createQueryWithParams()
  Dim db As DAO.Database
  Dim Query
  Set db = CurrentDb

  Set Query = db.CreateQueryDef("_abfAusVBAErzeugt", _
    "PARAMETERS parStatId Long; Select * from tblStatus WHERE statId = [parStatId];")

End Sub