Discussion :

[Guy FALESSE]

Bonjour,

Depuis ma base de données actuelle, je voudrais consulter des données d'une autre base de données.
Par exemple, je suis dans la base données EuroVella.mdb ou accdb et je voudrais ouvrir les tables facturation et sousfacturation de la base2009.mdb tout en restant dans ma base active.
Ce serait peut-être un truc comme:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim monSQL as string
monSQL=SELECT Base2009.facturation, Base2009.SousFacturation IN 'c:\svella\Base2009.mdb'

Après, je cale
D'avance merci

@+

Guy FALESSE

[Guy FALESSE]

Bonjour,

Voilà ce que j'ai tenté, mais, j'ai l'erreur:
Erreur d'exécution (opérateur absent) dans l'expression "VellaTables2009.sousFacturation in (c:\Svella\VellaTables2009.mdb")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Dim monSQL As String
    monSQL = "SELECT VellaTables2009.facturation, VellaTables2009.sousFacturation IN ('"C:\Svella\VellaTables2009.mdb"')"
    DoCmd.OpenForm "frmFacturationAutreAnnée"
    Forms!frmFacturationAutreAnnée.RecordSource = monSQL

D'avance merci pour vos conseils.
@+
Guy FALESSE

[Invité]

Bonjour

Pourquoi ne pas lier les tables facturation et sous facturation de la base "VellaTables2009.mdb".
Cela peut se faire soit avec l'assistant, soit par le code.

[Guy FALESSE]

Salut Gayot,

Merci pour ta réponse.

Bonjour

Pourquoi ne pas lier les tables facturation et sous facturation de la base "VellaTables2009.mdb".
Cela peut se faire soit avec l'assistant, soit par le code.

J'aurais préféré connaître la syntaxe exacte, de mon erreur, mais bon...
Il faut lier et délier et il faut que je le fasse par code, je vais tenter.
@+
Guy FALESSE

[Guy FALESSE]

Salut Gayot,

J'ai voulu faire cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Commande11_Click()
    Dim chCritères As String, chem As String, TBD As String
    Dim maBD As Database
    Set maBD = CurrentDb
    'chCritères = InputBox(" Donnez la date des nouvelles tables à consulter")
    chem = "c:\SVella\VellaTables2009.mdb"
    TBD = "Microsoft Access"
    DoCmd.TransferDatabase acLink, TBD, chem, acTable, "Facturation", "Facturation"
    DoCmd.OpenForm "frmFacturationAutreAnnée"
End Sub

Mais, ça ne fonctionne pas
Que devrais-je faire?

Merci,

@+

Guy FALESSE

[Invité]

Tu as deux tutoriels à ta disposition:

http://dolphy35.developpez.com/artic...s/basesreseaux

http://jdgayot.developpez.com/tutori...cess/liaisons/

Tu auras ainsi une palette de possibilités.

[Guy FALESSE]

Salut Gayot,

Merci, je vais consulter tes tutoriels.
@+
Guy FALESSE

[Guy FALESSE]

Salut Gayot,

Voilà ce que j'ai fait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub Commande11_Click()
    Dim chCritères As String, chem As String, TBD As String
    Dim maBD As Database
    Set maBD = CurrentDb
    chem = "c:\SVella\VellaTables2009.mdb"
    TBD = "Microsoft Access"
    DoCmd.TransferDatabase acLink, TBD, chem, acTable, "Facturation", "Facturation"
    DoCmd.OpenForm "frmFacturationAutreAnnée"
    Forms!frmFacturationAutreAnnée.RecordSource = "facturation1"
End Sub

Comme j'avais déjà une table facturation liée, la nouvelle liaison a été appelée facturation1 ainsi de suite si on appelle la fonction.
Lorsqu'on, ferme le formulaire, sur libération, on efface la table facturation1
@+

Guy FALESSE