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?
A voir également:
- Attendu fin d'instruction vba
- Fin des zfe - Guide
- Fin du partage de compte disney + - Accueil - Streaming
- Fin de la 4g en france - Accueil - Guide opérateurs et forfaits
- Code fin d'appel ooredoo - Forum Mobile
- Chambre 1408 explication fin - Forum Cinéma / Télé
6 réponses
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')"
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
.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.....
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