Discussion :

[ToFind]

Bonjour,
Dèjà merci de votre aide.
J'ai un formualire "FrmIntervenantDossierAjout" comportant une zone de liste "IdIntervenantAuDossier" basée sur "IDIntervenant" de la table "TblIntervenants".
Cette dernière contient TOUS les intervenants.
Pour faciliter la recherche, je tape, dans "IdIntervenantAuDossier" le nom de l'intervenant recherché dans la zone de liste.
Si l'intervenant à sélectionner ne se trouve pas dans la liste, je voudrais après un "enter" ou "changement de champs", que s'ouvre une MsgBox indiquant que l'intervenant n'existe pas avec la proposition de l'ajout ou non dans la table "TblIntervenant" (par l'intermédiaire de "FrmIntervenantAjout").
Si réponse "oui" à la question, je voudrais ouvir le formulaire "FrmIntervenantsAff" sur un NewRec. A la sortie la liste doit être mise à jour.

Code du "sur absence dans liste" de "IdIntervenantAuDossier":

Code :

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

1
2
3
4
5
6
7
8
9
10
   If MsgBox("L'intervenant n'existe pas. Voulez-vous l'enregister dans la liste?", vbYesNo, "confirmation") = vbNo Then
   Me.Undo
   Else
   Dim stDocName As String
   Dim stLinkCriteria As String
 
   stDocName = "FrmIntervenantsAff"
   DoCmd.OpenForm stDocName, , , stLinkCriteria
   DoCmd.GoToRecord , , acNewRec
   End If

Code sur "sur activé" du "FrmIntervenantAuDossier":

Code :

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

Me![IdIntervenantAuDossier].Requery

Résultat :
La MsgBox s'ouvre et "L'intervenant n'existe pas. Voulez-vous..." Je répond oui. Le "FrmIntervenantAff" s'ouvre bien en NewRec. ensuite un message :"Le texte que vous avez entré n'est pas un élément de la liste. Voulez-vous modifier les éléments de la liste. Oui Non. Ce message semble généré par access. Je répond Oui. Je complète mon nouvel enregistrement dans "FrmIntervenantsAff" et je quitte. Là je reçois un message d'erreur sur la mise à jour de la liste (Requery repris ci-dessus).
Je ne comprends pas où se trouve l'erreur.
A bientôt.

[Invité]

Bonjour
J'ai l'impression que tu cumules deux procédures: la tienne + celle d'Access.
A partir de la version 2007, Access peut s'occuper de tout:
Dans les propriétés de la comboBox :
- Absence dans liste à Oui
- Formulaire Modifier les éléments de liste : NomDuFormulaireSourceDeTaCombo.

A partir de ce moment là Access va générer le message, t'ouvrir ton formulaire d'ajout et actualiser la liste à la fermeture du formulaire.
L'inconvénient est que ton message n'est pas personnalisé.

Si tu veux le personnaliser, il faut agir sur l'évènement 'Erreur' de ton formulaire, et gérer l'erreur 2237.

[ToFind]

Merci de ta réponse. C'est bien ça le souci.
Mais alors, je ne vois comment ouvrir le formulaire

- Formulaire Modifier les éléments de liste : NomDuFormulaireSourceDeTaCombo.

sur un nouvel enregistrement vierge. Access ouvre le formulaire sur le 1er enregistrement de la table.
Crois-tu que ce soit réalisable?

[Invité]

Effectivement
Mais si c'est un formulaire continu il te donne la possibilité, d'ajouter un enregistrement.
Sinon il faut effectivement passer par du code un peu plus lourd.
As tu regardé ce lien dans la Faq:
http://access.developpez.com/faq/?page=zdl#AbsDsListe