Accès VBA en utilisant le jour ouvrable suivant (semaine)

DateAdd prend trois arguments et vous n'en passez que deux. Le troisième argument est la date avec laquelle vous commencez.

Une fonction est conçue pour renvoyer une valeur. Généralement, vous passez un ou plusieurs arguments, puis vous attribuez le nom de la fonction au résultat et c'est ce que la fonction renvoie. Comme l'a dit @Josh Eller, Weekday est déjà un nom de fonction. Vous pouvez toujours l'utiliser, mais c'est probablement mieux si vous ne le faites pas.

Voici une façon d'écrire une fonction qui retournera le jour ouvrable suivant. Il prend une date comme argument, puis ajoute le nombre approprié de jours en fonction du jour de la semaine où la date passée est.

![DateCreated] = NextBusDay(![DateCreated])

Vous pouvez l'appeler comme p>

![DateCreated] = NextBusDay(Date)

si vous souhaitez obtenir le prochain rendez-vous professionnel après aujourd'hui. ou

Function NextBusDay(ByVal dtStart As Date)

    Dim lAdder As Long

    lAdder = 1

    If Weekday(dtStart) = 6 Then lAdder = lAdder + 2
    If Weekday(dtStart) = 7 Then lAdder = lAdder + 1

    NextBusDay = dtStart + lAdder

End Function

si vous souhaitez remplacer le champ DateCréée par la prochaine date commerciale après la date qui s'y trouve déjà.

Vous étiez proche de votre logique, mais vous avez omis l'argument de date pour la fonction DateAdd , et vous avez également tenté de redéfinir la fonction Weekday intégrée existante.

Au lieu de cela, vous pouvez condenser la logique comme suit:

Function NextWorkingDay(datDate As Date) As Date
    Dim i As Integer: i = Weekday(datDate)
    If i < 6 Then i = 8
    NextWorkingDay = datDate + 9 - i
End Function

Ici, si le jour de la semaine de la date fournie (à partir du dimanche) est supérieur à 5 (c'est-à-dire si le jour est vendredi ou samedi) la fonction ajoutera 3 jours pour vendredi et 2 jours pour samedi, sinon 1 jour sera ajouté à la date.

Cela pourrait aussi s'écrire:

Function NextWorkingDay(datDate As Date) As Date
    If Weekday(datDate) > 5 Then
        NextWorkingDay = datDate + 9 - Weekday(datDate)
    Else
        NextWorkingDay = datDate + 1
    End If
End Function

Envisagez une solution SQL pure qui peut être appelée avec DoCmd.OpenQuery . Ce faisant, vous pouvez éviter les appels de jeux d'enregistrements multiples imbriqués. Ci-dessous met à jour le champ d'origine DateCreated en ajoutant les jours nécessaires si la date arrive le vendredi-dimanche (tous en supposant que lundi début de jour de la semaine ), sinon ajoute un seul jour.

SQL

Public Sub EndofDay_Click()
    Dim nConfirmation As Integer

    nConfirmation = MsgBox("Are you sure you want to complete this Task?", _
                           vbInformation + vbYesNo, "Complete Task?")

    If nConfirmation = vbYes Then    
        DoCmd.SetWarnings False
        DoCmd.OpenQuery "myUpdateQuery"
        DoCmd.SetWarnings True
    End If
End Sub

UPDATE tblTasks
SET DateCreated = IIF(WeekDay(DateCreated, 1) = 5, DateAdd('d', 3, DateCreated), 
                      IIF(WeekDay(DateCreated, 1) = 6, DateAdd('d', 2, DateCreated), 
                           IIF(WeekDay(DateCreated, 1) = 7, DateAdd('d', 1, DateCreated), 
                               DateAdd('d', 1, DateCreated)
                               ) 
                         )
                  )