G
Guest
I am trying to add the below SQL Query into VB. It seems to fall down on the
"Where" definition.
Can anyone see where I've gone wrong?
Function AppendCpartyYesterday()
CurrentDb.Execute "INSERT INTO tblCpartyYesterday ( Oid, Adt, DateID, Id,
Type, Name, ShortName, Deleted )" & _
"SELECT Cparty_Audit.Oid, Cparty_Audit.Adt, Left(Cparty_Audit!Adt,2) AS
DateID, Cparty_Audit.Id, Cparty_Audit.Type, Cparty_Audit.Name,
Cparty_Audit.ShortName, Cparty_Audit.Deleted " & _
"FROM Cparty_Audit" & _
"WHERE (((Cparty_Audit.Adt)>Date()-1)) "
End Function
"Where" definition.
Can anyone see where I've gone wrong?
Function AppendCpartyYesterday()
CurrentDb.Execute "INSERT INTO tblCpartyYesterday ( Oid, Adt, DateID, Id,
Type, Name, ShortName, Deleted )" & _
"SELECT Cparty_Audit.Oid, Cparty_Audit.Adt, Left(Cparty_Audit!Adt,2) AS
DateID, Cparty_Audit.Id, Cparty_Audit.Type, Cparty_Audit.Name,
Cparty_Audit.ShortName, Cparty_Audit.Deleted " & _
"FROM Cparty_Audit" & _
"WHERE (((Cparty_Audit.Adt)>Date()-1)) "
End Function