Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 24/08/2011, 15h15   #1
Invité de passage
 
Inscription : mars 2004
Messages : 65
Détails du profil
Informations forums :
Inscription : mars 2004
Messages : 65
Points : 1
Points : 1
Par défaut Commande if..else sur une seule ligne

Bonjour,

Je souhaiterais savoir s'il est possible d'avoir cette commande sur une seule ligne :

Code :
1
2
3
4
5
6
7
8
9
If Me!choix_nom.Column(2) <> "" Then
 
        Me!nom = Me!choix_nom.Column(2)
 
    Else
 
        Me!nom = Null
 
    End If
D'avance merci.
moustika est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/08/2011, 15h27   #2
Membre régulier
 
Guillaume
Inscription : décembre 2007
Messages : 161
Détails du profil
Informations personnelles :
Nom : Guillaume
Localisation : France, Pyrénées Atlantiques (Aquitaine)

Informations forums :
Inscription : décembre 2007
Messages : 161
Points : 91
Points : 91
Bonjour !
Oui ça marche très bien.
Code :
If Me!choix_nom.Column(2) <> "" Then Me!Nom = Me!choix_nom.Column(2) Else Me!Nom = Null
dut-dut est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 24/08/2011, 18h25   #3
Modérateur
 
Homme René MAROT
Inscription : octobre 2005
Messages : 5 470
Détails du profil
Informations personnelles :
Nom : Homme René MAROT
Localisation : Canada

Informations forums :
Inscription : octobre 2005
Messages : 5 470
Points : 7 552
Points : 7 552
Ça marche mais cela peut rendre ton code difficile à comprendre.

L'avantage du if ... end if c'est que cela délimite clairement ton bloc conditionnel.

A+
__________________
Vous voulez une réponse rapide et efficace à vos questions téchniques ? Ne les posez pas en message privé mais dans le forum, vous bénéficiez ainsi de la compétence et de la disponibilité de tous les contributeurs.
marot_r est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 25/08/2011, 17h09   #4
Membre Expert
 
Avatar de stigma
 
Homme Alain
Développeur informatique
Inscription : octobre 2003
Messages : 846
Détails du profil
Informations personnelles :
Nom : Homme Alain
Âge : 61
Localisation : France, Oise (Picardie)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Industrie

Informations forums :
Inscription : octobre 2003
Messages : 846
Points : 1 053
Points : 1 053
Envoyer un message via MSN à stigma
Comme dit marot_r, c'est bien d'aérer ton code avec les indentations, surtout s'il y a plusieurs lignes après le Then. Sinon tu peux concaténer sur une ligne, ça sera lisible.
__________________
Je ne suis pas une adresse IP, je suis un homme libre !
stigma est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/08/2011, 19h32   #5
Rédacteur/Modérateur
 
Avatar de Dolphy35
 
Homme Morgan BILLY
Technicien de Production
Inscription : octobre 2004
Messages : 4 103
Détails du profil
Informations personnelles :
Nom : Homme Morgan BILLY
Âge : 33
Localisation : France, Ille et Vilaine (Bretagne)

Informations professionnelles :
Activité : Technicien de Production
Secteur : Industrie

Informations forums :
Inscription : octobre 2004
Messages : 4 103
Points : 8 728
Points : 8 728
Bonjour,

Si tu veux absolument avoir 1 seul ligne tu peux utiliser la fonction IIf
Code :
IIf(expr, truepart, falsepart)
Attention tout de même à son utilisation, dans certains cas (erreur) cela te renvoi à falsepart.

Dolphy
__________________
Personnaliser la vue Backstage d'Access 2010
Découvrez avec nous Office 2010
Je ne réponds pas aux questions techniques par MP
Dolphy35 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h23.


 
 
 
 
Partenaires

Hébergement Web