exécuter un module objet access

Version imprimable

Voir 40 message(s) de cette discussion en une page

24/09/2007, 11h29
DURANTEAU

boucle for ok
Voici l'écriture :
J'ai donc écris la commande Docmd.RunSQL, mais cette écriture seule, n'est pas acceptée !!!!
Code:

1 2 3 4 5 DoCmd.RunSQL For i = 1 To 2 "INSERT INTO T_RAYON (Rayon) VALUES ('Frais')" "INSERT INTO T_RAYON (Rayon) VALUES ('Boisson')" Next i

Citation:

Envoyé par DURANTEAU

DoCmd.RunSQL
For i = 1 To 2
"INSERT INTO T_RAYON (Rayon) VALUES ('Frais')"
"INSERT INTO T_RAYON (Rayon) VALUES ('Boisson')"
Next i

Je te propose d'essayer cela :

Code:

1
2
3
4
5
6
7
8
9
10
Dim strNameSql(1 To 2)  As Variant         ' Tu dois modifier le "2" en fonction du nombre de requête
Dim strSql              As String
Dim I                   As Integer
 
strNameSql = Array("Frais", "Boisson")      ' Ici tu inscris le nom des requêtes que tu souhaites créer
 
For I = 1 To 2
    strSql = "INSERT INTO T_RAYON (Rayon) VALUES (' & strNameSql(I) & " ')"
    DoCmd.RunSQL strSql
Next I

24/09/2007, 12h56
DURANTEAU

Jet'envoie mon fichier pour que tu vois, il y a un message erreur
24/09/2007, 17h08
bernardmichel

Citation:

Envoyé par DURANTEAU

Jet'envoie mon fichier pour que tu vois, il y a un message erreur

...il est où ?
24/09/2007, 17h37
Maxence HUBICHE
Côté terminologie PURE, on n'exécute pas un MODULE (qui n'est qu'un support à procédures) mais une PROCEDURE.

Côté syntaxe de base, pour exécuter une procédure, il suffit de l'appeler par son nom.

Exemple :
Si tu crées :
Code:

1 2 3 4 5 6 Sub Toto() ... ... ... End Sub
et que tu aies envie de faire que Toto s'exécute, tu pourras le faire dans une autre procédure, en appelant Toto
Code:

1 2 3 4 Sub Titi () Toto End Sub
Donc, pour terminer, pour ton code, il te faut une procédure qui contienne tes RunSQL. Appelons cette procédure CréationTables
Dans la procédure qui lance CréationTables, il te suffira d'écrire ce nom pour la lancer !
Raison pour laquelle Heureux-Oli te suggérait, par exemple, les procédures évènementielles sur clic de bouton, ou sur ouverture de formulaire...

Enfin, une dernière solution serait de faire une Macro avec une action ExécuterCode, et de passer en paramètre le nom de ta procédure.
Attention cependant, dans ce cas, il convient que tu aies créé une FONCTION (Function) et non une INSTRUCTION (Sub)
Citation:
Envoyé par DURANTEAU

Bonjour,

J'ai créer ce module dans Access, je voudrais savoir comment je fais pour demander son exécution.

Merci

Code:

1 2 3 SUB CREATE TABLE() DoCmd.RunSQL "create table trayon (rayon_ryn char(16))" End Sub
JAMAIS D'ESPACE DANS LES NOMS DES PROCEDURES !!!!
Sub CreateTable si tu veux ! Mais pas Sub Create Table !!!

voilà ;)
24/09/2007, 22h06
DURANTEAU

mon fichier access

Citation:

Envoyé par bernardmichel

...il est où ?

apparemment je ne peux t'envoyer de fichier à partir du Forum, refusé !!!!!!
24/09/2007, 22h10
bernardmichel

Désolé ! :oops:

Alors décris-nous cette erreur ...
24/09/2007, 22h14
Heureux-oli

Citation:

Envoyé par DURANTEAU

apparemment je ne peux t'envoyer de fichier à partir du Forum, refusé !!!!!!

Il y a des tailles à respecter.

Avant d'envoyer une db, il faut la compacter et ensuite la zipper sans ces étapes, le fichier est trop volumineux !
24/09/2007, 22h16
DURANTEAU

tes dernières explications
Citation:
Envoyé par DURANTEAU

Bonjour,

J'ai créer ce module dans Access, je voudrais savoir comment je fais pour demander son exécution.

Merci

Code:

1 2 3 SUB CREATE TABLE() DoCmd.RunSQL "create table trayon (rayon_ryn char(16))" End Sub
Ce que tu m'expliques, en dernier, c'est ce que je voulais faire depuis le début !!!!, mais par un jeu subtile de vocabulaire, la réponse était c'est impossible !!!
Puisque je voulais bien créer du code SQL dans un programme que je puisse ensuite exécuter en mode automatique.
Je me demande d'ailleurs si ma solution ne serait pas beaucoup plus simple, bref.

En atendant, je voulais t'envoyer mon fichier depuis le forum, pour que tu vérifies ma boucle for next...., mais apparemment tu as verrouillé

