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
Raymond [mvp]
Bonjour aussi.
sous forme de compteur si tu as un champ sans doublon et qui est le champ de tri. voir la page : http://access.seneque.free.fr/compteur.htm et que tu saches bien que c'est très long en exécution.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"news.wanadoo.fr" a écrit dans le message de news:buqpk6$oh4$
Connaissez vous un moyen de faire apparaitre un numéro de ligne dans une requête?
Bonjour aussi.
sous forme de compteur si tu as un champ sans doublon et qui est le champ de
tri. voir la page : http://access.seneque.free.fr/compteur.htm et que tu
saches bien que c'est très long en exécution.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"news.wanadoo.fr" <d.martineau@axeinformatique.fr> a écrit dans le message
de news:buqpk6$oh4$1@news-reader2.wanadoo.fr...
Connaissez vous un moyen de faire apparaitre un numéro de ligne dans une
requête?
sous forme de compteur si tu as un champ sans doublon et qui est le champ de tri. voir la page : http://access.seneque.free.fr/compteur.htm et que tu saches bien que c'est très long en exécution.
-- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"news.wanadoo.fr" a écrit dans le message de news:buqpk6$oh4$
Connaissez vous un moyen de faire apparaitre un numéro de ligne dans une requête?
Damien Mermoz
Bonjour à toi aussi,
regarde cette fonction, elle devrait t'aider. Public Function fcNumLigne(strTable As String, strChamp As String, MaVar As Variant) As Long
Dim db As DAO.Database Dim rs As DAO.Recordset
Set db = CurrentDb Set rs = db.OpenRecordset(strTable, dbOpenDynaset)
If Not rs.EOF Then rs.FindFirst ("[" & strChamp & "] = " & MaVar) fcNumLigne = rs.AbsolutePosition + 1
End If rs.Close Set rs = Nothing db.Close Set db = Nothing
End Function
Exemple SELECT fcnumligne("Tatable","tonchamp",[tonchamp]) AS [numéro de ligne], Tatable.* FROM tatable;
A + Damien. "news.wanadoo.fr" a écrit dans le message de news:buqpk6$oh4$ | Connaissez vous un moyen de faire apparaitre un numéro de ligne dans une | requête? | |
Bonjour à toi aussi,
regarde cette fonction, elle devrait t'aider.
Public Function fcNumLigne(strTable As String, strChamp As String, MaVar As
Variant) As Long
Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset(strTable, dbOpenDynaset)
If Not rs.EOF Then
rs.FindFirst ("[" & strChamp & "] = " & MaVar)
fcNumLigne = rs.AbsolutePosition + 1
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Function
Exemple
SELECT fcnumligne("Tatable","tonchamp",[tonchamp]) AS [numéro de ligne],
Tatable.*
FROM tatable;
A +
Damien.
"news.wanadoo.fr" <d.martineau@axeinformatique.fr> a écrit dans le message
de news:buqpk6$oh4$1@news-reader2.wanadoo.fr...
| Connaissez vous un moyen de faire apparaitre un numéro de ligne dans une
| requête?
|
|
regarde cette fonction, elle devrait t'aider. Public Function fcNumLigne(strTable As String, strChamp As String, MaVar As Variant) As Long
Dim db As DAO.Database Dim rs As DAO.Recordset
Set db = CurrentDb Set rs = db.OpenRecordset(strTable, dbOpenDynaset)
If Not rs.EOF Then rs.FindFirst ("[" & strChamp & "] = " & MaVar) fcNumLigne = rs.AbsolutePosition + 1
End If rs.Close Set rs = Nothing db.Close Set db = Nothing
End Function
Exemple SELECT fcnumligne("Tatable","tonchamp",[tonchamp]) AS [numéro de ligne], Tatable.* FROM tatable;
A + Damien. "news.wanadoo.fr" a écrit dans le message de news:buqpk6$oh4$ | Connaissez vous un moyen de faire apparaitre un numéro de ligne dans une | requête? | |
Anor
Bonjour Damien,
J'adore :-)) Enfin une solution indépendante des fonctions de domaine !!
-- à+ Arnaud ------------------------------------------------------------------- *Une question ?* La réponse est ici : http://users.skynet.be/mpfa/ *Pas de question ?* La réponse est là : http://memoaccess.free.fr /Réponses restantes souhaitées sur ce forum, merci/ -------------------------------------------------------------------
Damien Mermoz : | Bonjour à toi aussi, | | regarde cette fonction, elle devrait t'aider. | Public Function fcNumLigne(strTable As String, strChamp As String, | MaVar As Variant) As Long | | Dim db As DAO.Database | Dim rs As DAO.Recordset | | Set db = CurrentDb | Set rs = db.OpenRecordset(strTable, dbOpenDynaset) | | If Not rs.EOF Then | rs.FindFirst ("[" & strChamp & "] = " & MaVar) | fcNumLigne = rs.AbsolutePosition + 1 | | End If | rs.Close | Set rs = Nothing | db.Close | Set db = Nothing | | End Function | | Exemple | SELECT fcnumligne("Tatable","tonchamp",[tonchamp]) AS [numéro de | ligne], Tatable.* | FROM tatable; | | A + | Damien.
Bonjour Damien,
J'adore :-))
Enfin une solution indépendante des fonctions de domaine !!
--
à+
Arnaud
-------------------------------------------------------------------
*Une question ?* La réponse est ici : http://users.skynet.be/mpfa/
*Pas de question ?* La réponse est là : http://memoaccess.free.fr
/Réponses restantes souhaitées sur ce forum, merci/
-------------------------------------------------------------------
Damien Mermoz <ns_mermoz.damien@wanadoo.fr> :
| Bonjour à toi aussi,
|
| regarde cette fonction, elle devrait t'aider.
| Public Function fcNumLigne(strTable As String, strChamp As String,
| MaVar As Variant) As Long
|
| Dim db As DAO.Database
| Dim rs As DAO.Recordset
|
| Set db = CurrentDb
| Set rs = db.OpenRecordset(strTable, dbOpenDynaset)
|
| If Not rs.EOF Then
| rs.FindFirst ("[" & strChamp & "] = " & MaVar)
| fcNumLigne = rs.AbsolutePosition + 1
|
| End If
| rs.Close
| Set rs = Nothing
| db.Close
| Set db = Nothing
|
| End Function
|
| Exemple
| SELECT fcnumligne("Tatable","tonchamp",[tonchamp]) AS [numéro de
| ligne], Tatable.*
| FROM tatable;
|
| A +
| Damien.
J'adore :-)) Enfin une solution indépendante des fonctions de domaine !!
-- à+ Arnaud ------------------------------------------------------------------- *Une question ?* La réponse est ici : http://users.skynet.be/mpfa/ *Pas de question ?* La réponse est là : http://memoaccess.free.fr /Réponses restantes souhaitées sur ce forum, merci/ -------------------------------------------------------------------
Damien Mermoz : | Bonjour à toi aussi, | | regarde cette fonction, elle devrait t'aider. | Public Function fcNumLigne(strTable As String, strChamp As String, | MaVar As Variant) As Long | | Dim db As DAO.Database | Dim rs As DAO.Recordset | | Set db = CurrentDb | Set rs = db.OpenRecordset(strTable, dbOpenDynaset) | | If Not rs.EOF Then | rs.FindFirst ("[" & strChamp & "] = " & MaVar) | fcNumLigne = rs.AbsolutePosition + 1 | | End If | rs.Close | Set rs = Nothing | db.Close | Set db = Nothing | | End Function | | Exemple | SELECT fcnumligne("Tatable","tonchamp",[tonchamp]) AS [numéro de | ligne], Tatable.* | FROM tatable; | | A + | Damien.
