Bonsoir,

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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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