En VBA Access 2000, comment trouver l'enregistrement correspondant au
maximum d'un champ donné et récupérer toutes les valeurs des champs de cet
enregistrement ?
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
Fabien
Bonjour,
En VBA Access 2000, comment trouver l'enregistrement correspondant au maximum d'un champ donné et récupérer toutes les valeurs des champs de cet enregistrement ?
Merci d'avance.
Bonjour,
Si ton enregistrement possede une clef unique tu peux faire
Dim Rst as dao.recordset Dim Clef as integer Clef=dmax("[Clef]","Table") 'si il n'y a pas de condition ou Clef=dmax("[Clef]","Table","Un filtre") 'si tu veux limiter la selection set Rst=currentdb.openrecordset("select [Champ1],[Champ2] from [Table] where clef=" & clef) If not Rst.eof then Me.zone1=rst("Champ1") Me.zone2=rst("Champ2") end if rst.close set rst=nothing @ toi maintenant ...
Bonjour,
En VBA Access 2000, comment trouver l'enregistrement correspondant au
maximum d'un champ donné et récupérer toutes les valeurs des champs de cet
enregistrement ?
Merci d'avance.
Bonjour,
Si ton enregistrement possede une clef unique tu peux faire
Dim Rst as dao.recordset
Dim Clef as integer
Clef=dmax("[Clef]","Table") 'si il n'y a pas de condition ou
Clef=dmax("[Clef]","Table","Un filtre") 'si tu veux limiter la selection
set Rst=currentdb.openrecordset("select [Champ1],[Champ2] from [Table]
where clef=" & clef)
If not Rst.eof then
Me.zone1=rst("Champ1")
Me.zone2=rst("Champ2")
end if
rst.close
set rst=nothing
@ toi maintenant ...
En VBA Access 2000, comment trouver l'enregistrement correspondant au maximum d'un champ donné et récupérer toutes les valeurs des champs de cet enregistrement ?
Merci d'avance.
Bonjour,
Si ton enregistrement possede une clef unique tu peux faire
Dim Rst as dao.recordset Dim Clef as integer Clef=dmax("[Clef]","Table") 'si il n'y a pas de condition ou Clef=dmax("[Clef]","Table","Un filtre") 'si tu veux limiter la selection set Rst=currentdb.openrecordset("select [Champ1],[Champ2] from [Table] where clef=" & clef) If not Rst.eof then Me.zone1=rst("Champ1") Me.zone2=rst("Champ2") end if rst.close set rst=nothing @ toi maintenant ...
JV
Merci Fabien
"Fabien" a écrit dans le message de news: 4732b842$0$25917$
Bonjour,
En VBA Access 2000, comment trouver l'enregistrement correspondant au maximum d'un champ donné et récupérer toutes les valeurs des champs de cet
enregistrement ?
Merci d'avance.
Bonjour,
Si ton enregistrement possede une clef unique tu peux faire
Dim Rst as dao.recordset Dim Clef as integer Clef=dmax("[Clef]","Table") 'si il n'y a pas de condition ou Clef=dmax("[Clef]","Table","Un filtre") 'si tu veux limiter la selection set Rst=currentdb.openrecordset("select [Champ1],[Champ2] from [Table] where clef=" & clef) If not Rst.eof then Me.zone1=rst("Champ1") Me.zone2=rst("Champ2") end if rst.close set rst=nothing @ toi maintenant ...
Merci Fabien
"Fabien" <UrbaniakFabienxxxxx@Neuf.fr> a écrit dans le message de news:
4732b842$0$25917$ba4acef3@news.orange.fr...
Bonjour,
En VBA Access 2000, comment trouver l'enregistrement correspondant au
maximum d'un champ donné et récupérer toutes les valeurs des champs de
cet
enregistrement ?
Merci d'avance.
Bonjour,
Si ton enregistrement possede une clef unique tu peux faire
Dim Rst as dao.recordset
Dim Clef as integer
Clef=dmax("[Clef]","Table") 'si il n'y a pas de condition ou
Clef=dmax("[Clef]","Table","Un filtre") 'si tu veux limiter la selection
set Rst=currentdb.openrecordset("select [Champ1],[Champ2] from [Table]
where clef=" & clef)
If not Rst.eof then
Me.zone1=rst("Champ1")
Me.zone2=rst("Champ2")
end if
rst.close
set rst=nothing
@ toi maintenant ...
"Fabien" a écrit dans le message de news: 4732b842$0$25917$
Bonjour,
En VBA Access 2000, comment trouver l'enregistrement correspondant au maximum d'un champ donné et récupérer toutes les valeurs des champs de cet
enregistrement ?
Merci d'avance.
Bonjour,
Si ton enregistrement possede une clef unique tu peux faire
Dim Rst as dao.recordset Dim Clef as integer Clef=dmax("[Clef]","Table") 'si il n'y a pas de condition ou Clef=dmax("[Clef]","Table","Un filtre") 'si tu veux limiter la selection set Rst=currentdb.openrecordset("select [Champ1],[Champ2] from [Table] where clef=" & clef) If not Rst.eof then Me.zone1=rst("Champ1") Me.zone2=rst("Champ2") end if rst.close set rst=nothing @ toi maintenant ...