Display the number of records found

[onyris]

I have added an "end if " at the end and is not giving any errors now , but is not displaying the number on the label.

Private Sub Form_Current()
If Me![List49].ListIndex = -1 Then
Me![Label37].Caption = Me.CurrentRecord
Else
Me![Label37].Caption = Me![List49].ListIndex + 1
End If
End Sub

Anything wrong with the code?

[ADezii]

I have added an "end if " at the end and is not giving any errors now , but is not displaying the number on the label.

Private Sub Form_Current()
If Me![List49].ListIndex = -1 Then
Me![Label37].Caption = Me.CurrentRecord
Else
Me![Label37].Caption = Me![List49].ListIndex + 1
End If
End Sub

Anything wrong with the code?

Are you sure that your Label is named Label37, and in fact it is a Label, and not a Text Box Control since a Text Box does not have a Caption Property?

[onyris]

Are you sure that your Label is named Label37, and in fact it is a Label, and not a Text Box Control since a Text Box does not have a Caption Property?

Yes , 100%.

The code is in Form_current().
this is the right place or it should be in the Form_load()?

[ADezii]

Yes , 100%.

The code is in Form_current().
this is the right place or it should be in the Form_load()?

The Form's Current() Event is the right location. Can't understand why it is not working, I've had no problems on this end.

[onyris]

The Form's Current() Event is the right location. Can't understand why it is not working, I've had no problems on this end.

Had a look again over the names and the code , everything is ok .
Why is it not working?

[onyris]

right , i have changed a bit , and on the List49 click event i have added this code:

Me![Label37].Caption = Me![List49].ListIndex + 1

It is working now.

[NeoPa]

Onyris,

How about you put a breakpoint on line #2 and debug (Debugging in VBA) it to find out what's going wrong where. Does this sound like something you'd be interested in?

[ADezii]

right , i have changed a bit , and on the List49 click event i have added this code:

Me![Label37].Caption = Me![List49].ListIndex + 1

It is working now.

Wasn't that indicated in Post #12?