Fin d'instruction
Résolu
Dodo
-
Dodo -
Dodo -
Bonjour,
question bête comment fait-on une fin d'instruction en vba?
question bête comment fait-on une fin d'instruction en vba?
6 réponses
-
Bonjour,
de quelle instruction????? -
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')" -
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 -
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..... -
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Re,
mon chemin qui et faut (est faux) peut-etre mettre la data source et le ID avoir, je n'utilise pas ces connexions. -
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.