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