Parametro query da VBA

di il
2 risposte

Parametro query da VBA

Buongiorno a tutti. ho di nuovo bisogno di aiuto con Access, 'sta volta mi servirebbe sapere come posso prendere il valore di una variabile VBA e usarlo in una query, di seguito vi scrivo il codice VBA che ho scritto e l'SQL
 Private Sub cmdEsegui_Click()
    Call chiamaDataInizio
    Call chiamaDataFine
End Sub 
Public Function chiamaDataInizio()
    Dim dataDa As String
    dataDa = Me.dataDa
    Call DataUSA_to_ITA(dataDa)
    'Me.dataDa = dataDa
    DataInizio = dataDa
    MsgBox ("DataInizio: " & dataDa)
End Function
Public Function GetDataStart()
   ' Return the value of the module variable.
   GetDataStart = DataInizio
End Function
Public Sub DataUSA_to_ITA(ByRef Data As String)
    Dim DataITA(10) As String
    For i = 1 To Len(Data)
        DataITA(i - 1) = Mid$(Data, i, 1)
    Next
    Dim DataUSA_array(10) As String
    For j = 0 To 9
        Select Case j
            Case 0, 1
                DataUSA_array(j) = DataITA(j + 3)
            Case 3, 4
                DataUSA_array(j) = DataITA(j - 3)
            Case 2, 5 To 9
                DataUSA_array(j) = DataITA(j)
        End Select
    Next
    Dim DataUSA As String
    DataUSA = ""
    For k = 0 To 9
        DataUSA = DataUSA & DataUSA_array(k)
    Next
    Data = DataUSA
End Sub
TRANSFORM Sum(Control.Benzina) AS SommaDiBenzina
SELECT Control.Driver
FROM Control
WHERE (((Control.Data) Between GetDataStart() And GetDataEnd()))
GROUP BY Control.Driver
PIVOT Control.Targhetta;
per chiamaDataFine() c'è lo stesso identico codice semplicemente con il cambio della variabile, io ho guardato la ma mi da l'errore "Funzione 'chiamaDataStart' non definita nell'espressione"
Mi sapete aiutare?

Grazie mille,
Lorenzo

2 Risposte

Devi accedere o registrarti per scrivere nel forum
2 risposte