SELECT Contacts.ContactID, Contacts.Name, Contacts.HomePhone, Contacts.Date1, Contacts.Situation, WeekdayName(Format([Date1],'w')) AS 星期
FROM Contacts
WHERE (((Contacts.Situation)='recall') AND ((WeekdayName(Format([Date1],'w')))=WeekdayName(Format(Date(),'w'))));