Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Source d'un sous-formulaire

Source d'un sous-formulaire

1 réponse
Avatar
Jacques
Bonsoir,

Sur le sous formulaire (mode continu) sfma, j=92ai une liste d=E9roulante
de recherche
lorsque je choisi un enregistrement celui-ci s=92affiche bien sur sfma,
mais rien sur
le sous formulaire sfm.

Code :

'---Initialisation du formulaire et des sous formulaires
frm =3D "frm Comit=E9"
sfm =3D "frm Comit=E9 - sfm"
sfma =3D "frm Comit=E9 - sfma"

'--- Source du Sous formulaire "frm Comit=E9 - sfma"
'--- Appel de la fonction RecupereSql
strNomRqt =3D "qdfAdh=E9rents"
StrSql =3D RecupereSQL(strNomRqt)

'--- M=E0j du sous formulaire "frm Comit=E9 - sfma"
With Forms(frm)(sfma)
Application.Echo True, "chargement de la page Veuillez
patient=E9"
.Form.RecordSource =3D StrSql
.Form.Requery
Me.Form.RecordSource =3D StrSql
.LinkMasterFields =3D "R=E9fAdh=E9rent"
.LinkChildFields =3D "R=E9fAdh=E9rent"
Me.Requery
Application.Echo True
End With

'--- Source du Sous formulaire "frm Comit=E9 - sfm"
'--- Appel de la fonction RecupereSql
strNomRqt =3D "qdfComit=E9"
strsqlBis =3D RecupereSQL(strNomRqt)

'--- M=E0j du sous formulaire "frm Comit=E9 - sfm"
With Forms(frm)(sfm)
Application.Echo True, "chargement de la page Veuillez
patient=E9"
.Form.RecordSource =3D strsqlBis
.Form.Requery
Me.Form.RecordSource =3D strsqlBis
.LinkMasterFields =3D "R=E9fAdh=E9rent"
.LinkChildFields =3D "R=E9fAdh=E9rent"
Me.Requery
Application.Echo True

End With

Merci pour votre aide.

Salutations
Signaler un problème avec ce contenu

1 réponse

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
jacques
On 2 août, 00:52, Jacques wrote:
Bonsoir,

Sur le sous formulaire (mode continu) sfma, j’ai une liste déroulante
de recherche
lorsque je choisi un enregistrement celui-ci s’affiche bien sur sfma,
mais rien sur
le sous formulaire sfm.

Code :

'---Initialisation du formulaire et des sous formulaires
    frm = "frm Comité"
    sfm = "frm Comité - sfm"
    sfma = "frm Comité - sfma"

'--- Source du Sous formulaire "frm Comité - sfma"
'--- Appel de la fonction RecupereSql
     strNomRqt = "qdfAdhérents"
     StrSql = RecupereSQL(strNomRqt)

'--- Màj du sous formulaire "frm Comité - sfma"
     With Forms(frm)(sfma)
        Application.Echo True, "chargement de la page Veuillez
patienté"
        .Form.RecordSource = StrSql
        .Form.Requery
        Me.Form.RecordSource = StrSql
        .LinkMasterFields = "RéfAdhérent"
        .LinkChildFields = "RéfAdhérent"
        Me.Requery
        Application.Echo True
     End With

'--- Source du Sous formulaire "frm Comité - sfm"
'--- Appel de la fonction RecupereSql
        strNomRqt = "qdfComité"
        strsqlBis = RecupereSQL(strNomRqt)

'--- Màj du sous formulaire "frm Comité - sfm"
     With Forms(frm)(sfm)
        Application.Echo True, "chargement de la page Veuillez
patienté"
        .Form.RecordSource = strsqlBis
        .Form.Requery
        Me.Form.RecordSource = strsqlBis
        .LinkMasterFields = "RéfAdhérent"
        .LinkChildFields = "RéfAdhérent"
        Me.Requery
        Application.Echo True

     End With

Merci pour votre aide.

Salutations



Bonsoir,

Personne pour m'aider ?

Je peux mettre le lien d'une base avec le formulaire en question.

Salutations