Discussion :

[argv666]

Bonjour,

une petite question : est ce que je peut developper un module pour executer des requetes avec des parametres en entré et créer une macro qui lance ce module ?
Si oui, comment lancer une requete en vb ?

Merci pour vos réponses

[random]

il va falloir un peu regarder les tutoriels

mais cela n'est pas difficile [/code]

[argv666]

voila ce que j'ai :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub btValider_Click()
On Error GoTo err
 
Dim CurrentDb As DAO.Database
Dim qdf As DAO.QueryDef
Dim rcs As DAO.Recordset
 
'référence à la requête
Set qdf = CurrentDb.QueryDefs("totot")
 
qdf.Parameters(Langue) = "1"     
qdf.Execute                                 
 
 
'libération de la référence
Set qdf = Nothing
 
Exit Sub
err:
MsgBox "Une erreur est survenue", vbCritical, "erreur"
 
End Sub

Mais j'ai une erreur ....
qdf est egale à "nothing" lors de l'execution du set....
Aurai je oublier qq chose?
merci