Bonjour, j'ai un souci.
Voilà mon code:
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.
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
mais ça ne fonctionne pas, je ne comprends vraiment pas pourquoi.
quelqu'un a une idée ?
Partager