none
commande shell sur access 2003 et windows 7 RRS feed

  • Discussion générale

  • salut, pour quelle raison ma commande shell suivante fonctionne sur windows xp sp3 et access 2003 mais pas sur windows 7 avec access 2003??? Ai-je une erreur dans mon code?? Lorsque j'arrive sur la commande Shell ca me dit fichier introuvable avec windows 7 mais ok sur windows xp, j'ai valider le chemin de acrobat.exe et il est bien dans ce dossier, y'a-t-il une configuration sur le logiciel acrobat a faire.Merci

     


    Public Function ouvrir_fichier_pdf_photo() As String
    On Error Resume Next

    Dim var As Double
    Dim vChemin As String
    Dim rs As Recordset
    Dim var_enr As DAO.Recordset
    Dim rsmdb As DAO.Database
    Dim temp_avis As String
    Dim test As Variant
    Dim stDocName As String

    'DoCmd.SetWarnings (False)
    'stDocName = "R_noavis"
    'DoCmd.OpenQuery stDocName, acNormal, acEdit

    temp_avis = DLookup("NoAvis", "temp_noavis")
    Set rsmdb = CurrentDb
    Set var_enr = rsmdb.OpenRecordset("select photo from t_photo where (NoAvis='" & [temp_avis] & "' and photo like '*.pdf')")

       
    Do While Not var_enr.EOF
        test = var_enr("photo")
        Shell "C:\Programmes\Adobe\Acrobat 8.0\Acrobat\acrobat.exe """ & test & """"

        var_enr.MoveNext
    Loop
    rs.Close
    DoCmd.SetWarnings (True)
    End Function

    • Type modifié Ciprian Duduiala mercredi 11 janvier 2012 14:33 attente de feedback
    jeudi 22 décembre 2011 02:09

Toutes les réponses