countinous form - get row #

[ozarka]

I put this on my form (bounded-contineous) in txtRow control under default value. the control populates with the total number of records. in this case all the records shows 11 in the txtRow text box.

Public Function GetRowNum() As Long
 
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Dim intNCt As Integer
Dim strSQL As String
 
Set dbs = CurrentDb()
strSQL = "SELECT * FROM tblSplitDigitsTemp ORDER BY StartingNum;"
Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot)
 
If rst.RecordCount = 0 Then
GetRowNum = 0
Exit Function
End If
 
intNCt = 0
rst.MoveFirst
 
Do Until rst.EOF
rst.MoveNext
intNCt = intNCt + 1
Loop
 
GetRowNum = intNCt
 
rst.Close
Set rst = Nothing
 
End Function
 

[nico5038]

The general option for showing the number of records or totals is to add a field in the subform's footer.
When you have the navigation visible, then the number is already displayed.

What is it you want to achieve with this number ?

Nic;o)

[ozarka]

I dont want recordcount. i can get that easily. thats kool. i am just going to drop this. taking too much time.