Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Anor
Bonjour, une table importée, non, mais liée, oui... tu veux un résultat avec requête SQL ou un résultat dans une variable ou msgbox vba ?
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Michel wrote: | Bonjour à vous | | Est-ce possible de trouver de quelle Base de Donnée | provient une table importée ? | | Merci d'être là pour nous :-)
Bonjour,
une table importée, non, mais liée, oui...
tu veux un résultat avec requête SQL ou
un résultat dans une variable ou msgbox vba ?
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Michel wrote:
| Bonjour à vous
|
| Est-ce possible de trouver de quelle Base de Donnée
| provient une table importée ?
|
| Merci d'être là pour nous :-)
Bonjour, une table importée, non, mais liée, oui... tu veux un résultat avec requête SQL ou un résultat dans une variable ou msgbox vba ?
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Michel wrote: | Bonjour à vous | | Est-ce possible de trouver de quelle Base de Donnée | provient une table importée ? | | Merci d'être là pour nous :-)
Michel
Dans un msgbox vba si possible.
-----Message d'origine----- Bonjour, une table importée, non, mais liée, oui... tu veux un résultat avec requête SQL ou un résultat dans une variable ou msgbox vba ?
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Michel wrote: | Bonjour à vous | | Est-ce possible de trouver de quelle Base de Donnée | provient une table importée ? | | Merci d'être là pour nous :-)
.
Dans un msgbox vba si possible.
-----Message d'origine-----
Bonjour,
une table importée, non, mais liée, oui...
tu veux un résultat avec requête SQL ou
un résultat dans une variable ou msgbox vba ?
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Michel wrote:
| Bonjour à vous
|
| Est-ce possible de trouver de quelle Base de Donnée
| provient une table importée ?
|
| Merci d'être là pour nous :-)
-----Message d'origine----- Bonjour, une table importée, non, mais liée, oui... tu veux un résultat avec requête SQL ou un résultat dans une variable ou msgbox vba ?
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Michel wrote: | Bonjour à vous | | Est-ce possible de trouver de quelle Base de Donnée | provient une table importée ? | | Merci d'être là pour nous :-)
.
Daniel Carollo
Bonjour Michel!
JE me permet de repondre pendant qu'Arnaud fait la grasse matinee ;-)
Il suffit de regarder la propriete .Connect de l'objet TableDef.
J'espere que ca vous met sur la piste.
-- Daniel :-)
Computing Technologies International - www.computing-tech.com - We provide solutions...
"Michel" wrote in message news:1b03b01c44f4e$29c164c0$ Dans un msgbox vba si possible.
-----Message d'origine----- Bonjour, une table importée, non, mais liée, oui... tu veux un résultat avec requête SQL ou un résultat dans une variable ou msgbox vba ?
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Bonjour Michel!
JE me permet de repondre pendant qu'Arnaud fait la grasse matinee ;-)
Il suffit de regarder la propriete .Connect de l'objet TableDef.
J'espere que ca vous met sur la piste.
--
Daniel :-)
Computing Technologies International - www.computing-tech.com - We
provide solutions...
"Michel" <anonymous@discussions.microsoft.com> wrote in message
news:1b03b01c44f4e$29c164c0$a401280a@phx.gbl...
Dans un msgbox vba si possible.
-----Message d'origine-----
Bonjour,
une table importée, non, mais liée, oui...
tu veux un résultat avec requête SQL ou
un résultat dans une variable ou msgbox vba ?
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
JE me permet de repondre pendant qu'Arnaud fait la grasse matinee ;-)
Il suffit de regarder la propriete .Connect de l'objet TableDef.
J'espere que ca vous met sur la piste.
-- Daniel :-)
Computing Technologies International - www.computing-tech.com - We provide solutions...
"Michel" wrote in message news:1b03b01c44f4e$29c164c0$ Dans un msgbox vba si possible.
-----Message d'origine----- Bonjour, une table importée, non, mais liée, oui... tu veux un résultat avec requête SQL ou un résultat dans une variable ou msgbox vba ?
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Patmasse
Bonjour, Tu ouvres ta table en modification et tu fais Bouton droit sur le carré en haut à gauche, tu trouves propriété de la table et dedans il y a le champ description ou est ton info.
"Michel" a écrit dans le message news: 1aeb101c44f29$839c0470$ Bonjour à vous
Est-ce possible de trouver de quelle Base de Donnée provient une table importée ?
Merci d'être là pour nous :-)
Bonjour,
Tu ouvres ta table en modification et tu fais Bouton droit sur le carré en
haut à gauche, tu trouves propriété de la table et dedans il y a le champ
description ou est ton info.
"Michel" <anonymous@discussions.microsoft.com> a écrit dans le message news:
1aeb101c44f29$839c0470$a401280a@phx.gbl...
Bonjour à vous
Est-ce possible de trouver de quelle Base de Donnée
provient une table importée ?
Bonjour, Tu ouvres ta table en modification et tu fais Bouton droit sur le carré en haut à gauche, tu trouves propriété de la table et dedans il y a le champ description ou est ton info.
"Michel" a écrit dans le message news: 1aeb101c44f29$839c0470$ Bonjour à vous
Est-ce possible de trouver de quelle Base de Donnée provient une table importée ?
Merci d'être là pour nous :-)
Anor
Bonjour,
Michel wrote: | Dans un msgbox vba si possible. |
Après une longue sieste, et une journée à plancher sur la piste de Daniel, voici un exemple :
tu tapes MsgBox fEmplacementTable("TaTable")
Function fEmplacementTable(LaTable As String) As String On Error GoTo err Dim dbs As dao.Database Dim TblDef As dao.TableDef
Set dbs = CurrentDb() Set TblDef = dbs.TableDefs(LaTable)
If TblDef.Attributes = dbAttachedTable Then fEmplacementTable = Right(TblDef.Connect, Len(TblDef.Connect) _ - InStr(1, TblDef.Connect, "DATABASE=") - 8) Else fEmplacementTable = dbs.name End If err: If err.Number = 3265 Then: fEmplacementTable = "Table : " & LaTable & " non trouvée" dbs.Close Set TblDef = Nothing Set dbs = Nothing End Function
à+ -- Arnaud qui avait un peu d'inspiration sur ce coup là ;-)) -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Bonjour,
Michel wrote:
| Dans un msgbox vba si possible.
|
Après une longue sieste, et une journée à plancher sur la piste de Daniel, voici un exemple :
tu tapes MsgBox fEmplacementTable("TaTable")
Function fEmplacementTable(LaTable As String) As String
On Error GoTo err
Dim dbs As dao.Database
Dim TblDef As dao.TableDef
Set dbs = CurrentDb()
Set TblDef = dbs.TableDefs(LaTable)
If TblDef.Attributes = dbAttachedTable Then
fEmplacementTable = Right(TblDef.Connect, Len(TblDef.Connect) _
- InStr(1, TblDef.Connect, "DATABASE=") - 8)
Else
fEmplacementTable = dbs.name
End If
err:
If err.Number = 3265 Then: fEmplacementTable = "Table : " & LaTable & " non trouvée"
dbs.Close
Set TblDef = Nothing
Set dbs = Nothing
End Function
à+
--
Arnaud qui avait un peu d'inspiration sur ce coup là ;-))
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Après une longue sieste, et une journée à plancher sur la piste de Daniel, voici un exemple :
tu tapes MsgBox fEmplacementTable("TaTable")
Function fEmplacementTable(LaTable As String) As String On Error GoTo err Dim dbs As dao.Database Dim TblDef As dao.TableDef
Set dbs = CurrentDb() Set TblDef = dbs.TableDefs(LaTable)
If TblDef.Attributes = dbAttachedTable Then fEmplacementTable = Right(TblDef.Connect, Len(TblDef.Connect) _ - InStr(1, TblDef.Connect, "DATABASE=") - 8) Else fEmplacementTable = dbs.name End If err: If err.Number = 3265 Then: fEmplacementTable = "Table : " & LaTable & " non trouvée" dbs.Close Set TblDef = Nothing Set dbs = Nothing End Function
à+ -- Arnaud qui avait un peu d'inspiration sur ce coup là ;-)) -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Michel
Bonjour messieur et merci de votre réponse, mais je suis novice en Access.
Je ne sais pas où mettre le code ;-(
Et pour répondre à Daniel, lorsque je clique avec le bouton droit de la souris et choisi les propriétés, j'ai seulement un onglet qui est "Général" et je n'ai aucune information ;-(
Merci de votre patience
-----Message d'origine----- Bonjour,
Michel wrote: | Dans un msgbox vba si possible. |
Après une longue sieste, et une journée à plancher sur la piste de Daniel, voici un exemple :
tu tapes MsgBox fEmplacementTable("TaTable")
Function fEmplacementTable(LaTable As String) As String On Error GoTo err Dim dbs As dao.Database Dim TblDef As dao.TableDef
Set dbs = CurrentDb() Set TblDef = dbs.TableDefs(LaTable)
If TblDef.Attributes = dbAttachedTable Then fEmplacementTable = Right(TblDef.Connect, Len (TblDef.Connect) _
- InStr(1, TblDef.Connect, "DATABASE=") - 8)
Else fEmplacementTable = dbs.name End If err: If err.Number = 3265 Then: fEmplacementTable = "Table : " & LaTable & " non trouvée"
dbs.Close Set TblDef = Nothing Set dbs = Nothing End Function
à+ -- Arnaud qui avait un peu d'inspiration sur ce coup là ;-)) -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
.
Bonjour messieur et merci de votre réponse, mais je suis
novice en Access.
Je ne sais pas où mettre le code ;-(
Et pour répondre à Daniel, lorsque je clique avec le
bouton droit de la souris et choisi les propriétés, j'ai
seulement un onglet qui est "Général" et je n'ai aucune
information ;-(
Merci de votre patience
-----Message d'origine-----
Bonjour,
Michel wrote:
| Dans un msgbox vba si possible.
|
Après une longue sieste, et une journée à plancher sur la
piste de Daniel, voici un exemple :
tu tapes MsgBox fEmplacementTable("TaTable")
Function fEmplacementTable(LaTable As String) As String
On Error GoTo err
Dim dbs As dao.Database
Dim TblDef As dao.TableDef
Set dbs = CurrentDb()
Set TblDef = dbs.TableDefs(LaTable)
If TblDef.Attributes = dbAttachedTable Then
fEmplacementTable = Right(TblDef.Connect, Len
(TblDef.Connect) _
- InStr(1,
TblDef.Connect, "DATABASE=") - 8)
Else
fEmplacementTable = dbs.name
End If
err:
If err.Number = 3265 Then: fEmplacementTable = "Table : "
& LaTable & " non trouvée"
dbs.Close
Set TblDef = Nothing
Set dbs = Nothing
End Function
à+
--
Arnaud qui avait un peu d'inspiration sur ce coup là ;-))
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Bonjour messieur et merci de votre réponse, mais je suis novice en Access.
Je ne sais pas où mettre le code ;-(
Et pour répondre à Daniel, lorsque je clique avec le bouton droit de la souris et choisi les propriétés, j'ai seulement un onglet qui est "Général" et je n'ai aucune information ;-(
Merci de votre patience
-----Message d'origine----- Bonjour,
Michel wrote: | Dans un msgbox vba si possible. |
Après une longue sieste, et une journée à plancher sur la piste de Daniel, voici un exemple :
tu tapes MsgBox fEmplacementTable("TaTable")
Function fEmplacementTable(LaTable As String) As String On Error GoTo err Dim dbs As dao.Database Dim TblDef As dao.TableDef
Set dbs = CurrentDb() Set TblDef = dbs.TableDefs(LaTable)
If TblDef.Attributes = dbAttachedTable Then fEmplacementTable = Right(TblDef.Connect, Len (TblDef.Connect) _
- InStr(1, TblDef.Connect, "DATABASE=") - 8)
Else fEmplacementTable = dbs.name End If err: If err.Number = 3265 Then: fEmplacementTable = "Table : " & LaTable & " non trouvée"
dbs.Close Set TblDef = Nothing Set dbs = Nothing End Function
à+ -- Arnaud qui avait un peu d'inspiration sur ce coup là ;-)) -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
.
Anor
Bonjour, eh bien...tu mets le code qui commence par Function fEmplacementTable(LaTable As String) As String et se termine par End Function
dans un nouveau module que tu nommes BasfEmplacementTable
et le code = fEmplacementTable("TaTable")
à l'endroit où tu veux afficher l'emplacement de ta table.....
à+ -- Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Michel wrote: | Bonjour messieur et merci de votre réponse, mais je suis | novice en Access. | | Je ne sais pas où mettre le code ;-( | | Et pour répondre à Daniel, lorsque je clique avec le | bouton droit de la souris et choisi les propriétés, j'ai | seulement un onglet qui est "Général" et je n'ai aucune | information ;-( | | Merci de votre patience | || -----Message d'origine----- || Bonjour, || || Michel wrote: ||| Dans un msgbox vba si possible. ||| || || Après une longue sieste, et une journée à plancher sur la | piste de Daniel, voici un exemple : || || tu tapes MsgBox fEmplacementTable("TaTable") || || Function fEmplacementTable(LaTable As String) As String || On Error GoTo err || Dim dbs As dao.Database || Dim TblDef As dao.TableDef || || Set dbs = CurrentDb() || Set TblDef = dbs.TableDefs(LaTable) || || If TblDef.Attributes = dbAttachedTable Then || fEmplacementTable = Right(TblDef.Connect, Len (TblDef.Connect) _ || - InStr(1, | TblDef.Connect, "DATABASE=") - 8) || Else || fEmplacementTable = dbs.name || End If || err: || If err.Number = 3265 Then: fEmplacementTable = "Table : " & LaTable || & " non trouvée" dbs.Close || Set TblDef = Nothing || Set dbs = Nothing || End Function || || || à+ || -- || Arnaud qui avait un peu d'inspiration sur ce coup là ;-)) || -------------------------------------------------- || Conseils d'utilisation : http://users.skynet.be/mpfa/ || Site Perso : http://memoaccess.free.fr || /Réponses souhaitées sur ce forum, merci/ || -------------------------------------------------- || || || .
Bonjour,
eh bien...tu mets le code qui commence par
Function fEmplacementTable(LaTable As String) As String
et se termine par
End Function
dans un nouveau module que tu nommes BasfEmplacementTable
et le code = fEmplacementTable("TaTable")
à l'endroit où tu veux afficher l'emplacement de ta table.....
à+
--
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Site Perso : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Michel wrote:
| Bonjour messieur et merci de votre réponse, mais je suis
| novice en Access.
|
| Je ne sais pas où mettre le code ;-(
|
| Et pour répondre à Daniel, lorsque je clique avec le
| bouton droit de la souris et choisi les propriétés, j'ai
| seulement un onglet qui est "Général" et je n'ai aucune
| information ;-(
|
| Merci de votre patience
|
|| -----Message d'origine-----
|| Bonjour,
||
|| Michel wrote:
||| Dans un msgbox vba si possible.
|||
||
|| Après une longue sieste, et une journée à plancher sur la
| piste de Daniel, voici un exemple :
||
|| tu tapes MsgBox fEmplacementTable("TaTable")
||
|| Function fEmplacementTable(LaTable As String) As String
|| On Error GoTo err
|| Dim dbs As dao.Database
|| Dim TblDef As dao.TableDef
||
|| Set dbs = CurrentDb()
|| Set TblDef = dbs.TableDefs(LaTable)
||
|| If TblDef.Attributes = dbAttachedTable Then
|| fEmplacementTable = Right(TblDef.Connect, Len (TblDef.Connect) _
|| - InStr(1,
| TblDef.Connect, "DATABASE=") - 8)
|| Else
|| fEmplacementTable = dbs.name
|| End If
|| err:
|| If err.Number = 3265 Then: fEmplacementTable = "Table : " & LaTable
|| & " non trouvée" dbs.Close
|| Set TblDef = Nothing
|| Set dbs = Nothing
|| End Function
||
||
|| à+
|| --
|| Arnaud qui avait un peu d'inspiration sur ce coup là ;-))
|| --------------------------------------------------
|| Conseils d'utilisation : http://users.skynet.be/mpfa/
|| Site Perso : http://memoaccess.free.fr
|| /Réponses souhaitées sur ce forum, merci/
|| --------------------------------------------------
||
||
|| .
Bonjour, eh bien...tu mets le code qui commence par Function fEmplacementTable(LaTable As String) As String et se termine par End Function
dans un nouveau module que tu nommes BasfEmplacementTable
et le code = fEmplacementTable("TaTable")
à l'endroit où tu veux afficher l'emplacement de ta table.....
à+ -- Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Site Perso : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Michel wrote: | Bonjour messieur et merci de votre réponse, mais je suis | novice en Access. | | Je ne sais pas où mettre le code ;-( | | Et pour répondre à Daniel, lorsque je clique avec le | bouton droit de la souris et choisi les propriétés, j'ai | seulement un onglet qui est "Général" et je n'ai aucune | information ;-( | | Merci de votre patience | || -----Message d'origine----- || Bonjour, || || Michel wrote: ||| Dans un msgbox vba si possible. ||| || || Après une longue sieste, et une journée à plancher sur la | piste de Daniel, voici un exemple : || || tu tapes MsgBox fEmplacementTable("TaTable") || || Function fEmplacementTable(LaTable As String) As String || On Error GoTo err || Dim dbs As dao.Database || Dim TblDef As dao.TableDef || || Set dbs = CurrentDb() || Set TblDef = dbs.TableDefs(LaTable) || || If TblDef.Attributes = dbAttachedTable Then || fEmplacementTable = Right(TblDef.Connect, Len (TblDef.Connect) _ || - InStr(1, | TblDef.Connect, "DATABASE=") - 8) || Else || fEmplacementTable = dbs.name || End If || err: || If err.Number = 3265 Then: fEmplacementTable = "Table : " & LaTable || & " non trouvée" dbs.Close || Set TblDef = Nothing || Set dbs = Nothing || End Function || || || à+ || -- || Arnaud qui avait un peu d'inspiration sur ce coup là ;-)) || -------------------------------------------------- || Conseils d'utilisation : http://users.skynet.be/mpfa/ || Site Perso : http://memoaccess.free.fr || /Réponses souhaitées sur ce forum, merci/ || -------------------------------------------------- || || || .
