Bonjour à tous
Sur mon sous-formulaire en mode continu j'ai l'événement Form_Current (Activation) , je fais un test NewRecord
avec une MsgBox pour confirmer si je veux ou Non Créer un Nouvel Enregistrement.
Si je fais un Exit Sub je n'ai pas d'Erreur mais le sous-Formulaire s'affiche en mode Création et attend la saisie et ça je veux pas !
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
27
28
29 Private Sub Form_Current() '-------------------------------------------------------------------------------------------------------------------------------- ' Si Nouvel Enregistrement ! '-------------------------------------------------------------------------------------------------------------------------------- If Me.NewRecord Then '######## Voulez-vous Créer Une Nouvelle Facture ?####### ! 'Je ne Veux PAS de Création ==> Retour à l'Appelant If MsgBox("Créer Une Nouvelle Facture ? ", vbInformation + vbOKCancel + vbDefaultButton2, "Nouvelle Facture ?") = vbCancel Then If Me.Recordset.RecordCount > 0 Then 'Il Existe déjà une Facture MsgBox "il Existe une Facture(s) " 'ici je veux faire un retour à l'appelant mais ... ' DoCmd.Close Génére Erreur 2585->Impossible d'éxécuter une action pendant le traitement d'un événement Else 'Y a pas de Facture MsgBox "Y a pas de Facture" 'ici je veux faire un retour à l'appelant mais ... ' DoCmd.Close Génére Erreur 2585->Impossible d'éxécuter une action pendant le traitement d'un événement End If Else 'Création Nouvelle Facture Me.FacTypeDoc.SetFocus Me.FacTypeDoc.BackColor = RGB(255, 255, 60) 'couleur Jaune End If End If
En fait si je ne veux pas créer une Nouvelle Facture je veux simplement que la réponse vbCancel de la MsgBox Annule le mode Création .
et retourner à l'Appelant
Je ne trouve pas comment faire
De plus Access passe automatique ce sous-Formulaire en mode Création si il il n'y a aucun Enregistrement dans la Table
Merci pour l'aide
Partager