Fin d'instruction
Résolu/Fermé
A voir également:
- Attendu fin d'instruction vba
- Erreur 1004 vba ✓ - Forum VB / VBA
- Vba ouvrir un fichier excel avec chemin ✓ - Forum VB / VBA
- Find vba - Astuces et Solutions
- Incompatibilité de type vba ✓ - Forum Programmation
- Vba attendre 1 seconde ✓ - Forum VB / VBA
6 réponses
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
6 juin 2013 à 14:12
6 juin 2013 à 14:12
Bonjour,
de quelle instruction?????
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')"
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
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
6 juin 2013 à 15:37
6 juin 2013 à 15:37
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
f894009
Messages postés
17185
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
15 avril 2024
1 701
6 juin 2013 à 16:56
6 juin 2013 à 16:56
Re,
mon chemin qui et faut (est faux) peut-etre mettre la data source et le ID avoir, je n'utilise pas ces connexions.
mon chemin qui et faut (est faux) peut-etre mettre la data source et le ID avoir, je n'utilise pas ces connexions.
