Access : combinaison vb + sql pour créer une requête

Commenter

Contenu du snippet

Dans Access 97, créer un formulaire avec un bouton "Commande1" et deux zones de texte "texte1" et "Texet2".
Ajouter ce code dans l'évènement "sur Clic" du bouton "Commande1".
Une requête "NouvelleRequête" avec les critères de recherche des "Texte1" et "texte2" sera automatiquement ajoutée

Source / Exemple : 


Private Sub Commande1_Click()
On Error GoTo Err_Commande1_Click

Dim Champ1 as string
Dim Champ2 as String
Dim bds As Database, qdf As QueryDef
Dim chSQL As String

'Définition des variables
Champ1=[Texte1]
Champ2=[Texte2]

'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 * FROM [VotreTable ou votre Requête] WHERE ([NomChamp1]=" & Champ1 & "  and [NomChamp2]=" & Champ2 & ")"

 ' Crée un objet QueryDef.
 Set qdf = bds.CreateQueryDef("NouvelleRequête", chSQL)
   
Set bds = Nothing

Exit_Commande1_Click:
    Exit Sub

Err_Commande1_Click:
    MsgBox Err.Description
    Resume Exit_Commande1_Click
    
End Sub

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Biboune)