Discussion :

[froggystar69]

Bonjour à vous les loulous,

Voila je débute en ACCESS.

Je voudrai savoir si il était possible d'à partir d'un formulaire créé sous ACCESS se connecter à un fichier ACCESS sur le réseau pour alimenter des listes déroulantes du formulaire, parcourir ce fichier a distant ( voir les enregistrements de la table)?

Sachant que j'ai essaye avec un semblant de code qui est le suivant :

Code :

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

1
2
3
4
5
6
 
 
chembd = "D:\Users\u170045\Documents\BDD Suivi fttx\Suivi_FTTx.accdb"
Set base = DBEngine.OpenDatabase(chembd)
Set enr = base.OpenRecordset("SELECT Référence_SF FROM Suivi_FTTx ", dbOpenDynaset)
ldrefsf.AddItem Item:=enr

Mais sans succès

Dans l'attente de vous lire, je vous remercie d'avance de votre aide ou de m'avoir lu.

Froggy

[Phiphi41]

Bonjour,

Il faut parcourir tes enregistrements :

Code :

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

1
2
3
4
While not enr.EOF
    ldrefsf.AddItem Item:=enr
    enr.MoveNext
Wend

[froggystar69]

Merci phiphi

je vais tester cela de suite.

Un grand merci !!!!!!!!!!!!!!

[Thierry_PALLIER]

Bonjour le forum.

Avec une simple requete, en indiquant la base distante:

Code :

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

1
2
3
SELECT .....
FROM MaTable IN 'D:\Users\u170045\Documents\BDD Suivi fttx\Suivi_FTTx.accdb'
WHERE .....;

Attention aux accents dans les noms

Code :

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

1
2
SELECT Référence_SF
FROM Suivi_FTTx  IN 'D:\Users\u170045\Documents\BDD Suivi fttx\Suivi_FTTx.accdb';

Cdlt

[froggystar69]

Re phiphi et tout le monde,

Bon j'ai essaye avec le parcours malheureusement ca ne fonctionne pas ceci dit je n'ai plus de message d'erreur c'est un pas deja fait ^^.

Si vous avez d'autre proposition je suis preneur ^^.

En tout cas merci encore.

Froggy

[Phiphi41]

Regardes dans les propriétés de ta liste, normalement dans l'onglet dans la propriété Origine Source tu dois avoir Liste Valeurs.

De plus, déclare une variable de type String par exemple strListe.

Ensuite modifie le code comme cela :

Code :

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

1
2
3
4
5
6
7
Dim strListe as string
While not enr.EOF
        strListe = strListe & ";" & enr("Référence_SF")
        enr.MoveNext
Wend
 
ldrefsf.RowSource=strListe

[froggystar69]

Merci thierry et phiphi je vais pouvoir avancer.

Je sais que c'est basique ma demande mais je debute en access.

Encore merci vous etes vraiment sympa ainsi que la communaute.

Froggy