fin d'instruction Résolu/Fermé

Question

Bonjour,

question bête comment fait-on une fin d'instruction en vba?

f894009 · Answer

Bonjour,

de quelle instruction?????

Dodo · Answer

J'ai une requête SQL a traiter et j'ai un message "attendu: fin d'instruction".

la voici: 

.CommandText = "select presences_absences.date_da,presences_absences.dureerelle_mo,presences_absences.dureearrondie_mo,presences_absences.presenceabsence_ch,presences_absences.idfacture,periode.libelleperiode_ch,regime.regime_ch,presences_absences.matin_bo,presences_absences.midi_bo,presences_absences.soir_bo,presences_absences.idrubrique,rubrique.libellerub_ch,famille.nomfamille_ch,enfants.naissance_da,dossier.idetablissements,etablissements.etablissement_ch,acceuils.idacceuils 
" from regimes, famille, dossier, enfants, presences_absences, rubrique, periode, acceuils, etablissements 
" where regimes.idregimes = familles.idregimes 
                "and famille.idfamille = dossier.idfamille 
                "and enfants.idenfants = dossier.idenfants 
                "and dossier.iddossier = presences_absences.iddossier 
                "and rubrique.idrubrique = presences_absences.idrubrique 
                "and periode.idperiode = presences_absences.idperiode 
                "and acceuils.idacceuil = periode.idacceuils 
                "and etablissements.idetablissements = acceuils.idetablissements 
                "and (presences_absences.date_da between '20120101' and '20120131')"

f894009 · Answer

Bonjour,

.CommandText = "select presences_absences.date_da,presences_absences.dureerelle_mo,presences_absences.dureearrondie_mo," & _
"presences_absences.presenceabsence_ch,presences_absences.idfacture,periode.libelleperiode_ch,regime.regime_ch," & _
"presences_absences.matin_bo,presences_absences.midi_bo,presences_absences.soir_bo,presences_absences.idrubrique," & _
"rubrique.libellerub_ch,famille.nomfamille_ch,enfants.naissance_da,dossier.idetablissements,etablissements.etablissement_ch,acceuils.idacceuils" & _
" from regimes, famille, dossier, enfants, presences_absences, rubrique, periode, acceuils, etablissements " & _
"where regimes.idregimes = familles.idregimes " & _
"and famille.idfamille = dossier.idfamille" & _
"and enfants.idenfants = dossier.idenfants" & _
"and dossier.iddossier = presences_absences.iddossier" & _
"and rubrique.idrubrique = presences_absences.idrubrique" & _
"and periode.idperiode = presences_absences.idperiode" & _
"and acceuils.idacceuil = periode.idacceuils" & _
"and etablissements.idetablissements = acceuils.idetablissements" & _
"and (presences_absences.date_da between '20120101' and '20120131')"

a voir

Dodo · Answer

Merci je n'est plus de problème à la requête maintenant j'ai "La requête ne c'est pas exécutée ou la table de la base de donnée n'a pas pu être ouverte"

Je met le code(Je vous épargne la requête):

Sub Macro1()
'
' Macro1 Macro
'
    With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _
        "OLEDB;Provider=PCSoft.HFSQL;Initial Catalog=\tse\Domino_web$\4643;User ID="""";Data Source="""";Extended Properties=""""" _
        , Destination:=Range("$A$1")).QueryTable
        .CommandType = xlCmdSql
        .CommandText = "requête"
        .Refresh BackgroundQuery:=False
    End With
End Sub

J'aimerai avoir votre avis car je ne sais pas si ça vien du code sinon je pense que c'est mon chemin qui et faut.....

f894009 · Answer

Re,

mon chemin qui et faut (est faux) peut-etre mettre la data source et le ID  avoir, je n'utilise pas ces connexions.

Dodo · Answer

Non, J'ai trouver le problème.

Les chemins sont juste, le problème viens de la requête j'ai oublier un espace après chaque and. Mais merci quand même.

Fin d'instruction

6 réponses

Discussions similaires