Access 2016 Abfrage Parameter/Variablen per VBA übergeben

  • Access

    Access 2016 Abfrage Parameter/Variablen per VBA übergeben

    Hallo Leute,

    ich habe folgendes Problem/ Ausgangslage:

    Und zwar hab ich ein Formular in das mein Anwender Daten einfüllt, diese lese ich dann in Variablen ein, da ich noch diverse Berechnungen,.. damit durchführen muss.
    Diese Variabel will ich dann an meine Erstellte Abfrage "Auswertung" übergeben, jedoch funktioniert das nicht ganz.
    Steh aktuell irgendwie komplett auf der Leitung vielleicht könnt Ihr mir da weiterhelfen?

    Hier mein Code soweit:

    Formular mit folgendem VBA Code

    Quellcode

    1. ​Private Sub Abfrage_VB_Click()
    2. Dim Field_Z As String
    3. Dim Field_A As String
    5. Field_A = Me.Feld_A
    6. Field_Z = Me.Feld_Z
    8. Dim database As Dao.database
    9. Dim qry As Dao.QueryDef
    11. Set database = CurrentDb
    12. Set qry = database.QueryDefs("Auswertung")
    15. qry.Parameters("Field_A") = Field_A
    16. qry.Parameters("Field_N") = Me.Feld_N
    17. qry.Parameters("Field_A2") = Me.Feld_A2
    18. qry.Parameters("Field_L") = Me.Feld_L
    19. qry.Parameters("Field_Z") = Field_Z
    20. qry.Parameters("Field_I") = Me.Feld_I
    21. qry.Parameters("FilterValueN_22") = Me.FilterWertN_22
    22. qry.Parameters("FilterValueP_22") = Me.FilterWertP_22
    23. qry.Parameters("FilterValueN_11") = Me.FilterWertN_11
    24. qry.Parameters("FilterValueP_11") = Me.FilterWertP_11
    25. qry.Parameters("FilterValueN_XX") = Me.FilterWertN_XX
    26. qry.Parameters("FilterValueP_XX") = Me.FilterWertP_XX
    27. qry.Parameters("FilterValueN_1") = Me.FilterWertN_1
    28. qry.Parameters("FilterValueP_1") = Me.FilterWertP_1
    29. qry.Parameters("FilterValueN_X") = Me.FilterWertN_X
    30. qry.Parameters("FilterValueP_X") = Me.FilterWertP_X
    31. qry.Parameters("FilterValueN_2") = Me.FilterWertN_2
    32. qry.Parameters("FilterValueP_2") = Me.FilterWertP_2
    34. DoCmd.SetWarnings False
    35. DoCmd.OpenQuery ("Auswertung")
    36. DoCmd.SetWarnings True
    38. End Sub


    Und hier noch der SQL Code meiner bereits erstellten Abfrage

    Quellcode

    1. ​SELECT Stammdaten.EX, Stammdaten.DS, Stammdaten.XY, Stammdaten.JS, Stammdaten.A, Stammdaten.N, Stammdaten.A1, Stammdaten.L, Stammdaten.I, Stammdaten.Z, Stammdaten.[1], Stammdaten.X, Stammdaten.[2], Stammdaten.[11], Stammdaten.X1, Stammdaten.[21]
    2. FROM Stammdaten
    3. WHERE (((Stammdaten!Z)=[Field_Z]) And ((Stammdaten!A)=[Field_A]) And ((Stammdaten!N)=[Field_N]) And ((Stammdaten!A1)=[Field_A2]) And ((Stammdaten!L)=[Field_L]) And ((Stammdaten!I)=[Field_I]) And ((Stammdaten![21])>=[FilterValueN_22] And (Stammdaten![21])<=[FilterValueP_22]) And ((Stammdaten![11])>=[FilterValueN_11] And (Stammdaten![11])<=[FilterValueP_11]) And ((Stammdaten!X1)>=[FilterValueN_XX] And (Stammdaten!X1)<=[FilterValueP_XX]) And ((Stammdaten![1])>=[FilterValueN_1] And (Stammdaten![1])<=[FilterValueP_1]) And ((Stammdaten!X)>=[FilterValueN_X] And (Stammdaten!X)<=[FilterValueP_X]) And ((Stammdaten![2])>=[FilterValueN_2] And (Stammdaten![2])<=[FilterValueP_2]));