Bonjour.

Plus direct probablement :


Set rec = CurrentDb.OpenRecordset(StrSqlNbPaiement, dbOpenDynaset)

If rec.RecordCount > 0 Then
rec.movelast
rec.movefirst 'Peut-être ? Ça...