IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBA Access Discussion :

Problème champ vide [AC-2010]


Sujet :

VBA Access

  1. #1
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2005
    Messages
    525
    Détails du profil
    Informations personnelles :
    Âge : 57
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Secteur : Santé

    Informations forums :
    Inscription : Août 2005
    Messages : 525
    Par défaut Problème champ vide
    Bonjour

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

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

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour

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

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

  3. #3
    Membre éclairé
    Profil pro
    Inscrit en
    Août 2005
    Messages
    525
    Détails du profil
    Informations personnelles :
    Âge : 57
    Localisation : France, Gironde (Aquitaine)

    Informations professionnelles :
    Secteur : Santé

    Informations forums :
    Inscription : Août 2005
    Messages : 525
    Par défaut
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Problème de champs vide
    Par raftom dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 26/06/2008, 16h21
  2. Problème de champ vide
    Par lionel256 dans le forum VB.NET
    Réponses: 14
    Dernier message: 07/05/2008, 14h43
  3. Problème de champ vide dans une base sql
    Par lionel256 dans le forum VB.NET
    Réponses: 13
    Dernier message: 16/04/2008, 17h07
  4. problème de sélection avec les champs vides
    Par danathane dans le forum Langage SQL
    Réponses: 2
    Dernier message: 23/08/2007, 16h45
  5. Réponses: 12
    Dernier message: 18/07/2006, 17h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo