Я пытаюсь настроить напоминания на основе задач, добавленных из таблицы под названием «Задачи». Вот код, который я использую, но что-то не так, поскольку он продолжает вызывать проблемы со следующей строкой:
intStore = DCount("[TaskName]", "[Status]", "[DueDate] <=Now() AND [Complete] =0")
Когда код запускается, я получаю сообщение об ошибке:
Ядро базы данных Microsoft Access не может найти входную таблицу или запрос для «Статус». Убедитесь, что он существует и написан правильно.
В моей таблице есть поля для Название задачи, Статус и Дата выполнения, поэтому я не совсем уверен, почему это происходит.
Ниже приведена вся строка кода:
Private Sub Form_Load()
'On Load of the switchboard check Jobs table for any uncompleted jobs
Dim intStore As Integer
intStore = DCount("[Priority]", "[Tasks]", "[DueDate] <=Now() AND [PercentComplete] <=0")
If intStore = 0 Then
Exit Sub
Else
If MsgBox("There are " & intStore & " uncompleted jobs" & _
vbCrLf & vbCrLf & "Would you like to see these now?", _
vbYesNo, "You Have Uncomplete Jobs...") = vbYes Then
DoCmd.Minimize
DoCmd.OpenForm "Tasks", acNormal
Else
Exit Sub
End If
End If
End Sub
