Discussion :

[moilou2]

Bonjour à tous. J'ai une question qui va peut être vous parraître compliqué je ne sais pas.

Dans un formulaire, j'ai une vue éclatée d'un sous ensemble d'une machine.

J'ai donc différentes pièces sur lequels j'ai mis un label avec la référence de la pièce correspondante.

Ce que je voudrais faire si c'est possible, c'est récuperer la valeur du label (c'est donc une référence du genre "Twx7829"), et la comparer aux références ^présente dans un autre formulaire dans un sous formulaire, afin de ne filtrer que la ligne de l'article qui correspond à cette référence.

En résumé:

-Je clique sur ma vue éclatée (j'ai un lien hypertexte ou un bouton sur mon label).

-Mon objectif après ce clic est d'arriver dans le sous formulaire d'un autre formulaire, et de filtrer en fonction de la valeur du label, la ligne correspondante dans ma nomenclature.

Si queslqu'un peut m'éclairer!!!

[francishop]

Bonsoir,

Si queslqu'un peut m'éclairer!!!

Me voici promu éclairagiste pour participant excelien éclairé!
http://access.developpez.com/faq/?pa...#AtteindreCtrl
Sans oublier Loufab qui nous a concocté :
http://loufab.developpez.com/appelformulaire/

Cordialement.

[francishop]

Bonsoir,

Aprés avoir vu http://www.developpez.net/forums/sho...d.php?t=535950
j'ai quelque remord de ne pas avoir été plus loin sur le sujet.

On peut tout simplement mettre des boutons et définir, si besoin la propriété à transparent (Pas à invisible.) Ou encore, placer directement le code sur DblClick du "label".

Sur le formulaire appelant se trouve les références désirées, on va s'y référer :
..Du texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub cmd_texte_Click()
DoCmd.OpenForm "frm_Exemple", acNormal, , _
    "[ChampTexte]='" & Me![ChampTexte] & "'"
End Sub

..Du numérique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub cmd_Num_Click()
DoCmd.OpenForm "frm_Exemple", , , _
    "[ChampNum] =" & Me![ChampNum]
End Sub

***************************************************************************

Le bouton appelle qu'une seule et même donnée :

..Du texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub cmd_TexteDirect_Click()
DoCmd.OpenForm "frm_Exemple", acNormal, , _
    "[ChampTexte]='" & "Bonjour" & "'"
End Sub

..Du numérique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub cmd_NumDirect_Click()
DoCmd.OpenForm "frm_Exemple", , , _
    "[ChampNum] =" & 200
End Sub

***************************************************************************

On peut aussi, en cas de boutons de commandes multiples, "alléger" le codage par une fonction :

..Du texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Function StrOpen(strNom As String)
DoCmd.OpenForm "frm_Exemple", acNormal, , _
    "[ChampTexte]='" & strNom & "'"
End Function

..Du numérique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Function IntOpen(IntNum As Integer)
DoCmd.OpenForm "frm_Exemple", , , _
    "[ChampNum] =" & IntNum
End Function

Fonctions appelés depuis le formulaire, dans les propriétés, sur click on place :
..Du texte :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=StrOpen("Bonjour")

..Du numérique :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=IntOpen(200)

Cordialement.