Discussion :

[mat75019]

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
25
26
 
Private Sub idemp_Exit(Cancel As Integer)
Dim Nb As Long, Titre As String, Message As String, Réponse
 
Nb = DCount("idemp", "f_emprunteur", "idemp=" & Me.idemp)
 
If Nb >= 1 Then
    Titre = "Le code emprunteur " & Me.idemp & " est déjà dans la base"
    Message = "Cliquez sur Oui pour modifier votre saisie " & _
        vbCrLf & vbCrLf & _
        "Cliquez sur Non afin d'être redirigé(e) vers la page précédente " & _
        "et de séléctionner l'emprunteur à l'aide des menus déroulants"
 
    Réponse = MsgBox(Message, vbYesNo, Titre)
 
    If Réponse = vbYes Then
        Me.idemp.SetFocus
    Else
         Debug.Print "-" & Me.idemp.Value & "-"
        DoCmd.OpenForm "modif_dr_assos_err_idemp", , , "[idemp]=" & Me![idemp]
         DoCmd.Close acForm, Me.Name
    End If
Else
    ' le code emprunteur est nouveau
End If
End Sub

c'est cette partie qui pose probleme

Code :

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

DoCmd.Close acForm, Me.Name

j'ai une erreur d'execution (errreur 2585)
Impossible d'effectuer cette action pendant le traitement d'un evenement de formulaire ou d'état

Avez vous la solution : : : : : : :
Please help me
Merci d'avance !

[ActionAccess]

Bonsoir,

Il n'est pas possible de fermer un formulaire avec DoCmd.Close pendant l'exécution d'une instruction Exit.

Le code suivant

Code :

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

1
2
3
Private Sub Texte0_Exit(Cancel As Integer)
DoCmd.Close acForm, Me.Name
End Sub

plante avec "Impossible d'effectuer cette action pendant le traitement d'un evenement de formulaire ou d'état ".
Idem avec l'instruction LostFocus.

[mat75019]

y a t-il une solution ?

[ypicot]

Essaie de prendre le pb autrement et voir sur quel autre évènement faire la manip (par exemple un gotfocus sur le contrôle suivant).

Yvan