fonction et sub lors d'un meme evenement

**jph86** · 08/03/2006, 10h11

bonjour,
je voudrais savoir si lors d'un meme evenement sur un formulaire (evenement Avant MAJ) je peux cumuler les codes suivants:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Form_BeforeUpdate(Cancel As Integer)
Me![DERNIERE MODIFICATION] = Now
 
 
  If MsgBox("VOULEZ-VOUS CONFIRMER LA MODIFICATION ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbNo Then
    Me.Undo
    Cancel = True
  End If
End Sub

et la fonction suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Option Compare Database
 
'------------------------------------------------------------
' ajout_des_act_modifiees
'
'------------------------------------------------------------
Function ajout_des_act_modifiees()
On Error GoTo ajout_des_act_modifiees_Err
DoCmd.SetWarnings False
    ' ajout d'un compteur unique qui sera utilise dans les tables de modif act et cablage
    DoCmd.OpenQuery "Ajout num pour Historique", acViewNormal, acEdit
    DoCmd.OpenQuery "Ajout des ACT mofifies", acViewNormal, acAdd
    DoCmd.OpenQuery "ajout Cablage Modifie", acViewNormal, acEdit
    DoCmd.OpenQuery "Historique mise a jour", acViewNormal, acEdit
 
 
ajout_des_act_modifiees_Exit:
    Exit Function
 
ajout_des_act_modifiees_Err:
    MsgBox Error$
    Resume ajout_des_act_modifiees_Exit
DoCmd.SetWarnings True
End Function

cette fonction est actuellement appelee sur l'evenement (si modification) du formulaire. cette fonction est issue d'une conversion de macro qui elle meme execute 4 requetes.
j'ai essaye de copier l'un pour le mettre avec l'autre et inverssement mais ca ne marche pas.

L'objectif etant 3 choses en fait.
lors d'une modification d'enrregistrement:
- ouvrir un MsgBox pour proposer de confirmer ou annuler la modif
- inscrire la date dans le champ [DERNIERE MODIFICATION]
- executer les requettes.

actuellement les choses sont separees et pas au top.
pour la premiere partie (MsgBox) declenche sur l'evenement "Avant MAJ" ca marche tres bien.
pour la fonction declenchee sur l'evenement "Si modification" c'est moins fiable puisque si je change le moindre caractere d'un champ et qu'il y a une actualisation avec une liste deroulante par exemple, la fonction va s'executer sans meme avoir valide cette modif avec le MsgBox.
pouvez vous m'aider ?
merci

**Dolphy35** · 08/03/2006, 10h16

Salut,

je te conseil d'appeler ta fonction sur la réponse du message est oui et de mettre le même code sur l'événement si modification.

**jph86** · 08/03/2006, 11h22

Envoyé par Dolphy35

Salut,

je te conseil d'appeler ta fonction sur la réponse du message est oui et de mettre le même code sur l'événement si modification.

je ne suis pas tres bon en code et je suis debutant en la matiere.
je ne sais pas comment faire ce que tu proposes. peux tu m'aider ?
merci

**Dolphy35** · 08/03/2006, 11h28

re,

tu reprend ton code existant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
If MsgBox("VOULEZ-VOUS CONFIRMER LA MODIFICATION ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbYes Then 
 
    Call ajout_des_act_modifiees
 
else
 
    Me.Undo 
    Cancel = True 
 
End If

En gros si la réponse à ton message est oui tu exécute ta fonction sinon tu annule la modification.

tu mets ce code sur les événements BeforeUpdate et Form_Dirty

**jph86** · 08/03/2006, 11h42

Envoyé par Dolphy35

re,

tu reprend ton code existant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
If MsgBox("VOULEZ-VOUS CONFIRMER LA MODIFICATION ?", vbQuestion + vbYesNo, "CONFIRMATION") = vbYes Then 
 
    Call ajout_des_act_modifiees
 
else
 
    Me.Undo 
    Cancel = True 
 
End If

En gros si la réponse à ton message est oui tu exécute ta fonction sinon tu annule la modification.

tu mets ce code sur les événements BeforeUpdate et Form_Dirty

merci pour ta reactivite.
je viens de faire ce que tu m'as dit et ca marche super.
j'ai mis le code modifie sur Avant MAJ mais je ne sais pas ou trouver Form_Dirty dans mon formulaire.