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 06/12/2011, 13h42   #1
Invité de passage
 
Inscription : décembre 2011
Messages : 2
Détails du profil
Informations forums :
Inscription : décembre 2011
Messages : 2
Points : 0
Points : 0
Par défaut Execution d'un programme

Bonjour,
je débute totalement en visual basic et j'ai une question qui est surement très très bête.
Mon programme est le suivant
Code :
1
2
3
4
5
6
7
8
9
10
 
Option Compare Database
 
Function Nulle(Xnb)
    If IsNull(Xnb) Then
        Nulle= 0
    Else
        Nulle= Xnb
    End If
End Function
Je souhaiterais le lancer dans la fenetre, d'execution mais je ne sais pas du tout comment faire... Lorsque j'execute mon programme avec F5 il me demande un nom de macro. Je met un nom au hasard et ça me rajoute une ligne à la fin de mon code.
Code :
1
2
3
Sub essai()
 
End Sub
Si, maintenant je vais dans la fenetre d'execution et que je tape:
Nulle("4") il ne se passe rien du tout.

Je suppose que ce n'est pas comme ça qu'il faut faire pour executer le programme, j'ai cherché sur internet mais je n'ai pas trouvé.
Quelqu'un peut il m'aider ? Merci
Flitch est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/12/2011, 15h12   #2
Futur Membre du Club
 
Homme
Architecte technique
Inscription : septembre 2011
Messages : 42
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : Maroc

Informations professionnelles :
Activité : Architecte technique
Secteur : Bâtiment

Informations forums :
Inscription : septembre 2011
Messages : 42
Points : 18
Points : 18
En réalité ta fonction doit être appelée à partir d'un autre point (à partir d'"essai" par exemple):

Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub essai()
Nulle (4)
End Sub
 
Function Nulle(Xnb)
    If IsNull(Xnb) Then
        Nulle = 0
    Else
        Nulle = Xnb
    End If
 
MsgBox Nulle
 
End Function
Essaie de lancer F5 avec le curseur dans la sub essai. J'ai rajouté un message pour vérifier que ça marche. Par ailleurs, je crois qu'il reste d'autres aspects à traiter pour que ce code ait un sens.

O.
oreoolep est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 06/12/2011, 15h53   #3
Invité de passage
 
Inscription : décembre 2011
Messages : 2
Détails du profil
Informations forums :
Inscription : décembre 2011
Messages : 2
Points : 0
Points : 0
J'ai trouvé mon bonheur: le point d'interrogation avant d'ecrire l'instruction !!

Merci quand même de ta réponse. C'est sur que le code n'a pas véritablement de sens, mais c'est juste pour débuter. Bonne fin de journée
Flitch 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 21h51.


 
 
 
 
Partenaires

Hébergement Web