Bonjour,
J'ai un formulaire avec un bouton EDITER et si on clique sur ce bouton, cela appelle le code suivant
Le formulaire F_Edition_Jalon est supposé s'ouvrir sur le pk_facturation passé en paramètre.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub editer_Click() DoCmd.OpenForm "F_Edition_Jalon", , , "PK_Facturation = " & PK_facturation End Sub
Dans le formulaire F_Edition_Jalon, j'ai uniquement le code suivant :
Mon problème est le 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 Private Sub Form_BeforeUpdate(Cancel As Integer) On Error GoTo BeforeUpdate_Error If Me.Dirty Then If MsgBox(" Enregistrer les valeurs saisies ?", _ vbYesNo + vbQuestion, "Save Changes") = vbNo Then Me.Undo End If End If BeforeUpdate_Exit: Exit Sub BeforeUpdate_Error: MsgBox Err.Description Resume BeforeUpdate_Exit End Sub Private Sub Image81_Click() DoCmd.close acForm, Me.Name ' on ferme End Sub
Si je clique sur le bouton éditer, access ce plante immédiatement.
Si je mets un point d’arrêt sur le ligne qui ouvre le form, quand je l'exécute, toute va bien.
et ensuite si j'enlève le point d’arrêt, tout se passe bien pour les clics suivants mais si je ferme acces et que je le relance, le problème revient !
ca semble délirant comme truc !
Une idée d'investigation ?
Mille mercis,
François
Partager