OVH Cloud OVH Cloud

goto record

2 réponses
Avatar
didier
Bonjour

Je voudrait faire un goto record mais avec une expression
J'ai stock=E9 la valeur d'un controle dans une variable et=20
je vais un docmd.requery
Voila ce que je veut faire
monctrl est la Cl=E9 primaire de la table ou est fond=E9 le=20
formulaire
Dim cl=E9 As String
cl=E9 =3D "" & Me.monctrl & ""=20
DoCmd.OpenQuery "Suppressionp"
Me.Requery
DoCmd.GoToRecord (aller =E0 l'enregistrement ou=20
moonctrl=3Dcl=E9)=20
Comment je peut faire vu que je connais pas le N=B0
d'enregistrement

2 réponses

Avatar
J'utiliserais FindRecord . C'est l'équivalent de pointer
un champ et faire ctl+f
Même si l'ordre des champs change, ta clé ne change pas.

...
clé = Me.monctrl 'il n'est nécessaire d'ajouter des "
...
Me.Requery
Me.monctrl.SetFocus 'placer le curseur sur le champ où se
'fera la recherche
DoCmd.FindRecord clé 'effectue la recherche

Bonne chance
ORDINO


-----Message d'origine-----
Bonjour

Je voudrait faire un goto record mais avec une expression
J'ai stocké la valeur d'un controle dans une variable et
je vais un docmd.requery
Voila ce que je veut faire
monctrl est la Clé primaire de la table ou est fondé le
formulaire
Dim clé As String
clé = "" & Me.monctrl & ""
DoCmd.OpenQuery "Suppressionp"
Me.Requery
DoCmd.GoToRecord (aller à l'enregistrement ou
moonctrl=clé)
Comment je peut faire vu que je connais pas le N°
d'enregistrement
.



Avatar
didier
Bonjour

Effectivement tu as raison et en plus ça marche
merci
-----Message d'origine-----
J'utiliserais FindRecord . C'est l'équivalent de pointer
un champ et faire ctl+f
Même si l'ordre des champs change, ta clé ne change pas.

....
clé = Me.monctrl 'il n'est nécessaire d'ajouter des "
....
Me.Requery
Me.monctrl.SetFocus 'placer le curseur sur le champ où se
'fera la recherche
DoCmd.FindRecord clé 'effectue la recherche

Bonne chance
ORDINO


-----Message d'origine-----
Bonjour

Je voudrait faire un goto record mais avec une
expression


J'ai stocké la valeur d'un controle dans une variable
et


je vais un docmd.requery
Voila ce que je veut faire
monctrl est la Clé primaire de la table ou est fondé le
formulaire
Dim clé As String
clé = "" & Me.monctrl & ""
DoCmd.OpenQuery "Suppressionp"
Me.Requery
DoCmd.GoToRecord (aller à l'enregistrement ou
moonctrl=clé)
Comment je peut faire vu que je connais pas le N°
d'enregistrement
.

.