OVH Cloud OVH Cloud

Ouverture de formulaire

3 réponses
Avatar
Jorge
Bonjour à tous

Je voudrais pouvoir en cliquant sur un bouton d'un formulaire, r'ouvrir le
même formulaire mais en m'affichant un autre article.
Le formulaire contient dans un contrôle le numéro de l'article que je veux
ouvrir.
Si j'utilise la formule ci dessous cela ne marche pas car le formulaire
s'ouvre lui même.

DoCmd.OpenForm MONFORMULAIRE, , , "[ARTICLE] =" & Me.ARTICLE_A OUVRIR

Je suppose qu'il faut que stock la valeur ARTICLE_A OUVRIR dans une
variable, que je ferme le formulaire, que je l'ouvre à nouveau en utilisant
une formule comme celle si dessus.
Je doit certainement faire une erreur de syntax quant je remplace
Me.ARTICLE_A OUVRIR dans la formule par le nom de la variable ?
Ou je ne m'y prend pas de la meilleur façon ?

Merci pour vos lumières.

3 réponses

Avatar
Raymond [mvp]
Bonjour.

si tu connais l'article tu te positionnes sur l'article par une fonction
FindFirst directement sans changer de formulaire.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jorge" a écrit dans le message de news:
4211ca64$0$839$
Bonjour à tous

Je voudrais pouvoir en cliquant sur un bouton d'un formulaire, r'ouvrir le
même formulaire mais en m'affichant un autre article.
Le formulaire contient dans un contrôle le numéro de l'article que je veux
ouvrir.
Si j'utilise la formule ci dessous cela ne marche pas car le formulaire
s'ouvre lui même.

DoCmd.OpenForm MONFORMULAIRE, , , "[ARTICLE] =" & Me.ARTICLE_A OUVRIR

Je suppose qu'il faut que stock la valeur ARTICLE_A OUVRIR dans une
variable, que je ferme le formulaire, que je l'ouvre à nouveau en
utilisant
une formule comme celle si dessus.
Je doit certainement faire une erreur de syntax quant je remplace
Me.ARTICLE_A OUVRIR dans la formule par le nom de la variable ?
Ou je ne m'y prend pas de la meilleur façon ?

Merci pour vos lumières.





Avatar
Jorge
Bonjour Raymond
J'en profite pour te remercier pour l'aide que tu n'as apporté d'autre fois.

Pourrais tu me donner un exemple avec cette fonction ?
Avatar
Raymond [mvp]
Tu fais comme pour une liste modifiable:

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Numéro] = " & Str(Nz(Me![Monchamp], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark


Numéro est le champ de la table qui contient la valeur recherchée
Monchamp est le contrôle du formulaire contenant la valeur à rechercher
si c'est une valeur alpha tu l'entoures de '
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://OfficeSystem.Access.free.fr/runtime/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Jorge" a écrit dans le message de news:
4211d424$0$19433$
Bonjour Raymond
J'en profite pour te remercier pour l'aide que tu n'as apporté d'autre
fois.

Pourrais tu me donner un exemple avec cette fonction ?