Bonjour, j'ai un souci.
Voilà mon code:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Loi_BeforeUpdate(Cancel As Integer)
Dim Verif As Boolean
If Me.Loi <> "" And Not IsNull(Me.Loi) Then
    Verif = VerifierCoutsST(Me.idreftache_access, Me.Loi)
    If Verif = False Then
        If (MsgBox("Impossible d'attribuer la loi de calcul à cette tâche." & Chr(13) & "Les coûts de cette tâche pour les sous-traitants" & Chr(13) & "de la loi de calcul n'ont pas tous été renseignés." & Chr(13) & "Voulez-vous les renseigner maintenant ?", vbYesNo, "Attention !!!!")) = vbYes Then
        Else
            cancel = true
        End If
    End If
End If
End Sub
donc avec ce code, je teste des petites choses, et en fonction de la réponse à ma question de msgbox, j'annule ou non la modification.
mais ça ne fonctionne pas, je ne comprends vraiment pas pourquoi.

quelqu'un a une idée ?