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 :

Mettre un 0 dans une zone de texte sur condition


Sujet :

VBA Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Inscrit en
    Avril 2007
    Messages
    70
    Détails du profil
    Informations personnelles :
    Âge : 39

    Informations forums :
    Inscription : Avril 2007
    Messages : 70
    Par défaut Mettre un 0 dans une zone de texte sur condition
    Bonjour,

    Mon Code:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    Private Sub Sous_Ensemble_Click()
         If Sous_Ensemble.Text <>"430-1" Then
             Me.Commentaire_Réf.Value = "0"
             Me.Descriptif_Réf.Value = "0"
         End If
    End Sub
    Je ne vois pas pourquoi mon code ne va pas, je pense que c'est un truc tout bête.

    Cordialement,
    Bubut

  2. #2
    Membre Expert
    Avatar de mout1234
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    2 210
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Novembre 2006
    Messages : 2 210
    Par défaut
    Essaie
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Sous_Ensemble.Value ou Sous_Ensemble

  3. #3
    Membre averti
    Inscrit en
    Avril 2007
    Messages
    70
    Détails du profil
    Informations personnelles :
    Âge : 39

    Informations forums :
    Inscription : Avril 2007
    Messages : 70
    Par défaut
    Mon problème est au niveau d'ici:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
             Me.Commentaire_Réf.Value = "0"
             Me.Descriptif_Réf.Value = "0"

  4. #4
    Expert confirmé
    Avatar de Lou Pitchoun
    Profil pro
    Inscrit en
    Février 2005
    Messages
    5 038
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations forums :
    Inscription : Février 2005
    Messages : 5 038
    Par défaut
    Salut,

    Je rejoins mout1324.
    Le problème n'est pas sur les 2 instructions qui suivent le If.

    Et puis pourquoi affecter des 0 à un champ texte ??

  5. #5
    Membre averti
    Inscrit en
    Avril 2007
    Messages
    70
    Détails du profil
    Informations personnelles :
    Âge : 39

    Informations forums :
    Inscription : Avril 2007
    Messages : 70
    Par défaut
    J'affecte des 0 car après je travail avec Excel et quand j'exporte les données d'access vers excel, Excel n'accepte pas les valeurs nuls.

    Au niveau de mon :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Sous_Ensemble.Text <>"430-1" Then
    Je suis sur que c'est bon car je travaille déjà avec cette condition et je veux rajouter :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
             Me.Commentaire_Réf.Value = "0"
             Me.Descriptif_Réf.Value = "0"
    Mais ca fonctionne pas.

    Cordialement,
    Bubut

  6. #6
    Expert confirmé
    Avatar de Lou Pitchoun
    Profil pro
    Inscrit en
    Février 2005
    Messages
    5 038
    Détails du profil
    Informations personnelles :
    Âge : 47
    Localisation : France, Bouches du Rhône (Provence Alpes Côte d'Azur)

    Informations forums :
    Inscription : Février 2005
    Messages : 5 038
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Private Sub Sous_Ensemble_Click()
         If Sous_Ensemble.Text <>"430-1" Then
    Sous_Ensemble c'est quoi ?? un bouton ?

  7. #7
    Membre Expert
    Avatar de mout1234
    Profil pro
    Inscrit en
    Novembre 2006
    Messages
    2 210
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France, Paris (Île de France)

    Informations forums :
    Inscription : Novembre 2006
    Messages : 2 210
    Par défaut
    Citation Envoyé par Bubut
    Mais ca fonctionne pas.

    Qu'entends-tu par là? tu as un message d'erreur à la compilation ? à l'exécution? ou cela ne fait pas ce que tu souhaites?

  8. #8
    Membre Expert
    Avatar de Mahefasoa
    Homme Profil pro
    Manager IT
    Inscrit en
    Octobre 2003
    Messages
    835
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Madagascar

    Informations professionnelles :
    Activité : Manager IT

    Informations forums :
    Inscription : Octobre 2003
    Messages : 835
    Par défaut valeur nulle
    Bonjour,
    Excusez-moi de vouloir revenir un peu plus haut.
    Citation Envoyé par Bubut
    J'affecte des 0 car après je travail avec Excel et quand j'exporte les données d'access vers excel, Excel n'accepte pas les valeurs nuls.
    Mais pourquoi ne pas utiliser la fonction nz dans ce cas, car elle peut convertir toute valeur nulle en ... zéro (0) par exemple?
    Si c'est le seul problème ...

    Bon courage et @+

Discussions similaires

  1. Mettre du gras dans une zone de texte
    Par gontrand16 dans le forum IHM
    Réponses: 6
    Dernier message: 11/12/2012, 12h38
  2. Réponses: 14
    Dernier message: 22/11/2009, 05h48
  3. Mettre un lien cliquable dans une zone de texte
    Par mlny84 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 07/09/2009, 22h23
  4. Réponses: 2
    Dernier message: 09/01/2009, 11h51
  5. mettre en gras aligner un texte dans une zone de texte
    Par zaynabe dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 24/11/2007, 12h55

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