Choisir un enregistrement issu d'une requête sélection
2 réponses
moromain
Bonjour,
Dans une requ=EAte s=E9lection, j'obtiens 2 enregistrements.
En VBA, je voudrais choisir le second enregistrement s=E9lectionn=E9.
J'ai donc ce code :
Set dbs =3D CurrentDb
Code_Requete =3D "(...)"
Set rs =3D dbs.OpenRecordset(Code_Requete)
Dans rs(0) j'ai le champs issu de la requ=EAte. Les 2 valeurs sont
Valeur1 et Valeur2.
Je voudrais que 2 variables re=E7oivent respectivement la valeur de
chaque enregistrement.
Autrement dit :
Var1 =3D Valeur1 et Var2 =3D Valeur2
Si je fais Var1=3Drs(0), =E7a marche (=3DValeur1).
Par contre, comment choisir Valeur2 ?
PS : si quelqu'un a une meilleure id=E9e pour nommer le titre de ce
post...
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
Michel_D
Si c'est la valeur d'un champ que tu souhaite obtenir : rs.Fields("Ton_Champ").Value
Si c'est la valeur d'un champ d'enregistrement sucessif If Not rs.EOF Then Var1 = rs.Fields("Ton_Champ").Value rs.MoveNext End If
If Not rs.EOF Then Var2 = rs.Fields("Ton_Champ").Value rs.MoveNext End If
"moromain" a écrit dans le message de news: Bonjour,
Dans une requête sélection, j'obtiens 2 enregistrements. En VBA, je voudrais choisir le second enregistrement sélectionné.
J'ai donc ce code : Set dbs = CurrentDb Code_Requete = "(...)" Set rs = dbs.OpenRecordset(Code_Requete)
Dans rs(0) j'ai le champs issu de la requête. Les 2 valeurs sont Valeur1 et Valeur2. Je voudrais que 2 variables reçoivent respectivement la valeur de chaque enregistrement. Autrement dit : Var1 = Valeur1 et Var2 = Valeur2
Si je fais Var1=rs(0), ça marche (=Valeur1). Par contre, comment choisir Valeur2 ?
PS : si quelqu'un a une meilleure idée pour nommer le titre de ce post...
Si c'est la valeur d'un champ que tu souhaite obtenir :
rs.Fields("Ton_Champ").Value
Si c'est la valeur d'un champ d'enregistrement sucessif
If Not rs.EOF Then
Var1 = rs.Fields("Ton_Champ").Value
rs.MoveNext
End If
If Not rs.EOF Then
Var2 = rs.Fields("Ton_Champ").Value
rs.MoveNext
End If
"moromain" <rm.acwed@gmail.com> a écrit dans le message de news:1185443967.330146.230970@w3g2000hsg.googlegroups.com...
Bonjour,
Dans une requête sélection, j'obtiens 2 enregistrements.
En VBA, je voudrais choisir le second enregistrement sélectionné.
J'ai donc ce code :
Set dbs = CurrentDb
Code_Requete = "(...)"
Set rs = dbs.OpenRecordset(Code_Requete)
Dans rs(0) j'ai le champs issu de la requête. Les 2 valeurs sont
Valeur1 et Valeur2.
Je voudrais que 2 variables reçoivent respectivement la valeur de
chaque enregistrement.
Autrement dit :
Var1 = Valeur1 et Var2 = Valeur2
Si je fais Var1=rs(0), ça marche (=Valeur1).
Par contre, comment choisir Valeur2 ?
PS : si quelqu'un a une meilleure idée pour nommer le titre de ce
post...
Si c'est la valeur d'un champ que tu souhaite obtenir : rs.Fields("Ton_Champ").Value
Si c'est la valeur d'un champ d'enregistrement sucessif If Not rs.EOF Then Var1 = rs.Fields("Ton_Champ").Value rs.MoveNext End If
If Not rs.EOF Then Var2 = rs.Fields("Ton_Champ").Value rs.MoveNext End If
"moromain" a écrit dans le message de news: Bonjour,
Dans une requête sélection, j'obtiens 2 enregistrements. En VBA, je voudrais choisir le second enregistrement sélectionné.
J'ai donc ce code : Set dbs = CurrentDb Code_Requete = "(...)" Set rs = dbs.OpenRecordset(Code_Requete)
Dans rs(0) j'ai le champs issu de la requête. Les 2 valeurs sont Valeur1 et Valeur2. Je voudrais que 2 variables reçoivent respectivement la valeur de chaque enregistrement. Autrement dit : Var1 = Valeur1 et Var2 = Valeur2
Si je fais Var1=rs(0), ça marche (=Valeur1). Par contre, comment choisir Valeur2 ?
PS : si quelqu'un a une meilleure idée pour nommer le titre de ce post...