Bonjour,
J'ai un formulaire avec un bouton EDITER et si on clique sur ce bouton, cela appelle le code suivant
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
Le formulaire F_Edition_Jalon est supposé s'ouvrir sur le pk_facturation passé en paramètre.

Dans le formulaire F_Edition_Jalon, j'ai uniquement le code 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
Mon problème est le suivant :
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