IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

VBs probleme avec Docmd


Sujet :

VBScript

Mode arborescent

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Invité
    Invité(e)
    Par défaut VBs probleme avec Docmd
    Bonjour a tous, voici jai un probleme pour delete une table et la réimporter.

    c'est la commande docmd qui me pose problème. (j'ai mis en gras ou ca bloque)

    si quelqu'un"un pourrais me donner des conseils , merci de votre comprehension
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    Dim objConnection
     
    Dim strConnODBC
     
    Dim strSce, strDest
     
    Dim arrTables, i
     
    DIM query
     
    Set objConnection = CreateObject("ADODB.Connection")
     
    set ars = CreateObject("ADODB.Recordset")
     
    objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=S:\COUTVPF\ImportTablePDM.mdb"
     
    set ars = CreateObject("ADODB.Recordset")
     
     
     
    ' Chaîne de connexion ODBC
     
    strConnODBC = "ODBC;DSN=PDMTEST;APP=Microsoft Office 2003;WSID=PC0905-6;DATABASE=PDM;Trusted_Connection=Yes"
     
     
     
    ' Créer liste des tables à importer
     
    arrTables = Array( "Circuit", "Concurrence", "Entrees", "Programmes_Salles", "Films", "Salles", "Resultat_Journalier", "Format")
     
     
     
    ' Boucler sur les tables et les importer une par une
     
    For i = LBound(arrTables) To UBound(arrTables)
     
     
     
        strSce = arrTables(i)
     
        strDest = Replace(strSce, ".", "_")
     
     
     
            If vbYes = MsgBox("Importer la table " & strDest & "?", vbYesNo, "Import de  PDM") Then
     
     
    '*******************Problème ICI *************************************
                   On Error Resume Next
     
                    DoCmd.DeleteObject acTable, strDest
     
                    On Error GoTo 0
     
     
     
                    On Error Resume Next
     
                    DoCmd.TransferDatabase acImport, "Base de données ODBC", strConnODBC, acTable, strSce, strDest
     
                    On Error GoTo 0
    '******************* fin Problème ICI *************************************
            End If
     
    Next
    L'erreur que j'ai
    Objet requis "docmd"

    source= erreur d'executions Microsoft Vbscript

    Edit : J'ai essayer plusieurs syntaxes toujours rien ...
    Dernière modification par Overcrash ; 21/12/2010 à 20h01. Motif: Motif: Pour le code, bouton # en haut à droite de l'éditeur, NON FACULTATIF. Et pensez au bouton Editer.

Discussions similaires

  1. [XL-2010] Probleme avec Docmd.transferspreadsheet
    Par stargates01 dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 17/02/2014, 11h19
  2. [AC-2010] Probleme avec DoCmd.TransferText acExportDelim
    Par lololebricoleur dans le forum VBA Access
    Réponses: 6
    Dernier message: 07/04/2013, 23h01
  3. [AC-2003] probleme avec DoCmd.CopyObject
    Par cacit_boss dans le forum VBA Access
    Réponses: 1
    Dernier message: 25/03/2012, 08h16
  4. batch - probleme avec Prndrvr.vbs
    Par kiko26 dans le forum Windows
    Réponses: 3
    Dernier message: 17/08/2006, 10h25
  5. probleme avec DoCmd.RunSQL
    Par Didier77 dans le forum Access
    Réponses: 5
    Dernier message: 21/07/2006, 16h09

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo