Précédent   Forum du club des développeurs et IT Pro > Logiciels > Microsoft Office > Access
Access Forum d'entraide sur Microsoft Access. Avant de poster -> La F.A.Q Access
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse
 
Outils de la discussion
Publicité
'
Vieux 11/01/2013, 10h18   #1
Counda_T
Invité de passage
 
Homme Counda Tran
Étudiant
Inscription : janvier 2013
Messages : 18
Détails du profil
Informations personnelles :
Nom : Homme Counda Tran
Localisation : France, Finistère (Bretagne)

Informations professionnelles :
Activité : Étudiant
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : janvier 2013
Messages : 18
Points : 3
Points : 3
Par défaut fonction ou procédure

Bonjour ,

Je suis pas très doué en VBA mais voilà j'ai envie d'optimiser un peu mon code,
J'utilise du code redondant et pour cela j'aimerais savoir si on peut mettre dans une procédure ou une fonction :
Code :
1
2
3
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
?

Et pour qu'ensuite je puisse faire appel à n'importe quel moment.

Je vous remerci d'avance pour votre réponse
Counda_T est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/01/2013, 10h44   #2
zoom61
Responsable OpenOffice & LibreOffice

 
Avatar de zoom61
 
Homme Vincent VIALE
Support MOA & DWH
Inscription : janvier 2005
Messages : 3 399
Détails du profil
Informations personnelles :
Nom : Homme Vincent VIALE
Âge : 40
Localisation : France, Haute Vienne (Limousin)

Informations professionnelles :
Activité : Support MOA & DWH
Secteur : Industrie

Informations forums :
Inscription : janvier 2005
Messages : 3 399
Points : 22 048
Points : 22 048
Envoyer un message via Skype™ à zoom61
Salut,

Oui. Si ta fonction est faite de cette façon :
Code :
1
2
3
4
5
Function ExempleSQL (SQL as string)
DoCmd.SetWarnings False
DoCmd.RunSQL SQL
DoCmd.SetWarnings True
Exit Function
Ensuite dans ton code tu l'appelles avec :
Code :
1
2
SQL = "..."
Call ExempleSQL (SQL)
@+.
__________________
N'oubliez pas le Tag afin de faciliter la recherche, et en votant ou cela permet de mieux cibler la recherche.

Téléchargez LibreOffice ou Apache OpenOffice
Consulter la rubrique OpenOffice & LibreOffice - Les cours - La FAQ - Le Forum

Je ne réponds pas aux messages privés s'ils sont liés à une question du forum

zoom61 est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 11/01/2013, 11h34   #3
Counda_T
Invité de passage
 
Homme Counda Tran
Étudiant
Inscription : janvier 2013
Messages : 18
Détails du profil
Informations personnelles :
Nom : Homme Counda Tran
Localisation : France, Finistère (Bretagne)

Informations professionnelles :
Activité : Étudiant
Secteur : High Tech - Éditeur de logiciels

Informations forums :
Inscription : janvier 2013
Messages : 18
Points : 3
Points : 3
Merci de ton post ! Problème résolu !
Counda_T est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 11/01/2013, 11h38   #4
zoom61
Responsable OpenOffice & LibreOffice

 
Avatar de zoom61
 
Homme Vincent VIALE
Support MOA & DWH
Inscription : janvier 2005
Messages : 3 399
Détails du profil
Informations personnelles :
Nom : Homme Vincent VIALE
Âge : 40
Localisation : France, Haute Vienne (Limousin)

Informations professionnelles :
Activité : Support MOA & DWH
Secteur : Industrie

Informations forums :
Inscription : janvier 2005
Messages : 3 399
Points : 22 048
Points : 22 048
Envoyer un message via Skype™ à zoom61
N'oublie pas le Tag
__________________
N'oubliez pas le Tag afin de faciliter la recherche, et en votant ou cela permet de mieux cibler la recherche.

Téléchargez LibreOffice ou Apache OpenOffice
Consulter la rubrique OpenOffice & LibreOffice - Les cours - La FAQ - Le Forum

Je ne réponds pas aux messages privés s'ils sont liés à une question du forum

zoom61 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Cette discussion est résolue.
Outils de la discussion

Navigation rapide


Fuseau horaire GMT +2. Il est actuellement 06h22.


 
 
 
 
Partenaires

Hébergement Web