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+