Dômmage, car j'ai bien amorcé le début du code et c'est toujours passionnant de continuer.....

Merci
24/09/2007, 22h18
Heureux-oli

Une discussion verrouillée apparaît avec un cadenas.
Celle-ci ne l'est pas !

1 pièce(s) jointe(s)

Citation:

Envoyé par bernardmichel

Désolé ! :oops:

Alors décris-nous cette erreur ...

je te fais une copie du code !
Code:

1 2 3 4 5 6 7 8 Dim strNameSql(1 To 2) As Variant Dim strsql As String Dim i As Integer strNameSql = Array("Frais", "Boisson") For i = 1 To i strsql = "INSERT INTO T_RAYON (Rayon) VALUES (' & strNameSql(i) & " ')" DoCmd.RunSQL strsql Next i
L'erreur est sur cette ligne :strNameSql = Array("Frais", "Boisson")

25/09/2007, 02h10
marot_r
J'ai un peu de mal à voir où est le problème.

Pour executer une procédure tu peux le faire de plusieurs façons :

0) Tu te mets dans la fenêtre d'exécution immédiate ([ctrl][g] pour l'ouvrir) et tu tapes le nom de ta procédure.
Code:

1 2 MaProcedure(MesParams)[Enter]
1) Tu crée un formulaire avec un bête bouton et dans le code associé au bouton (événement Click) tu appèle ta procédure. Comme squelette j'utilise 'Fermer le formulaire' qui te génère les 5 ou 6 lignes utiles et tu n'as plus qu'a adapater à ton problème.

Ensuite tu peux trés bien mettre du code SQL dans des chaînes de caractères et exécuter ce code même si ce n'est pas ma solution préférée.

A+
25/09/2007, 07h23
bernardmichel

Si c'est à moi que tu t'adresses, j'ai simplement limité mon accès aux MP. Par contre, je reste à disposition si tu souhaites poursuivre ta découverte d'Access.
Comme les posts ci-dessus l'expliquent, tu compresses ta MBD puis tu la joins à ton prochain post sur le forum. J'en serai informé et je pourrai ainsi voir de quoi il s'agit concernant l'erreur produite par mon code. 8-)
25/09/2007, 11h49
DURANTEAU

1 pièce(s) jointe(s)

fichier mdb access

je t'envoie une deuxième fois le fichier compressé sur ton dernier message, s'il arrive !!!!!
25/09/2007, 13h12
bernardmichel

Alors voilà, il y avait effectivement quelques modifs à faire pour adapter ce code. Maintenant il fonctionne et met à jour la table "T_RAYON"
25/09/2007, 13h22
DURANTEAU

merci merci merci

Citation:

Envoyé par bernardmichel

Alors voilà, il y avait effectivement quelques modifs à faire pour adapter ce code. Maintenant il fonctionne et met à jour la table "T_RAYON"

je te remercie de ton message, je m'enpresse d'étudier ça
je te remercie avant de consulter
25/09/2007, 13h40
DURANTEAU

encore merci

A quoi sert cette ligne au début du programme : On Error Resume Next

Merci
25/09/2007, 17h12
Heureux-oli

Citation:

Envoyé par DURANTEAU

A quoi sert cette ligne au début du programme : On Error Resume Next

Merci

Rien de plus facile.

Tu double clique sur le mot Error et ensuite tu appuie sur F1.
La réponse ne se fait pas attendre.
25/09/2007, 19h41
Tofalu

Citation:

Envoyé par DURANTEAU

A quoi sert cette ligne au début du programme : On Error Resume Next

Merci

On error resume next permet comme la traduction l'indique que :

En cas d'erreur survenue sur une ligne, le programme continue à exécuter la suivante sans s'arréter. Sans cette ligne, toute erreur est critique et la moindre erreur interrompt l'exécution. On error resume next est LA solution de facilité car ça permet de gérer n'importe quelle erreur sans se soucier du pourquoi elle est levée. A utiliser à bon escient donc ;)
25/09/2007, 19h43
DURANTEAU

bonjour, bonjour, bonjour
Citation:
Envoyé par marot_r

J'ai un peu de mal à voir où est le problème.

Pour executer une procédure tu peux le faire de plusieurs façons :

0) Tu te mets dans la fenêtre d'exécution immédiate ([ctrl][g] pour l'ouvrir) et tu tapes le nom de ta procédure.

Code:

1 2 MaProcedure(MesParams)[Enter]

1) Tu crée un formulaire avec un bête bouton et dans le code associé au bouton (événement Click) tu appèle ta procédure. Comme squelette j'utilise 'Fermer le formulaire' qui te génère les 5 ou 6 lignes utiles et tu n'as plus qu'a adapater à ton problème.

Ensuite tu peux trés bien mettre du code SQL dans des chaînes de caractères et exécuter ce code même si ce n'est pas ma solution préférée.

A+
c'est quoi ta solution préférée

Voir 40 message(s) de cette discussion en une page