Discussion :

[mouaa]

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 ?

[Pwouaro]

Salut mouaa,

C'est peut être une fausse manip lors du copié-collé, mais il n'y a pas d'instruction entre then et else

[mouaa]

C'est normal, normalement j'appelle une fonction, mais elle n'est pas encore écrite.

[Pwouaro]

Je crois que c'est faisable avec :

Docmd.CancelEvent

rien de sûr.

[mouaa]

ok je teste

[mouaa]

.... marche pas ....