Ajouter un 0 si le Recordset est vide (Null)

Bonsoir,

Avec le code ci-joint je voudrais lorsque le recordset est vide (Null) mettre un 0 à la
zone de texte txtPaiementAdh.

Code:

---

1 2 3 4 5 6 7 8 9

Set rec = CurrentDb.OpenRecordset(StrSqlNbPaiement, dbOpenDynaset)   If Not rec.EOF Then rec.MoveLast Me.txtPaiementAdh.Value = rec.RecordCount End If   '--- Nb de paiement 'Me.txtPaiementAdh.Value = Nz(Me.txtPaiementAdh.Value, 0)

---

En codant de cette façon je n’obtiens pas de 0 sur ma zone de texte,
pouvez-vous svp m’indiquer ou se trouve mon erreur ?

Merci.

Salutations

peut être rajouter un Else

Code:

---

1 2 3 4 5 6 7

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

---

Salut
Ne serait-ce pas plus simple ainsi

Code:

---

1 2 3 4 5 6

Set rec = CurrentDb.OpenRecordset(StrSqlNbPaiement, dbOpenDynaset) If rec.RecordCount > 0 Then Me.txtPaiementAdh.Value = rec.RecordCount Else Me.txtPaiementAdh.Value = 0 End If

---

Bonjour.

Plus direct probablement :

Code:

---

1 2 3 4 5 6 7 8

Set rec = CurrentDb.OpenRecordset(StrSqlNbPaiement, dbOpenDynaset)   If rec.RecordCount > 0 Then rec.movelast rec.movefirst 'Peut-être ? Ça dépend à quoi sert le recordset après. end if   Me.txtPaiementAdh.Value = rec.RecordCount

---

A+

Bonjour,

Merci pour vos réponses

Salutations