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
    4. Field_A = Me.Feld_A
    5. Field_Z = Me.Feld_Z
    6. Dim database As Dao.database
    7. Dim qry As Dao.QueryDef
    8. Set database = CurrentDb
    9. Set qry = database.QueryDefs("Auswertung")
    10. qry.Parameters("Field_A") = Field_A
    11. qry.Parameters("Field_N") = Me.Feld_N
    12. qry.Parameters("Field_A2") = Me.Feld_A2
    13. qry.Parameters("Field_L") = Me.Feld_L
    14. qry.Parameters("Field_Z") = Field_Z
    15. qry.Parameters("Field_I") = Me.Feld_I
    16. qry.Parameters("FilterValueN_22") = Me.FilterWertN_22
    17. qry.Parameters("FilterValueP_22") = Me.FilterWertP_22
    18. qry.Parameters("FilterValueN_11") = Me.FilterWertN_11
    19. qry.Parameters("FilterValueP_11") = Me.FilterWertP_11
    20. qry.Parameters("FilterValueN_XX") = Me.FilterWertN_XX
    21. qry.Parameters("FilterValueP_XX") = Me.FilterWertP_XX
    22. qry.Parameters("FilterValueN_1") = Me.FilterWertN_1
    23. qry.Parameters("FilterValueP_1") = Me.FilterWertP_1
    24. qry.Parameters("FilterValueN_X") = Me.FilterWertN_X
    25. qry.Parameters("FilterValueP_X") = Me.FilterWertP_X
    26. qry.Parameters("FilterValueN_2") = Me.FilterWertN_2
    27. qry.Parameters("FilterValueP_2") = Me.FilterWertP_2
    28. DoCmd.SetWarnings False
    29. DoCmd.OpenQuery ("Auswertung")
    30. DoCmd.SetWarnings True
    31. 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]));