Discussion :

[fisio]

Ma question est la suivante : comment éviter cette erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    tst = "select N° from Devis WHERE Num LIKE '" & Num & "';"
    Set rec = CurrentDb.OpenRecordset(tst)
           
    'If IsNull(rec(0).Value) Then
    
    'DoCmd.OpenForm "Devis", acNormal, , , , , acDialog
       
    'Else
       
    'DoCmd.OpenForm "Devis", , , "[N°]= " & rec(0).Value

    MsgBox (rec(0))
    
    'End If
        
    rec.Close

Pour ma part je mets

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

IF ISNULL(rec(0)) then

Merci

[fisio]

J'ai inversé volontairement la fonction "ISNULL" par "NOT ISNULL" même conclusion.

[Tonioyo]

Bonsoir,

il est possible d'utiliser la propriété recordcount de l'objet recordset comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if rec.recordcount > 0 then ...

[Jean-Philippe André]

Salut,
la propriété EOF du recordset peut aussi êter une piste