Discussion :

[arnogef]

bonjour,

j'ai un probleme avec une fonction vba dans laquelle je lance des runsql
la requete sql s'execute bien mais apres çà, il ne passe plus rien!
le code restant dans la fonction n'est pas executé, alors que quand j'enleve la requete sql avant, il est executé

y a t il un truc a faire genre sql.close apres une instruction sql pour que le code s'execute??

merci

[Muhad'hib]

Salut,
Il y a peut-être une erreur qui fais que tu va à une autre partie de ton code. As tu mis en place une gestion des erreur (on error ...) ? As tu fais une execution pas à pas ?

A+

[arnogef]

oui j'ai regardé pas à pas, je ne vois pas d'ou vient le probleme

[DMboup]

Montres ton code

[arnogef]

bonjour

voici mon code

Private Sub cmd_Aller_vers_Form2_Click()

'Crée la table liste_semaines
Creation_Table_Liste_Semaines

DoCmd.Close
DoCmd.OpenForm "Form2"
End Sub

et Creation_Table_Liste_Semaines est dans un module comme ceci :

Function Creation_Table_Liste_Semaines()
Dim i As Integer
Dim sql_suppression, sql_ajout As String
DoCmd.SetWarnings False

'vide la table existante
sql_suppression = "DELETE [Liste_Semaines].* FROM [Liste_Semaines];"
DoCmd.RunSQL sql_suppression

'ajoute les nouvelles données dans la table
For i = 1 To Nb_semaines
sql_ajout = "INSERT INTO [Liste_Semaines] (Semaine) VALUES ('S" & i & "');"
DoCmd.RunSQL sql_ajout


Next i
End
DoCmd.SetWarnings True
DoCmd.Close


End Function

Nb_semaines étant une variable publique renseignée dans le Formulaire en cours (Form1)

Donc voilà si je met Creation_Table_Liste_Semaines en commentaire, le code est executé (Form2 s'ouvre) mais si je le laisse, la table Liste_Semaines est bien créée en revanche le code s'arrete, Form2 ne s'ouvre pas...

[ypicot]

Juste à l'oeil...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim sql_suppression, sql_ajout As String

Au passage, sql_suppression est de type variant. Si tu veux un string :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim sql_suppression as string, sql_ajout As String

Sinon, tu as 2 docmd.close. Il n'y en a pas un de trop ? Celui qui est dans Creation_Table_Liste_Semaines, par exemple...

Accessment,

Yvan

[arnogef]

bonjour,

le cmd.close de Creation_Table_Liste_Semaines, je ne l'avais pas mis au début, je l'ai rajouté parce que comme çà ne marchait pas sans, je me suis dit qu'il fallait peut etre le rajouter.
là je l'ai enlevé et çà ne change rien

sinon j'ai bien mis Dim sql_suppression as string, sql_ajout As String
comme tu le conseilles mais là non plus pas de changement...

[ypicot]

Il y a un END juste en bas de Creation_Table_Liste_Semaines

[arnogef]

en effet quand j'enleve le END çà marche!
je pensais qu'il fallait le mettre pour fermer la boucle for...

merci bcp!

[ypicot]

Ce qui ferme la boucle for, c'est le next.
Le end arrête toutes les macros.

Accessment,

Yvan