How To AutoNumber a Continuous Form In Access

[vdanelia]

Hello I have very simple Question...
I wonder How to simply Auto-number continuous form as we simply do in the Reports like: =1 (With Unbound Text-Box) I searched, but found nothing.

Thanks

 

[missinglinq]

Are you talking about 'line numbering' each time a Form is opened? An Unbound Control in Continuous View Forms, as well as Datasheet View Forms, displays the Value for the Current Record in all Records on the Form! Here's a couple of links to hacks designed to work around this, using special Queries for this purpose:

http://www.rogersaccesslibrary.com/forum/forum_posts.asp?TID=309

http://www.lebans.com/rownumber.htm

Linq ;0)>

 

[vdanelia]

Hello missinglinq
Thanks For the reply, I checked the given Links and found some variants, but they're query based.
http://www.access-programmers.co.uk/forums/member.php?u=14401

 

[missinglinq]

...I checked the given Links and found some variants, but they're query based.

If you look you'll see that I noted that in my post. I believe you're going to find that a Query is the only way you can do this. These numbers have to be Bound to something; Unbound Controls in Continuous Forms all display the same Value. And since the numbers will change, depending on the Records in the underlying set, each time the Form is opened, they have to be re-calculated each time, and this can only be done, to my knowledge, using a Query.

Linq ;0)>

 

[vdanelia]

Thanks missinglinq For your suggestion....
According with some examples i came to this: I think this variant is very simple

1. Create Unbound Text box and Set control-source of unbound Text box to
= RowNum([Form])
Then Let use the Code:

'Copyright Stephen Lebans 1999
'May not be resold
'Please include my 1 line Copyright notice
'in your code if you use these functions

'I left a bunch of development code in here in case anyone decides to go
'down the same paths I did.
'Created by Stephen Lebans with help from Chris Bergmans
' Updated by Allen Browne Oct/2002
'Production version of GetLineNumberForm
'Works in Form or SubForm mode
'Set controlsource of unbound Text box to
'= RowNum([Form])
'Type exactly as above

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
    'Purpose:   Numbering the rows on a form.
    'Usage:     Text box with ControlSource of:  =RowNum([Form])
    
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
    
Exit_RowNum:
    Exit Function
    
Err_RowNum:
    If Err.Number <> 3021& Then  'Ignore "No bookmark" at new row.
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function

Working perfectly

 

[vbaInet]

If a Primary Key exists, here's another way of doing it (attached). Non-recordset based.

 

[smig]

Can you know which record row is the first visible one in a continous form?

 

[missinglinq]

Can you know which record row is the first visible one in a continous form?

Not much information, but if you're trying to do something when on the first record,

If Me.CurrentRecord = 1 Then

should do it.

Linq ;0)>

 

[smig]

Not realy help.
When you scroll records some of records are not visible but the record counter count them.

 

[missinglinq]

In ten years of participating in Access forums this has to be absolutely, positively the most absurd statement I've ever seen! You need to explain what

"When you scroll records some of records are not visible but the record counter count them."

means!

How are you scrolling Records? If you have a fast machine, you may not be able to 'see' each Record as it passes by, but that doesn't mean that it doesn't exist!

Sorry, but your post simply makes no sense!

 

[smig]

I'll try to explain

In a continous form you don't see all records when you use the sidebar (or any other way), Only some of the records are visble.
Sure they are all there, even if you can't see them at the moment. Never said they are not.

My question was if it's possible to count only the visible ones, or to know which one is the first visible one.

I hope it's more clear now

Tal