Accéder aux valeures d'un champ dans un recordset dont le nom est recu en paramètre
1 réponse
AfterBoy
Bonjour,
j'ai un formulaire de 10 champs se nommant groupe1 =E0 groupe10.
Dans l'entete j'ai 10 boutons au dessus de chaque colonne. Les 10
boutons s'appelle B1 =C0 B10.
je veux qu'en cliquant sur un des 10 boutons, qu'il imprime les
valeurs qui sont dans la colonne correspondante.
Ces 10 bouton appelle le meme fonction :
=3Dcr=E9erG([screen].[activecontrol].[Nom])
donc dans la fonction, je recois le nom du bouton...
Function cr=E9erG (NomBouton As String)
Dim Groupe As String
Dim rst As Recordset
Set rst =3D Me.RecordsetClone
Groupe =3D "groupe" & Right(NomBouton, 1) <--- me donne le nom du
champ dont je veux les valeures.
rst.MoveFirst
Do While Not rst.EOF
MsgBox rst ! (Groupe) <-- c'est ici ou j'ai la mauvaise
syntaxe.
rst.MoveNext
Loop
End Function
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
Sylvain Lafontaine
Enlevez le point d'exclamation: MsgBox rst (Groupe)
-- Sylvain Lafontaine, ing. MVP pour « Windows Live Platform » Courriel: sylvain2009 sylvainlafontaine com (remplissez les blancs, svp.) Consultant indépendant et programmation à distance pour Access et SQL-Server.
"AfterBoy" wrote in message news: Bonjour,
j'ai un formulaire de 10 champs se nommant groupe1 à groupe10. Dans l'entete j'ai 10 boutons au dessus de chaque colonne. Les 10 boutons s'appelle B1 À B10.
je veux qu'en cliquant sur un des 10 boutons, qu'il imprime les valeurs qui sont dans la colonne correspondante.
Ces 10 bouton appelle le meme fonction :
=créerG([screen].[activecontrol].[Nom])
donc dans la fonction, je recois le nom du bouton...
Function créerG (NomBouton As String) Dim Groupe As String Dim rst As Recordset Set rst = Me.RecordsetClone Groupe = "groupe" & Right(NomBouton, 1) <--- me donne le nom du champ dont je veux les valeures. rst.MoveFirst Do While Not rst.EOF MsgBox rst ! (Groupe) <-- c'est ici ou j'ai la mauvaise syntaxe. rst.MoveNext Loop End Function
Merci
Enlevez le point d'exclamation: MsgBox rst (Groupe)
--
Sylvain Lafontaine, ing.
MVP pour « Windows Live Platform »
Courriel: sylvain2009 sylvainlafontaine com (remplissez les blancs, svp.)
Consultant indépendant et programmation à distance pour Access et
SQL-Server.
"AfterBoy" <RBRADETTE@CSTFELICIEN.QC.CA> wrote in message
news:5dec013e-42cf-411b-ba42-b2d8e5763127@v1g2000prd.googlegroups.com...
Bonjour,
j'ai un formulaire de 10 champs se nommant groupe1 à groupe10.
Dans l'entete j'ai 10 boutons au dessus de chaque colonne. Les 10
boutons s'appelle B1 À B10.
je veux qu'en cliquant sur un des 10 boutons, qu'il imprime les
valeurs qui sont dans la colonne correspondante.
Ces 10 bouton appelle le meme fonction :
=créerG([screen].[activecontrol].[Nom])
donc dans la fonction, je recois le nom du bouton...
Function créerG (NomBouton As String)
Dim Groupe As String
Dim rst As Recordset
Set rst = Me.RecordsetClone
Groupe = "groupe" & Right(NomBouton, 1) <--- me donne le nom du
champ dont je veux les valeures.
rst.MoveFirst
Do While Not rst.EOF
MsgBox rst ! (Groupe) <-- c'est ici ou j'ai la mauvaise
syntaxe.
rst.MoveNext
Loop
End Function
Enlevez le point d'exclamation: MsgBox rst (Groupe)
-- Sylvain Lafontaine, ing. MVP pour « Windows Live Platform » Courriel: sylvain2009 sylvainlafontaine com (remplissez les blancs, svp.) Consultant indépendant et programmation à distance pour Access et SQL-Server.
"AfterBoy" wrote in message news: Bonjour,
j'ai un formulaire de 10 champs se nommant groupe1 à groupe10. Dans l'entete j'ai 10 boutons au dessus de chaque colonne. Les 10 boutons s'appelle B1 À B10.
je veux qu'en cliquant sur un des 10 boutons, qu'il imprime les valeurs qui sont dans la colonne correspondante.
Ces 10 bouton appelle le meme fonction :
=créerG([screen].[activecontrol].[Nom])
donc dans la fonction, je recois le nom du bouton...
Function créerG (NomBouton As String) Dim Groupe As String Dim rst As Recordset Set rst = Me.RecordsetClone Groupe = "groupe" & Right(NomBouton, 1) <--- me donne le nom du champ dont je veux les valeures. rst.MoveFirst Do While Not rst.EOF MsgBox rst ! (Groupe) <-- c'est ici ou j'ai la mauvaise syntaxe. rst.MoveNext Loop End Function