Fin d'instruction

Résolu
Dodo -  
 Dodo -
Bonjour,

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

6 réponses

  1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,

    de quelle instruction?????
    0
  2. Dodo
     
    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')"
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    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
    0
  4. Dodo
     
    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.....
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,

    mon chemin qui et faut (est faux) peut-etre mettre la data source et le ID avoir, je n'utilise pas ces connexions.
    0
  7. Dodo
     
    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.
    0