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
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 Me.Name
    End If
Else
    ' le code emprunteur est nouveau
End If
End Sub

J'ai un probleme pour fermer le formulaire : i

erreur d'execution 13
ncompatibilité de type

c'est cette partie qui pose probleme

Code :

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

     DoCmd.close Me.Name

qu'es qui va pas ? merci d'avance

[ActionAccess]

Bonsoir,

Il conviendrait tout simplement de mettre :

Code :

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

DoCmd.Close acForm, Me.Name

Bonne soirée

[mat75019]

ce n'est helas pas si simple !
j'ai maintenant une autre erreur d'execution (errreur 2585)
Impossible d'effectuer cette action pendant le traitement d'un evenement de formulaire ou d'état

[seacat]

bonjour,

y a t il qqch de particulier qui s'execute à l'ouverture du 2e formulaire ?

Code :

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

DoCmd.OpenForm "modif_dr_assos_err_idemp", , , "[idemp]=" & Me![idemp]

sinon, le

Code :

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

DoCmd.Close acForm, "NomFormulaire"

devrait fonctionner

(ton me.name me laisse un peu perplexe)

[mat75019]

non le probleme n'est pas à la à l'ouverture du 2nd formulaire,
c'est la fermeture du formulaire d'ou s'execute le code.

Le probleme ne vien pas non plus du me.name non plus, j'ai deja essayé avec le nom du formulaire.

Qqlqu'un à la solution : : : : : : : :
please help me !!!!!!!!!!

[marot_r]

Essaye de ne pas ouvrir le second form et vois ce qui se passe.

A+

[seacat]

salut,

Impossible d'effectuer cette action pendant le traitement d'un evenement de formulaire ou d'état

quand ce message apparait, si tu cliques sur "débogage" tu arrives à l'endroit du code qui génère l'erreur

c'est de là qu'il faut partir pour analyser ce qui se passe

que la force soit avec toi