Access - Error 3464

Private Sub Bot_Click()
If Bot.Value = True Then

Dim db As Database
Dim rst As Recordset
Dim str As String

Set db = CurrentDb

str = "SELECT [FechayHora].[Fecha], Sum([Almacen.Inv]) AS [SumaDeInv] " & _
"FROM [FechayHora] INNER JOIN [Almacen] ON [FechayHora].[Fecha] = [Almacen].[Fecha] " & _
"GROUP BY [FechayHora].[Fecha] " & _
" HAVING (((FechayHora.Fecha)='" & Fecha.Value & "'));"


Set rst = db.OpenRecordset(str) aqui me da el error

Totaldia.Value = rst!SumaDeInv
Else
Totaldia.Value = ""
End If

End Sub
me da error 3464 vo coinciden los tipos

Siento tener que darle la razón a Access, en la condición hay una discordancia:

.... HAVING (((FechayHora.Fecha)='" & Fecha.Value & "'));

Si el campo FechayHora.Fecha es un dato de tipo Fecha no se le puede comparar con un texto (el marcador que esta utilizando es la comilla simple ==> texto y el que debería utilizarse es la almohadilla ==> fecha);


En VBA las fechas en formato MM/DD/YYYY (mes-día-año), si en el formulario esta en formato europeo (día-mes-año), dos opciones:

.- Se le aplica el formato americano:

.- Se le aplica el formato universal (numero):

CDate convierte un texto que representa a una fecha del formato local al americano
CDbl convierte una fecha (en formato Access) a un numero equivalente (que es el dato real que se guarda en la tabla).