Discussion :

[Nicko29]

Bonsoir,

Je stocke dans une table avec 2 champ les chemins de répertoire ou sont stocké des sauvegardes de d'application access.
j'ai donc 2 champs : type ( repertoire d'installation ou répertoire de sauvegarde) et un champ chemin avec le chemin.

J'ai suivi les instructions de la FAq pour les recordset et j'ai modifie le code en conséquence.
J'ai crée la requête et elle m'affiche bien ce que je veux c'est à dire une ligne avec en type :ChRepS et en chemin :G:\SauvBdd.

Ce que je souhaiterai c'est récupéré "G:\SauvBdd" dans mon code VBA , pour l'avoir en paramètre et ne pas être obligé de retaper le chemin quand celui-ci change. en gros rst = G:\SauvBdd

ma requête sélection comporter a chaque qu'une seule ligne comme il y aura qu'un chemin par type de répertoire.

voici mon 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
Sub recup()
 
Dim db As DAO.Database, rst As DAO.Recordset, fld As DAO.Field
    Dim sSQL As String
    ' Ouverture de la base de données
    Set db = DBEngine.OpenDatabase(CurrentDb.Name)
    sSQL = "SELECT CheminInstall.TypeChemin, CheminInstall.Chemin FROM CheminInstall WHERE (((CheminInstall.TypeChemin)='ChRepS'))"
 
    ' Ouverture du recordset
    Set rst = db.OpenRecordset(sSQL, dbOpenForwardOnly, dbReadOnly)
 
Suite du code en utilisant chemin = rst & "dossier/bdd1.mdb"
 
    ' Fermeture du Recordset
    rst.Close
End Sub

le problème est que rst = nothing quand j'utilise le pas à pas détaillé.

comment puis faire pour qu'il me retourne le chemin ?

Merci !

[Invité]

Bonjour

D'abord :

Code :

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

 Set db = CurrentDB

suffit.

Ensuite

Code :

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

Set rst = db.OpenRecordset(sSQL)

suffit aussi.

Fais un debug.print sSQL pour voir si cela te fais une instruction cohérente.

Sinon, en plus court et en une seule ligne, car vu ce que tu demandes, c'est que ta table n'est pas énorme, c'est la fonction DLookup. Voici un article sur le sujet.

Starec

[Nicko29]

Salut Starec ,

aussitôt dit aussi tôt fait ! J'ai cherché autre chose comme je n'arrivait pas à mettre cà en frome avec les recordsets , j'ai effectivement utilisé la fonction DLookup !!

voilà le code donc

Code :

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

RepSauv = DLookup("[Chemin]", "CheminInstall", "[TypeChemin] = 'ChRepS'")

Merci pour l'article que je vais lire attentivement , tout comme j'espère m'en tirer avec les recordsets , pour comprendre.

Merci !! a bientôt

[Invité]

Re

Comme le dit l'article, l'utilisation des recordset et du SQL et beaucoup plus performant que les fonctions de domaines dans le cas de grandes tables.

Essaye quand même de le faire par les recordset pour ta culture personnelle.

Starec