peut être rajouter un Else


If Not rec.EOF Then
rec.MoveLast
Me.txtPaiementAdh.Value = rec.RecordCount
else
Me.txtPaiementAdh.Value = rec.RecordCount
End If