Private Sub Commande41_Click()
    Me.AllowEdits = True
    Me!Commande11.Visible = False
    Me!Livraison.Enabled = True
    Me!Item.Enabled = True
    Me!QtéRéc.Enabled = True
    Me!QtéRest.Enabled = True
    Dim Msg
    Msg = MsgBox("Que voulez-vous faire?" _
        & Chr(13) & Chr(13) & "1) Cliquer sur Oui pour Corriger la réception," _
        & Chr(13) & Chr(13) & "2) Cliquer sur Non pour Supprimer la réception," _
        & Chr(13) & Chr(13) & "3) Cliquer sur Annuler pour Annuler la tentative" _
        & ".", vbYesNoCancel + vbQuestion + vbDefaultButton3, "Gestion de Commandes")
    Dim vNom As String
    Dim dbs As Database
    Dim rst2 As DAO.Recordset

    Set dbs = CurrentDb
    vNom = "ItemsDeCdes"

    Set rst2 = dbs.OpenRecordset(vNom)
    
    vModif = "Non"
    
    Select Case Msg
        Case 6
'           Modifier la réception
            vModif = "Oui"
            Me!QtéRest = Me!QtéRest + Me!QtéRéc
            Me!QtéAtt = Me!QtéRest
            vCrit = "DestCde = '" & Forms!Réceptions!DestCde & "' And Item ='" & Forms!Réceptions!Item & "'"
            With rst2
                .FindFirst vCrit
                If .NoMatch Then
                Else
                    .Edit
                    !QtéRestItem = !QtéRestItem + Me!QtéRéc
                    !QtéRécItem = !QtéRécItem - Me!QtéRéc
                    .Update
                    .Close
                End If
            End With
            Me!QtéRéc = 0
            Me!QtéRest = 0
            Me.Refresh
            Forms!vM!VarModeCor = "Oui"
            Me!Livraison.SetFocus
        Case 7
'           Supprimer la réception
            vCrit = "DestCde = '" & Forms!Réceptions!DestCde & "' And Item ='" & Forms!Réceptions!Item & "'"
            With rst2
                .FindFirst vCrit
                If .NoMatch Then
                Else
                    .Edit
                    !QtéRestItem = !QtéRestItem + Me!QtéRéc
                    !QtéRécItem = !QtéRécItem - Me!QtéRéc
                    .Update
                    .Close
                End If
            End With
            If Me.NewRecord Then
                DoCmd.RunCommand acCmdSave
            End If
            Me.AllowDeletions = True
            DoCmd.SetWarnings False
            DoCmd.RunCommand acCmdDeleteRecord
            DoCmd.SetWarnings True
            DoCmd.Close acForm, "Réceptions"
            If CurrentProject.AllForms("ItemsDeCde").IsLoaded Then
                DoCmd.Close acForm, "ItemsDeCde", acSaveYes
            End If
            DoCmd.OpenForm "ItemsDeCde", , , "ItemsDeCdes![DestCde]=" & "'" & Forms!vM![varDestCde] & "'"
        Case 2
'           Annuler la tentative de corriger ou de supprimer la réception
            Me!Commande13.SetFocus
    End Select
    
End Sub