Impossible d'obtenir un sous formulaire à double affichage !!!Fermé

Question

Bonjour,
Dans Access, j'ai créé un formulaire à double affichage adossé à une requête
Lorsque j'ouvre ce formulaire individuellement, il s'affiche bien en double affichage.
Mais si je l'incorpore en sous formulaire dans un formulaire parent, le double affichage disparait au profit d'un formulaire unique.
En conséquence, j'ai dupliqué mon SF "sous formulaire'
1/ Le SF 1 paramétré en feuille e données
2/ La SF 2 Paramétré en formulaire unique
et incorporé les 2SF dans le Formulaire parent.
Mais je n'ai plus la fonction qui, quand je sélectionne une ligne ou un champs du SF1
ça me filtre automatiquement le SF2 adossé à la ligne ou champs ayant le focus du SF1

Pouvez-vous m'aider pour créer cette fonction filtrant mon SF2 en fonction de la ligne ou du champ sélectionné dans le SF1.

Par avance merci pour votre aide

RV71 · Answer

Bonjour,

je crois que c 'est le fonctionnement normal.

Il faut tester avec ce code que tu mettras sur les événements susceptibles de faire actualiser ton SF2.
Pour faire la mise à jour à chaque fois que tu sélectionnes un enregistrement dans le SF1, mets le code sur l'évènement current().

set Sf2.form.recordset = Sf1.Form.recordset

a+

Castours · Answer

bonjours
dans ce lien un exemple
https://www.cjoint.com/c/JDtqG5DHh3S

RV71 · Answer

Bon,

je viens de faire un test et cela fonctionne.


Sur l'évènement current() du sf1, j'ai mis ce code :

Dim enreg As Long 'ou integer, mais qui peut le + peut le -
enreg = Me.CurrentRecord 'on stocke l'enregistrement courant du sf1 dans la variable enreg

Forms!FormPrincipal!sf2.SetFocus 'on donne le focus au sf2

DoCmd.GoToRecord , , acGoTo, enreg 'on va au même enregistrement que sf1


A+

RV71 · Answer

Bonjour,

bah simplement tu mets
1/ Sur l'évènement load() du SF1
Me.SFDépensesSaisieRecherchReq1FD.SetFocus
DoCmd.GoToRecord , , acNewRec

2/ Sur l'évènement current() du SF1, tu laisses comme je t'ai suggéré, à savoir
Dim enreg As Long 'ou integer, mais qui peut le + peut le -
enreg = Me.CurrentRecord 'on stocke l'enregistrement courant du sf1 dans la variable enreg

Forms!FormPrincipal!sf2.SetFocus 'on donne le focus au sf2

DoCmd.GoToRecord , , acGoTo, enreg 'on va au même enregistrement que sf1

A+

traderpierre · Answer

Je reviens vers vous car j'ai testé votre code + 2 variantes,
J'obtiens des erreurs à chaque fois.
Avez-vous une idée pour pouvoir ouvrir ce formulaire sur Nouvel enregistrement ???
D'avance, Merci
Ci-dessous copies écran

RV71 · Answer

Attends,

remplace "me.xxxxxxxxxx" (tu devrais choisir des noms encore + longs :-) ) par forms!formPrincipal!sf1.setfocus (premiere copie écran, donc sur load de sf1)

Ca devrait aller mieux...

A+

RV71 · Answer

Que se passe t'il si tu cliques sur continuer (la petite flèche verte en haut) ?

traderpierre · Answer

Il me marque  Erreur d'exécution'2105': Impossible d'atteindre l'enregistrement spécifié

RV71 · Answer

Du coup, cette erreur se produit au chargement ou au moment ou tu cliques sur un enregistrement dans le sf1 ?
Sinon, si tu veux, partage ta base via https://fr.fromsmash.com/

A+

RV71 · Answer

Essaies de mettre un on error resume next avant pour voir...

RV71 · Answer

J'abandonne pour ce soir...

RV71 · Answer

Sincèrement, je ne vois pas.

Pourquoi vouloir t'acharner à aller sur un nouvel enregistrement automatiquement ?

Il n'y a qu'à cliquer.

Si d'autres ont la patience, moi j'arrête là, trop usine à gaz

traderpierre · Answer

Merci quand même

Castours · Answer

Bonjour 
C'est Un peu le Bor......
Une chose a faire c'est de faire des relations correctes un à plusieurs avec des id en auto et numérique.

RV71 · Answer

Bon,

j'ai réfléchis (oui ça peut m'arriver), et j'ai trouvé d'où vient le souci, du moins comment le contourner : on cherchait comme des c... dans le vba, mais en fait, il suffit de baser le sf2 sur la requête sans les filtres, et le faire afficher le contenu de l'enregistrement de sf1.
Au load des 2 sf, on se met sur un nouvel enregistrement.
Sur current du sf1, on affiche alors l'enregistrement correspondant dans sf2.

Je ne sais pas si je suis clair, mais voici la BdD modifiée (il doit il y avoir des morceaux de code en trop, mais pas le courage de tout vérifier).

https://www.cjoint.com/c/JDyo7ZN42IU

A+

traderpierre · Answer

Oui mais je n'ai plus de filtre .
Comment faire pour que ça fonctionne même avec le filtrage multi critère

RV71 · Answer

Ah bah oui du coup, en modifiant la requête source du sf2 les modifs se sont appliquées au sf1.

Faut faire 2 requetes.

Je regarde cela

Impossible d'obtenir un sous formulaire à double affichage !!!

17 réponses

Discussions similaires

Newsletters