Hi,
My program crashes at the select instructions. Maybe a problem of quotes
thanks
Habiler
Code:
Private Sub createQry()
Dim db As DAO.Database
Set db = CurrentDb
Dim qdf As DAO.QueryDef
Dim newSQL As String
newSQL = "SELECT LaTable.Num, LaTable.CODE,LaTable.LaDate, (DCount(""LaDate"", ""Latable"", ""Num="" & ""[num]"" and LaDate=""#"" & Format([LaDate] - 1, ""yyyy/dd/mm"") &""#"")) As C "
& " FROM LaTable " _
& " WHERE (((DCount(""LaDate"", ""Latable"", ""Num=" _
& "[num] and LaDate=#"" & Format([LaDate] - 1, ""mm/dd/yyyy"") & ""#"")) = 0)) " _
& " ORDER BY LaTable.Num, LaTable.CODE, LaTable.LaDate;"
Debug.Print newSQL
Set qdf = db.CreateQueryDef("tempQry2", newSQL)
DoCmd.OpenQuery ("tempQry2")
End Sub