Record Count after filter update. VBA

[Neilster]

Hi

I have this on the Form - On Current Event to show how many records I have on the Form, However when the employee filters the combo box's I want the record count to show the current records when they finish each filter. At the moment it just shows random numbers.

Please help if you can :banghead:

 Private Sub Form_Current()
  
     If Me.NewRecord Then
        Me.lblRecordCount.Caption = "New Record"
 
    Else
        Me.lblRecordCount.Caption = _
         "Record " & Me.CurrentRecord & " of " & Me.Recordset.RecordCount
 
    End If
    
End Sub

 

[pr2-eugin]

Try RecordSetClone and in the AfterUpdate event of the ComboBox, use the same code.

 

[Neilster]

Hi

As in like this ?

Private Sub Form_Current()

If Me.NewRecord Then
Me.lblRecordCount.Caption = "New Record"

Else
Me.lblRecordCount.Caption = _
"Record " & Me.CurrentRecord & " of " & Me.RecordsetClone.RecordCount

End If

End Sub

 

[pr2-eugin]

Yes and also in the control_AfterUpdate()

 

[Neilster]

Hi

I've tried and it still doesn't work, that said my combo box's are in the form header and not in the form, would this makes a difference? silly question I know.....