[AC-2010] Problème champ vide [Résolu]

[docjo]

Bonjour

Je rencontre des problème de déclaration de variables sur des recherches de domaine qui répondent "vide".

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim mespontages As Variant
 
    mespontages = Nz(DLookup("[remarque]", "T_type_chirurgie", "[ID_intervention]='" & Me!ID_Intervention & "'" And "[type_chirurgie]='Pontage*'"), 0)
 
    If mespontages =0  Then
        MsgBox "vous devez rentrer le détail des pontages"
    End If
End Sub

Le débogage me dit que mespontages =vide. il me semblait que le type variant gérait les champs vides. Le message d'erreur est une "incompatibilité de type"
Merci d'avance pour vos suggestions.

[Philippe JOCHMANS]

Bonjour

Vide ne veut pas dire qu'il n'y a pas de résultat.

Lorsque tu écris :

Code :

 "[type_chirurgie]='Pontage*'"

Si je lis tu veux tous les type de chirurgie qui commencent par Pontage, si c'est le cas il faut utiliser Like et non le symbole d'égalité.

Philippe

[docjo]

Merci, je dois être fatigué car je n'avais pas vu cette bétise.
en outre, j'avais exclus le <AND>.
Le bon code pour moi est:

Code :

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_BeforeInsert(Cancel As Integer)
    Dim mespontages As Variant
 
    mespontages = Nz(DLookup("[remarque]", "T_type_chirurgie", "[ID_intervention]=" & Me!ID_Intervention & " And [type_chirurgie] like 'Pontage*'"), 0)
 
    If mespontages =0  Then
        MsgBox "vous devez rentrer le détail des pontages"
    End If
End Sub

Merci encore.