Antal resultater

Just an idea, which may or may not work in all situaitions.

Private Sub Form_Current()
Me.Caption = "Resultat " & Me.Recordset.AbsolutePosition + 1 & " ud af " & Me.Recordset.RecordCount


End Sub

How do i append it to the textbox?

Not sure what your trying to do exactly. If you want to display it in an unbound text box then something like this should work.

me.YourTextBox = "Resultat " & Me.Recordset.AbsolutePosition + 1 & " ud af " & Me.Recordset.RecordCount

I was a little unure if it worked also if you filtered the records, but I've just tested and it seems to be OK there too.

I have a form where i want to show the results of a query. But it would be nice if the user knew how many results there were. On the form there are two buttons - a next and a previous button. Between these i would like it to show where the user is.

If i right click the textbox, the only way i seem to be able to write in the code, is if i choose "Build Event". If i do this the code will look like this:
Option Compare Database

Private Sub Text15_BeforeUpdate(Cancel As Integer)
Me.Text15 = "Resultat " & Me.Recordset.AbsolutePosition + 1 & " ud af " & Me.Recordset.RecordCount

End Sub

And this does not seem to work.

Normally you can see that if you use Access's built in navigation buttons. If you dont use that then you can use some code similar to what I have given and place it in the On Current event. Have you tried the example I gave?

the code has to be on the forms On Current Event

It is on the Form current Event now - but the text box is not filled. The code is like this:

Private Sub Text15_CurrentEvent(Cancel As Integer)
Me.Text15 = "Resultat " & Me.Recordset.AbsolutePosition + 1 & " ud af " & Me.Recordset.RecordCount

End Sub

I have removed the built in navigation button - they are very practical, but ugly as h...:)

Sorry - i see the mistake i made now. It works now! Thank you very much.

By the way. Can you tell me how to fix my next and previous button, so that they dont "go to far"? Right now i get an error when there is no more results from the query.

I would think its enough to just catch the error using


On Error goTo SomePointOrOther

SomePointOrOther:
..Error handler goes here

Maybe just a resume Next


Janbach I'm off out of the door now, back tomorrow, hope you get it working

Thank you very much - I will try that. I just noticed that when i enter the form it says Resultat 1 ud af 1 even though the is 3. When i hit the next button is changes to the right number.

Any ideas why?

No idea as to why it shows Resultat 1 ud af 1. I have an example here and it works as expected.
I'll take a look at your dB if you like, maybe I can see the problem?

Thanks Jan, hope you can it working as you want.