Vb + Access & Requete Sql

Question

Bonjour,

je ne suis pas très doué en Vb et c'est pour ca que j'ai utilisé un code de "biboune" pour réaliser une requete sql  sur un formulaire access. Je n'arrive cependant  pas à faire exécuter  et afficher la requete. kekun aurait -il  la patience de me dire ce qui cloche dans le code ci dessous , par avance merci.

Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click

Dim Champ1 As String
Dim Champ2 As String
Dim chSQL As String
'Dim bds As Database, qdf As QueryDef

'Définition des variables
Champ1 = [Modifiable12]
Champ2 = [Modifiable8]

'Activation de la base de donnée en cours
Set bds = CurrentDb
bds.QueryDefs.Refresh
    
' Si la requête NouvelleRequête existe, la supprime.
    For Each qdf In bds.QueryDefs
        If qdf.Name = "NouvelleRequête" Then
            bds.QueryDefs.Delete qdf.Name
        End If
Next qdf
    
chSQL = "SELECT count(*) as qte FROM Tbcontacts WHERE ([Tbcontacts.programme]='" & Champ1 & "');"

' Crée un objet QueryDef.
Set qdf = bds.CreateQueryDef("NouvelleRequête", chSQL)
[RESULT] = qdf
'MsgBox chSQL, vbInformation

Set bds = Nothing

Exit_Commande1_Click:
    Exit Sub

ChrisWes · Answer

-------------------------------
 Réponse au message :		  
-------------------------------

> Bonjour,
> 
> je ne suis pas très doué en Vb et c'est pour ca que j'ai utilisé un code de "biboune" pour réaliser une requete sql  sur un formulaire access. Je n'arrive cependant  pas à faire exécuter  et afficher la requete. kekun aurait -il  la patience de me dire ce qui cloche dans le code ci dessous , par avance merci.
> 
> Private Sub Commande1_Click()
> On Error GoTo Err_Commande1_Click
> 
> Dim Champ1 As String
> Dim Champ2 As String
> Dim chSQL As String
> 'Dim bds As Database, qdf As QueryDef
> 
> 
> 'Définition des variables
> Champ1 = [Modifiable12]
> Champ2 = [Modifiable8]
> 
> 'Activation de la base de donnée en cours
> Set bds = CurrentDb
> bds.QueryDefs.Refresh
>     
> ' Si la requête NouvelleRequête existe, la supprime.
>     For Each qdf In bds.QueryDefs
>         If qdf.Name = "NouvelleRequête" Then
>             bds.QueryDefs.Delete qdf.Name
>         End If
> Next qdf
>     
> chSQL = "SELECT count(*) as qte FROM Tbcontacts WHERE ([Tbcontacts.programme]='" & Champ1 & "');"
> 
> ' Crée un objet QueryDef.
> Set qdf = bds.CreateQueryDef("NouvelleRequête", chSQL)
> [RESULT] = qdf
> 'MsgBox chSQL, vbInformation
> 
> Set bds = Nothing
> 
> Exit_Commande1_Click:
>     Exit Sub
>

Vb + Access & Requete Sql

1 réponse

Discussions similaires