Несколько где условия в VBA MS доступ

Question

Пожалуйста, помогите мне с этим кодом.

Если поле даты или идентификатора изменяется, то записи в подчиненной форме на основе идентификатора и идентификатора даты удаляют записи в основной таблице, но код работает только с первыми критериями, при этом AND itне:

Private Sub txtDate_AfterUpdate()
CurrentDb.Execute "DELETE * FROM TableIntensiveAndContinuationPhase WHERE PatientID = " & Me!FrmIntContPhasesubform.Form!PatientID AND PatientDate = " & Me!FrmIntContPhasesubform.Form!PatientDate, dbFailOnError
        'Requery the subform to avoid displaying "DELETED" for the deleted records
        Forms!FrmIntContPhase![FrmIntContPhasesubform].Requery

Answer 1

Вам не хватает нескольких кавычек в SQL, и это приводит к ошибке.

Private Sub txtDate_AfterUpdate()
CurrentDb.Execute "DELETE * FROM TableIntensiveAndContinuationPhase WHERE ((PatientID = " & Me!FrmIntContPhasesubform.Form!PatientID & ") AND (PatientDate = #" & Format(CDate(Me!FrmIntContPhasesubform.Form!PatientDate),"mm/dd/yyyy") & "#))", dbFailOnError