Vois déjà chez notre ami Raymond http://access.seneque.free.fr/compteur.htm
Et dans les archives: http://minilien.com/?B1kktBa9bP
Cordialement.
Raymond [mvp]
Bonjour.
regarde sur : http://access.seneque.free.fr/compteur.htm mais attention il y a des restrictions d'utilisation. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ced" a écrit dans le message de news:
Bonjour, comment faire un compteur dans une requete qui compte les lignes affichées dans cette requete.
merci
Bonjour.
regarde sur : http://access.seneque.free.fr/compteur.htm
mais attention il y a des restrictions d'utilisation.
--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"ced" <cedlannoy@hotmail.com> a écrit dans le message de
news:u4i5s1TxDHA.2316@TK2MSFTNGP10.phx.gbl...
Bonjour,
comment faire un compteur dans une requete qui compte les lignes affichées
dans cette requete.
regarde sur : http://access.seneque.free.fr/compteur.htm mais attention il y a des restrictions d'utilisation. -- @+ Raymond Access MVP http://access.seneque.free.fr/ http://access2003.free.fr/ http://users.skynet.be/mpfa/ pour débuter sur le forum
"ced" a écrit dans le message de news:
Bonjour, comment faire un compteur dans une requete qui compte les lignes affichées dans cette requete.
merci
ced
Quelqu'un a t-il une autre solution?
"ced" a écrit dans le message de news:
Bonjour, comment faire un compteur dans une requete qui compte les lignes affichées dans cette requete.
merci
Quelqu'un a t-il une autre solution?
"ced" <cedlannoy@hotmail.com> a écrit dans le message de news:
u4i5s1TxDHA.2316@TK2MSFTNGP10.phx.gbl...
Bonjour,
comment faire un compteur dans une requete qui compte les lignes affichées
dans cette requete.
Bonjour, comment faire un compteur dans une requete qui compte les lignes affichées dans cette requete.
merci
3stone
Salut,
"ced"
Quelqu'un a t-il une autre solution?
"ced" a écrit dans le message de news:
Bonjour, comment faire un compteur dans une requete qui compte les lignes affichées dans cette requete.
Heu... tu veux "numéroter" les lignes d'une requête, ou plus simplement "compter" combien de ligne la requête retourne ?
Pour le nombre de lignes :
ligne = DCount("*","NomDeLaRequete")
Pour numéroter un champ de la requête... essaie cette fonction de Daniel Carollo :
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_INFORMATION = &H400
Function OrderNumb(Junk As Variant, Optional Step As Integer = 1) As Integer ' Junk is ignored, but we must ensure that the function gets called for each line of the query.
'******************************************* ' This function designed by Daniel Carollo ' danielc @ computing-tech.com ' All rights reserved. ' (C) 2003 '*******************************************
Static sNumb As Integer Static sProcess As Long Static sStep As Integer Dim lpProcessID As Long Dim hProcess As Long ' a handle to the process Dim lngRet As Long
' Debug.Print lpProcessID, hProcess If hProcess = sProcess Then sNumb = sNumb + sStep Else sNumb = 1 sProcess = hProcess sStep = Step End If
Call CloseHandle(hProcess) OrderNumb = sNumb
End Function
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
Salut,
"ced"
Quelqu'un a t-il une autre solution?
"ced" <cedlannoy@hotmail.com> a écrit dans le message de news:
u4i5s1TxDHA.2316@TK2MSFTNGP10.phx.gbl...
Bonjour,
comment faire un compteur dans une requete qui compte les lignes affichées
dans cette requete.
Heu... tu veux "numéroter" les lignes d'une requête, ou plus simplement "compter"
combien de ligne la requête retourne ?
Pour le nombre de lignes :
ligne = DCount("*","NomDeLaRequete")
Pour numéroter un champ de la requête...
essaie cette fonction de Daniel Carollo :
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess
As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd
As Long, lpdwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long)
As Long
Private Const PROCESS_INFORMATION = &H400
Function OrderNumb(Junk As Variant, Optional Step As Integer = 1) As Integer
' Junk is ignored, but we must ensure that the function gets called for each
line of the query.
'*******************************************
' This function designed by Daniel Carollo
' danielc @ computing-tech.com
' All rights reserved.
' (C) 2003
'*******************************************
Static sNumb As Integer
Static sProcess As Long
Static sStep As Integer
Dim lpProcessID As Long
Dim hProcess As Long ' a handle to the process
Dim lngRet As Long
' Debug.Print lpProcessID, hProcess
If hProcess = sProcess Then
sNumb = sNumb + sStep
Else
sNumb = 1
sProcess = hProcess
sStep = Step
End If
Call CloseHandle(hProcess)
OrderNumb = sNumb
End Function
--
A+
Pierre (3stone) Access MVP
--------------------------------------
Une pour tous, tous pour une ;-)
http://users.skynet.be/mpfa/charte.htm
--------------------------------------
Bonjour, comment faire un compteur dans une requete qui compte les lignes affichées dans cette requete.
Heu... tu veux "numéroter" les lignes d'une requête, ou plus simplement "compter" combien de ligne la requête retourne ?
Pour le nombre de lignes :
ligne = DCount("*","NomDeLaRequete")
Pour numéroter un champ de la requête... essaie cette fonction de Daniel Carollo :
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Const PROCESS_INFORMATION = &H400
Function OrderNumb(Junk As Variant, Optional Step As Integer = 1) As Integer ' Junk is ignored, but we must ensure that the function gets called for each line of the query.
'******************************************* ' This function designed by Daniel Carollo ' danielc @ computing-tech.com ' All rights reserved. ' (C) 2003 '*******************************************
Static sNumb As Integer Static sProcess As Long Static sStep As Integer Dim lpProcessID As Long Dim hProcess As Long ' a handle to the process Dim lngRet As Long
' Debug.Print lpProcessID, hProcess If hProcess = sProcess Then sNumb = sNumb + sStep Else sNumb = 1 sProcess = hProcess sStep = Step End If
Call CloseHandle(hProcess) OrderNumb = sNumb
End Function
-- A+ Pierre (3stone) Access MVP -------------------------------------- Une pour tous, tous pour une ;-) http://users.skynet.be/mpfa/charte.htm --------------------------------------
