Discussion :

[chordially]

Bonjour,

Quelqu'un pourrait-il m'indiquer comment faire en sorte que l'information apparaissant dans le messageBox soit inscrite dans un champ Ch1 de la table MaTable....Je ne sais pas quel argument ou mot-clé utiliser en vba :
Voici le code que j'utilise :

Code :

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

1
2
3
4
5
6
Sub AfficherInfoFichier(cancel As Integer)
    Dim s, dbsA As Database
    Set dbsA = CurrentDb
      s = dbsA.Name
       MsgBox s
End Sub

Merci, ça m'aiderait vraiment beaucoup.
Bonne journée
Chordially

[marot_r]

À quel endroit fais-tu appel à cette procédure ?

Pourquoi passes-tu Cancel en paramêtre si tu ne t'en serts pas dans ta procédure ?

A+

[chordially]

À quel endroit fais-tu appel à cette procédure ?

Pourquoi passes-tu Cancel en paramêtre si tu ne t'en serts pas dans ta procédure ?

A+

Bonjour, Marot, r,
Par ignorance... J'ai trouvé cette portion de code dans un exemple. Je l'ai cité parce que le résultat de ce code (utilisé dans un userform pour le tester) correspond à l'information que je voudrais disposer dans une table locale.
Le but plus large de l'opération est de recenser les tables liées dans toutes mes bases de données.
Le seul point qui me manque, c'est le nom de la bd dans un champ d'une table.
Par la suite, une macro ira récupérer à la fois le nom des tables liées et le nom de la bd qui les utilise.
Peut-être existe-t-il une démarches moins tordue, mais c'est ce que j'ai trouvé de mieux dans toutes mes recherches.

Merci de te pencher sur ma question.

Chordially

[marot_r]

Ta méthode est la meilleure que je connaisse mais tu n'as pas répondu à ma 1ère question : où fait-tu ou prévois-tu de faire appel à cette procédure ?

Dans une requète ? dans un module ? dans un formulaire ?

A+

[chordially]

Ta méthode est la meilleure que je connaisse mais tu n'as pas répondu à ma 1ère question : où fait-tu ou prévois-tu de faire appel à cette procédure ?

Dans une requète ? dans un module ? dans un formulaire ?

A+

Bonjour, Marot, r,

Je prévois de faire appel à ce code dans une requête.

Bonne journée

Chordially

[marot_r]

Donc cela te prends une fonction public et une requête d'insertion.

Le code est très proche de ce que tu as déjà écrit, à mettre dans un module.

Code :

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

1
2
3
4
5
6
7
8
9
 
public function LireNomBase() as string
    Dim s as sring 
    dim dbsA As Database
    Set dbsA = CurrentDb
    s = dbsA.Name
    LireNomBase=s
    set dbsa=nothing :'Fait le ménage dérière toi
End function

Dans ta requète tu as juste à dire =LireNomBase()

A+

[chordially]

Donc cela te prends une fonction public et une requête d'insertion.

Le code est très proche de ce que tu as déjà écrit, à mettre dans un module.

Code :

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

1
2
3
4
5
6
7
8
9
 
public function LireNomBase() as string
    Dim s as sring 
    dim dbsA As Database
    Set dbsA = CurrentDb
    s = dbsA.Name
    LireNomBase=s
    set dbsa=nothing :'Fait le ménage dérière toi
End function

Merci du coup de main.
Je suis tes indications et je te fais savoir la suite. Je te dois bien ça.
Dans ta requète tu as juste à dire =LireNomBase()

A+

[chordially]

Bonjour, Marot, r,
Yessss!!! Comme on dit. Tout baigne. J'abuse peut-être, mais je me demande si le code suivant peut être utilisé pour plusieurs bases de données contenant la même macro. Est-ce que c'est une sorte de Loop qu'il faut construire ?

Code :

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

1
2
3
4
5
6
7
8
 
Sub ExécuterMacroAccess()' auteur Tibadabo. Grâces lui soient rendues ! 'Amen
 Dim MonAccess As New Access.Application
 MonAccess.OpenCurrentDatabase "D:\etude.mdb" 'Ici le chemin de la bdd Access
 DoCmd.RunMacro "Export" 'Ici le nom de la macro
 MonAccess.Quit acquitsaveNone
 Set MonAccess = Nothing
End Sub

... et si j'abuse, pardonne-moi et sois grandement remercié.
D'ailleurs, je me demande si pour ma question initiale on peut la classer "Résolu" car c'est le cas ? Faut-il débuter une autre discussion ?

Chordially

[marot_r]

Désolé mais je ne sais pas.

Si cela se rapport à ta question initiale alors le thread n'est pas résolu sinon, oui il serait mieux de mettre résolu et d'ouvrir une nouvelle discussion.

A+

[chordially]

Désolé mais je ne sais pas.

Si cela se rapport à ta question initiale alors le thread n'est pas résolu sinon, oui il serait mieux de mettre résolu et d'ouvrir une nouvelle discussion.

A+

Bon alors je vais faire ça : démarrer une nouvelle discussion, et inscrire celle-ci comme résolue, grâce à toi.

Merci encore et à +

Chordially