2 quickies (1 Viewer)

[tru-]

At the bottom of the form where the navigation buttons are it'll say 1 of 8 records, how can I get this into a form? (I want to have some text saying Viewing 1 of 8 Products).

Also how can I copy a record from one subform to another? The first subform is like a catalogue of items, the second is a temporary list which items can be added to and cleared when needed (each subform have their own tables).

Cheers

 

[Tsango]

At the bottom of the form where the navigation buttons are it'll say 1 of 8 records, how can I get this into a form? (I want to have some text saying Viewing 1 of 8 Products).

Also how can I copy a record from one subform to another? The first subform is like a catalogue of items, the second is a temporary list which items can be added to and cleared when needed (each subform have their own tables).

Cheers

You could just count the records in the record set

NumberOfRecords = Table.RecordCount

then create changes the caption properties of a label to read

label.caption = "Viewing 1 to " & NumberOfRecords & " Products"

Example:

Dim cnn As ADODB.Connection
Dim rstTable As New ADODB.Recordset
Dim NumberOfRecords as Integer

Set cnn = CurrentProject.Connection

rstTable.Open "table", cnn, adOpenStatic, adCmdTable
NumberOfRecords = rstTable.RecordCount
Label.Caption = "Viewing 1 to " & NumberOfRecords & " Products"

This code copuld be placed on the OnOpen event or similar

 

[ghudson]

Searching the forum is a great way to discover and learn the answers to your Access programming questions.

Record X of Y

 

[tru-]

I did but didnt find anything so posted, I always search first
thanks

 

[tru-]

I've tried using that example on a subform, when opened on its own as a form it works but when I try to open it when its as a subform I get debug come up, highlighting RecordsetClone.MoveLast & RecordsetClone.MoveFirst.
Any solution?

 

[ghudson]

You have to also install the Record X of Y stuff [code, text box, etc.] in the subform just like you did in the parent form.

 

[Tsango]

You have to also install the Record X of Y stuff [code, text box, etc.] in the subform just like you did in the parent form.