[AccessD] Query Line Numbers

Hi Keith

We use this/these functions for a similar task:

Option Compare Database
Option Explicit
Public lngKeyCounter As Long

Public Function NextKey_Get( _
  Optional ByVal varDummy, _
  Optional ByVal intIncrement As Integer = 1, _
  Optional ByVal intInitial As Integer) As Long
  
  ' Increments dynamic public (global) variable lngKeyCounter with
intIncrement.
  ' Returns the new value of global variable lngKeyCounter.
  ' Parameter varDummy is used to force repeated calls of this function
when used in a query.
  
  Dim intSgn As Integer
  
  If Not intIncrement = 0 Then
    intSgn = Sgn(intIncrement)
    If intSgn * lngKeyCounter < intSgn * intInitial Then
      lngKeyCounter = intInitial
    Else
      lngKeyCounter = lngKeyCounter + intIncrement
    End If
  End If
  
  NextKey_Get = lngKeyCounter
  
End Function

Public Function NextKey_Set( _
  Optional ByVal lngSet As Long) As Long

  ' Sets dynamic public (global) variable lngKeyCounter to value of
lngSet.
  ' Retrieves current value of lngKeyCounter.

  NextKey_Set = lngKeyCounter
  lngKeyCounter = lngSet
  
End Function

/gustav

>>> kwilliam at ashlandnet.com 03/29 4:11 pm >>>
This may be an extremely simple thing...and I am just being stupid,
but.....is there a way (within a query) to setup an expression that
numbers
the lines?  I can do this simply enough in a report.....but can't think
of a
way to do this in a query.  The reason is I am doing a routine that
transfers text to a deliminated text file.  This needs to be based on
a
table or query.  I am trying to base this on a query, but need a line
number.  I can't figure out how to do this within the query.

Thanks for any help.

Regards,

Keith E. Williamson
Ashland Equipment, Inc
phone # (410) 273-1856
fax #     (410) 273-1859