Я использую операторы Nest If и For Next для извлечения и изменения данных в таблице.

Question

По какой-то причине каждый день недели наполняется «Временем». Я проверяю нулевое значение, но в таблице не видно никаких значений

Я использую DLookup для проверки, является ли значение true, похоже, работает нормально.

Dim i As Integer
Dim j As Integer
Dim db As DAO.Database
Dim wc As DAO.Recordset
Dim stc As DAO.Recordset
Set db = CurrentDb
Set wc = db.OpenRecordset("Weekly_Challenges")
Set stc = db.OpenRecordset("Weekly_StartTime_Challenges")

amRoutine = DLookup("AMRoutineStartTime", "Standard_Actions", "UserId=" & Me.UserID.Value & " And WeekNumber=" & Me.WeekNumber)

If Form_Weekly_Challenges_subform.StandardAction.Value = "AM Routine" Then
    If amRoutine = -1 Then
        For i = 0 To stc.RecordCount - 1
        If stc.Fields("StartTimeAction") = "AM Routine" Then
            For j = 0 To wc.RecordCount - 1
                If wc.Fields("StandardAction") = "AM Routine" Then
                    If stc.Fields("Monday") = Null Then
                    wc.Edit
                    wc.Fields("Monday") = ""
                    wc.Update
                    Else
                    wc.Edit
                    wc.Fields("Monday") = "Timed"
                    wc.Update
                    End If
                    If stc.Fields("Tuesday") = Null Then
                    wc.Edit
                    wc.Fields("Tuesday") = ""
                    wc.Update
                    Else
                    wc.Edit
                    wc.Fields("Tuesday") = "Timed"
                    wc.Update
                    End If
                    If stc.Fields("Wednesday") = Null Then
                    wc.Edit
                    wc.Fields("Wednesday") = ""
                    wc.Update
                    Else
                    wc.Edit
                    wc.Fields("Wednesday") = "Timed"
                    wc.Update
                    End If
                    If stc.Fields("Thursday") = Null Then
                    wc.Edit
                    wc.Fields("Thursday") = ""
                    wc.Update
                    Else
                    wc.Edit
                    wc.Fields("Thursday") = "Timed"
                    wc.Update
                    End If
                    If stc.Fields("Friday") = Null Then
                    wc.Edit
                    wc.Fields("Friday") = ""
                    wc.Update
                    Else
                    wc.Edit
                    wc.Fields("Friday") = "Timed"
                    wc.Update
                    End If
                    If stc.Fields("Saturday") = Null Then
                    wc.Edit
                    wc.Fields("Saturday") = ""
                    wc.Update
                    Else
                    wc.Edit
                    wc.Fields("Saturday") = "Timed"
                    wc.Update
                    End If
                    If stc.Fields("Sunday") = Null Then
                    wc.Edit
                    wc.Fields("Sunday") = ""
                    wc.Update
                    Else
                    wc.Edit
                    wc.Fields("Sunday") = "Timed"
                    wc.Update
                    End If
                End If
            wc.MoveNext
            Next j
        End If
        stc.MoveNext
        Next i
        End If
     Else
End If

Понедельник, среда и пятница должны иметь «Timed», а остальные должны быть пустыми