Discussion :

[johanaquatique]

Bonjour le forum,

J'ai une base qui contient 2 formulaires (frm_Liste & frm_Detail)

Dans "frm_Liste" , j'ai un aperçu tabulaire qui liste ma table "nom_de_ma_table" et j'ai donc le numéro ID qui se nomme "N°" dans la table et les formulaires.

J'aimerai cliquer sur ce numéro ID "N°" du frm_Liste et ouvrir "frm_Detail" à l'enregistrement précis qu'on clic dans le frm_Liste.

Que dois-je mettre comme code VB sur l'événement clic ?

Merci bcp pour votre aide.
Johan

[Tofalu]

Bonjour

http://access.developpez.com/faq/?page=Forms#PassValeur

[johanaquatique]

j'ai testé ce code, mais cela n'ouvre qu'un formulaire vierge et non le formulaire avec le N° concerné

Code :

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

1
2
3
Private Sub N°_Click()
DoCmd.OpenForm "frm_Detail", acNormal, , "[N°] = " & Me.N°
End Sub

[Tofalu]

C'est que tu as mal appliqué car je peux t'assurer que ce code affiche l'enregistrement répondant à la WhereClause N°=X

[johanaquatique]

oui je compile mal mon code, j'en suis là, mais cela ne va pas

Code :

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

DoCmd.OpenForm frm_Detail [N°] = " & Forms![frm_Liste]![N°]

[mcfly37]

Bonjour a toi, met ceci sur l'évènement click (ou double click comme tu le sent) de ta liste :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
 
Dim stDocName As String
Dim stLinkCriteria As String
 
'Affecte le nom du formulaire que l'on veut créer au paramètre stDocName
 
stDocName = "frm_Detail"
 
'Initialise le critère d'ouverture au numéros de l'outillage sur lequel on a cliquer
 
stLinkCriteria = "[N°] =" & Me.TaListe.Value 
 
 
'Ouvre le formulaire frm_Detail sur l'enregistrement sélectionné dans la liste
 
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit

[johanaquatique]

je dois mettre quoi à cet endroit ?

Code :

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

Me.TaListe.Value

[mcfly37]

Bonjour

Taliste étant le nom de ta liste (N° ici je croit, donc il faudra mettre Me.[N°].Value, ou Me![N°]!Value ou Me![N°]!Value, une des trois syntaxes est bonne mais je ne sais plus laquelle )

Cordialement

Mcfly

[johanaquatique]

waaaaaaa

Merci à tout les 2 et une toute bonne journée...

Voici mon code final et parfaitement fonctionnel !

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub N°_Click()
Dim stDocName As String
Dim stLinkCriteria As String
'Affecte le nom du formulaire que l'on veut créer au paramètre stDocName
stDocName = "frm_Detail"
'Initialise le critère d'ouverture au numéros de l'outillage sur lequel on a cliqué
stLinkCriteria = "[N°] =" & Me.[N°].Value
'Ouvre le formulaire frm_Detail sur l'enregistrement sélectionné dans la liste
DoCmd.OpenForm stDocName, , , stLinkCriteria, acFormEdit
End Sub