Discussion :

[kangourou_agile]

Bonjour tout le monde...
Je cherche un moyen d'avoir sur un sous-formulaire une liste de choix "numéro de commande" qui remplit automatiquement les autres champs du formulaire si l'entrée existe déja dans ma table, mais permet également d'ajouter une nouvelle entrée si la commande en question n'existe pas encore. Le problème c'est que la liste "numéro de commande" doit avoir pour controlSource le champ correspondant dans ma table, mais dans ce cas j'obtiens une erreur "update ou cancelupdate effectué sans appeler Addnew ni Edit".

Voici mon code:

Code :

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

1
2
3
4
5
6
7
Private Sub cmb_PO_AfterUpdate()
    ' Rechercher l'enregistrement correspondant au contrôle.
    Dim rs As Object
 
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[PO_No] = '" & Me![cmb_PO] & "'"
       If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Sinon j'ai une autre option possible: J'ai déja un formulaire d'ajout de donnéees du bon de commande, et un formulaire de consultation. Je pourrais mettre un champ texte sur mon formulaire qui ouvre le sous-formpulaire de consultation si les données existent, et celui d'ajout de données dans le cas contraire.
Je ne sais pas si c'est faisable, et si c'est plus simple...

Merci beaucoup.

[Arkham46]

bjr,

quelle ligne renvoie l'erreur?

[kangourou_agile]

C'est une boite de dialgue qui s'ouvre quand je modifie le contenu de n'importe lequel de mes champs.
A la fin, quand je sauve, c'est les données d'un autre numéro de commandes (celui qui était sélectionné avant dans le champ "numéro de commande") qui sont écrasés, rien n'est ajouté (en même temps c'est normal, vu que c'est un champ indépendant).