Visual Basic ændring af en forespørgsel (queries)

Ikke afprøvet:

Private Sub Form_Current()
Dim VARa As String
VARa = InputBox(Prompt:="Indtast måned", Title:="Find måned.", Default:="")
DoCmd.GoToControl "Måned"
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True
End Sub

Det er jeg ikke helt med på. Måske udtrykker jeg mig uklart.
Jeg har brug for at vide hvordan jeg ændrer/retter et criteria i en eksisterende forespørgsel ?

I dette eksempel skal Feb ændres til Mar og FY=9 skal ændres til FY=10

TRANSFORM Sum(Budgetregister.Feb) AS SumOfFeb
SELECT Budgetregister.[ID-Tilbudsnummer], Budgetregister.FY
FROM Budgetregister
WHERE (((Budgetregister.FY)=9))
GROUP BY Budgetregister.[ID-Tilbudsnummer], Budgetregister.FY
PIVOT Budgetregister.Frekvens In ("All for Once","Yearly");

Vh. OMN

Måske noget i retning af:

Sub Test
  Call OpretForespørgsel("Mar",10)
End Sub

Sub OpretForespørgsel(Måned As String, År As Integer)
  Dim SQLstr As String

  SQLstr="TRANSFORM Sum(Budgetregister." & Måned & ") AS SumOf" & Måned & _
" SELECT Budgetregister.[ID-Tilbudsnummer], Budgetregister.FY" & _
" FROM Budgetregister" & _
" WHERE (((Budgetregister.FY)=" & År & "))" & _
" GROUP BY Budgetregister.[ID-Tilbudsnummer], Budgetregister.FY" & _
" PIVOT Budgetregister.Frekvens In ("All for Once","Yearly");"

  Call OpretQuery("DinForespørgsel", SQLstr)
End Sub 

Sub OpretQuery(Qnavn As String, Qsql As String)
  Dim Qdf As QueryDef
 
  On Error Resume Next
  CurrentDb.QueryDefs.Delete Qnavn
  On Error GoTo 0
 
  Set Qdf = CurrentDb.CreateQueryDef(Qnavn)
  With Qdf
    .SQL = Qsql
    .Close
  End With
  Set Qdf = Nothing
End Sub

(ikke testet)

Takker for point ;o)