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

VBA Access Discussion :

problème de variable String pour la connexion


Sujet :

VBA Access

  1. #1
    Membre confirmé
    Inscrit en
    Octobre 2006
    Messages
    127
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 127
    Par défaut problème de variable String pour la connexion
    Bonjour,
    lors de l'ouverture de mon application, j'ai su code qui me permet de détecter si la base de données contenant les tables de base a été déplacé, si oui je repointe les tables au bon endroit.
    Cela marche seulement quand je met le chemin d'accès statiquement(code en dur). Dès lors que j'utilise une variable, ça ne marche plus.Voici le code:

    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
    Private Sub Image23_Click()
     
    Dim cheminBase As String 'nouveau chemin pour accéder à la base de données
    Dim db As Database 'base de données courante
     
    DoCmd.Close
     
    Set db = CurrentDb
    '//////////////////////////////////////////////////
    On Error GoTo gererErreurChemin
     
        DoCmd.OpenForm "Menu accueil" '......was there before
     
    exit_gererErreur:
            Exit Sub
     
    gererErreurChemin:
     
        If Err.Number = 3024 Then ' le fichier qui contient la base de données(tables liées) a été déplacé
     
            'afficher l'explorateur pour parcourir le disque et prendre la base de données
            With Application.FileDialog(msoFileDialogOpen)
                .AllowMultiSelect = False
                .Show
                cheminBase = .SelectedItems(1) 'mettre le nom du fichier sélectionner dans une zone de texte
     
            End With
     
            'MsgBox "Nom de la base sélectionnée " & cheminBase
     
            'Module_Utilitaires.lier_Tables cheminBase 'lier les tables en utilisant le nouveau chemin
     
                For Each Tb In db.TableDefs
     
                    If Left(Tb.Name, 4) <> "MSys" Then
     
                        If Tb.Connect <> "" Then
                            'Tb.Connect = ";Database=C:\Documents and Settings\Administrateur\Bureau\Copies\maBase.mdb"
                            Tb.Connect = ";Database=" & cheminBase
                            Tb.RefreshLink
                        End If
                    End If
                Next
        Else
            MsgBox Err.Description
        End If
     
     '////////////////////////////////////////////////////////////
     db.Close
     Set db = Nothing
    merci d'avance pour votre aide.

  2. #2
    Expert confirmé
    Avatar de Dolphy35
    Homme Profil pro
    Responsable Systemes d'Information
    Inscrit en
    Octobre 2004
    Messages
    4 373
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 47
    Localisation : France, Ille et Vilaine (Bretagne)

    Informations professionnelles :
    Activité : Responsable Systemes d'Information
    Secteur : Industrie

    Informations forums :
    Inscription : Octobre 2004
    Messages : 4 373
    Par défaut
    Salut,

    un peu de lecture

    http://dolphy35.developpez.com//arti...reseaux/#LVIII


    sinon met un debug.print ou msgbox pour contrôler la contenance de ta variable.


    Dolphy

  3. #3
    Membre confirmé
    Inscrit en
    Octobre 2006
    Messages
    127
    Détails du profil
    Informations forums :
    Inscription : Octobre 2006
    Messages : 127
    Par défaut
    merci pour le lien.
    je vais adapter le code dès que je suis dispo et je vous tiendrai informé.
    Bonne journée.

Discussions similaires

  1. Réponses: 3
    Dernier message: 13/06/2008, 14h41
  2. Problème de variables php pour traitement du formulaire
    Par marocteech dans le forum Langage
    Réponses: 1
    Dernier message: 01/01/2008, 16h23
  3. Variable String pour fonction Confirm()
    Par calagan99 dans le forum Général JavaScript
    Réponses: 6
    Dernier message: 12/09/2007, 08h26
  4. Réponses: 5
    Dernier message: 20/02/2007, 06h27
  5. [MySQL] Problème récupération variable pour requête SQL !!
    Par mLk92 dans le forum PHP & Base de données
    Réponses: 3
    Dernier message: 01/06/2006, 16h08

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