Hola.
Tengo esta funcion que tiene, o mejor tendria que consultar un dato en una tabla de acces, y me funciona si le escribo la fecha directamente pero si intento sustituir esta por una variable ya me sale el error.


Function Busca_N_de_Dia(D As Date, T As String)
Dim tbSem As Recordset
Dim sql As String
Set db = CurrentDb()
sql = "SELECT [N de dia] FROM [Dades dia] WHERE [Fecha]=#1/18/2007# "
Set tbSem = db.OpenRecordset(sql, dbOpenDynaset)
tbSem.MoveFirst
Busca_N_de_Dia = tbSem![N de dia]
tbSem.Close
db.Close
End Function

Si sustituyo #1/18/2007# por una variable me sale error.
(programado en una base de datos de Acces)
Gracias.

No indicas como pones la variable en la consulta, pero prueba así:

sql = "SELECT [N de dia] FROM [Dades dia] WHERE [Fecha]=#" & VariableFecha & "#"
La variable Fecha debe estar en formato "mm/dd/yyyy"

Saludos

Un 10.
Me ha ido perfecto.

Gracias