Fin d'instruction

Résolu
Bonjour,

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

6 réponses

  1. 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')"
    1. 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
      1. 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.....
        1. Re,

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