Discussion :

[speleo]

Bonjour,

Je souhaite lancer une requete création de table, ça ne marche pas et je me demande si il y a une procédure particuliere pour les réquetes action.

Voici mon code:

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
Private Sub BCourrier_Click()
 
On Error GoTo err_BCourrier_click
 
Dim wsql As Variant
Dim WDblQ As String
Dim wcle As Variant
 
wsql = ""
WDblQ = ""
 
Trt_cle:
 
wcle = ""
 
wcle = Me!Fcle
 
wsql = wsql & "[cle] =" & "wcle"
 
    DoCmd.OpenQuery "Rcourrier", , , wsql
    DoCmd.Close acQuery, "Rcourrier"

Merci d'avance de votre aide

[Tofalu]

Le type des variables ainsi que la déroulement du code est pour le moins étrange.



Pour lancer une requête, privilégie la méthode Currentdb.Execute