OVH Cloud OVH Cloud

conseils sur requete entre formulaires

2 réponses
Avatar
DAniel
Bonjour
- Qq1 peut-il me donner une solution pour permettre de passer d1 form1 à un
form2 , valider dans form2 un code (jusque là OK)
puis fermer (ou visible=false) et automatiquement aller dans form1 à
l'enregistrement correspondant à la selection du form2.
A ce niveau j'arrive bien à fermer mais pas à positionner sur enregistrement
(messages erreur car le form1 ne peut être activé )

- Le form2 est une liste dans un form réduit qui doit pouvoir etre appelé
rapidement (il est ouvert à la suite du openform1). le focus sur le form1
est bien sur la clef recherchée.
Merci de vos conseils
DAniel

2 réponses

Avatar
david
salut,

si NCle est le champ servant dans form1 et form2 de clé de recherche,
lorsque l'on clic sur le bouton rechercher dans form2 :
private sub cmdSearch_click()
'Activer le formulaire Form1
doCmd.selectObject acForm, "Form1"
'Aller dans le contrôle de Clé
forms("Form1").Controls("NCle").setFocus
'Rechercher la même valeur que celle actuelle dans Form2
doCmd.findRecord NCle
' il faut maintenant masquer ou fermer le formulaire Form2
me.visible = false
end sub

Voila a+
Avatar
DAniel
Merci David
Mais tjrs pb car l'ordre est le form1 est ouvert , le focus sur la clef
recherchée, on ouvre le form2, l'utilisateur tape un bout de mot
et clique pour actualiser la requete, plusieurs enreg s'affichent en dessous
, utilisateur selectionne 1 (jusque là tout est OK )
ensuite ca bloque !
Pas moyen à la validation sur form2 , d'activer le form1 et de faire un
accès à l'enregistrement correspondant : [Nomde Clefde
Form1]=monControledansForm2....tant que form2 ouvert
Si c'est plus clair comme cà ?




"david" a écrit dans le message de news:

salut,

si NCle est le champ servant dans form1 et form2 de clé de recherche,
lorsque l'on clic sur le bouton rechercher dans form2 :
private sub cmdSearch_click()
'Activer le formulaire Form1
doCmd.selectObject acForm, "Form1"
'Aller dans le contrôle de Clé
forms("Form1").Controls("NCle").setFocus
'Rechercher la même valeur que celle actuelle dans Form2
doCmd.findRecord NCle
' il faut maintenant masquer ou fermer le formulaire Form2
me.visible = false
end sub

Voila a+