Requete en vba

Résolu/Fermé

daughuet Messages postés 3 Date d'inscription lundi 11 août 2008 Statut Membre Dernière intervention 11 août 2008 - 11 août 2008 à 14:29
CaPiT Messages postés 609 Date d'inscription lundi 7 janvier 2008 Statut Membre Dernière intervention 21 avril 2010 - 11 août 2008 à 17:05

Bonjour,

J'essaie de faire une requête en fonction des données encodées dans un formulaire et j'ai toujours le message suivant:" access can't find the object 'SELECT...

Code du bouton de mon formulaire:

Sub Cherche()

On Error GoTo Err_Recherche_Click

Dim stAnnee As Integer
Dim stType As Integer
Dim reqSQL As String

stAnnee = Combo1

stType = Combo5

reqSQL = "SELECT S725_S661_FICHES.NUMERO, S725_S661_FICHES.DESCRIPTION, S725_S661_BUDGETS.ANNEE, S725_S661_BUDGETS.MONTANT, S725_S661_BUDGETS.TBD_ID"
reqSQL = reqSQL & "FROM (S725_S661_FICHES LEFT JOIN S725_S725_CAHIER_D_CHARGES_VW ON S725_S661_FICHES.ID = S725_S725_CAHIER_D_CHARGES_VW.FCH_ID) INNER JOIN S725_S661_BUDGETS ON S725_S661_FICHES.ID = S725_S661_BUDGETS.FCH_ID"
reqSQL = reqSQL & "WHERE (((S725_S661_FICHES.NUMERO)>410000000) AND ((S725_S661_BUDGETS.MONTANT)>0) AND ((S725_S661_BUDGETS.TBD_ID)=" & stType & ") AND ((S725_S725_CAHIER_D_CHARGES_VW.NUMERO_CSC) Is Null) AND ((S725_S661_FICHES.ACTIVE)=1) AND ((S725_S661_BUDGETS.STATUS))"

DoCmd.OpenQuery reqSQL, acViewNormal, acReadOnly

Exit_Recherche_Click:
Exit Sub

Err_Recherche_Click:
MsgBox Err.DESCRIPTION
Resume Exit_Recherche_Click

End Sub

Qui peut me dire ce qui est faux?
Merci beaucoup

A voir également:

Requete en vba
Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
Erreur 1004 vba ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Vba dernière colonne non vide ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

CaPiT Messages postés 609 Date d'inscription lundi 7 janvier 2008 Statut Membre Dernière intervention 21 avril 2010 51
11 août 2008 à 14:32

Bonjour,

Il te manque un point-virgule (;) à la fin de ta requête juste avant les guillemets (")

Réponse 2 / 5

daughuet Messages postés 3 Date d'inscription lundi 11 août 2008 Statut Membre Dernière intervention 11 août 2008
11 août 2008 à 14:41

Merci CaPiT mais même message, malgré le ;

Réponse 3 / 5

CaPiT Messages postés 609 Date d'inscription lundi 7 janvier 2008 Statut Membre Dernière intervention 21 avril 2010 51
11 août 2008 à 15:04

Tu peux faire ça :

Sub Cherche() 

On Error GoTo Err_Recherche_Click 

Dim stAnnee As Integer 
Dim stType As Integer 
Dim reqSQL As String 

stAnnee = Combo1 

stType = Combo5 

reqSQL = "SELECT S725_S661_FICHES.NUMERO, S725_S661_FICHES.DESCRIPTION, S725_S661_BUDGETS.ANNEE, S725_S661_BUDGETS.MONTANT, S725_S661_BUDGETS.TBD_ID" 
reqSQL = reqSQL & "FROM (S725_S661_FICHES LEFT JOIN S725_S725_CAHIER_D_CHARGES_VW ON S725_S661_FICHES.ID = S725_S725_CAHIER_D_CHARGES_VW.FCH_ID) INNER JOIN S725_S661_BUDGETS ON S725_S661_FICHES.ID = S725_S661_BUDGETS.FCH_ID" 
reqSQL = reqSQL & "WHERE (((S725_S661_FICHES.NUMERO)>410000000) AND ((S725_S661_BUDGETS.MONTANT)>0) AND ((S725_S661_BUDGETS.TBD_ID)=" & stType & ") AND ((S725_S725_CAHIER_D_CHARGES_VW.NUMERO_CSC) Is Null) AND ((S725_S661_FICHES.ACTIVE)=1) AND ((S725_S661_BUDGETS.STATUS))" 

CurrentDb.CreateQueryDef "NomDeLaRequete", reqSQL
DoCmd.OpenQuery "NomDeLaRequete"

Exit_Recherche_Click: 
Exit Sub 

Err_Recherche_Click: 
MsgBox Err.DESCRIPTION 
Resume Exit_Recherche_Click 

End Sub

Du coup ça te créer la requête puis ça l'ouvre ;)

Réponse 4 / 5

daughuet Messages postés 3 Date d'inscription lundi 11 août 2008 Statut Membre Dernière intervention 11 août 2008
11 août 2008 à 15:30

Ok! Ca marche, merci CaPiT

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

CaPiT Messages postés 609 Date d'inscription lundi 7 janvier 2008 Statut Membre Dernière intervention 21 avril 2010 51
11 août 2008 à 17:05

De rien ;)

Bonne journée à toi !

Discussions similaires

problème avec graphQL

La requête GraphQL n’est pas autorisée

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters