Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access Test Table

Test Table

9 réponses
Avatar
Patrice
Bonjour,

Je souhaiterais tester en VBA si une table précise (Ma table des erreurs
entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????

Précision : Je suis en access97 :o(((

Merci

Patrice
Signaler un problème avec ce contenu

9 réponses

Supprimer
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
Avatar
Gafish
Patrice wrote:
Bonjour,


Bonjour,

Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud

Avatar
Patrice
Super merci Arnaud
Je teste dès demain et te tiens au courant...

Patrice


"Gafish" a écrit dans le message de
news:%
Patrice wrote:
Bonjour,


Bonjour,

Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud






Avatar
Eric
Bonjour,

Il te faut encadrer T_Etats de guillements, sinon VBA prend cette info
pour une variable. Donc :
If TableExist("T_Etats") = True
...
End If

Bonjour,

Ya quequ'chose qui m'échappe :o(((
G recopié le module intégralement de Arnaud
Access me renvoie : variable non définie sur T_Etats...(T_Etats étant le nom
de ma table)

If TableExist(T_Etats) = True Then
TexteEssai = "La table existe"
Else
TexteEssai = "La table n'existe pas"
End If

Merci de votre aide

Patrice

"Gafish" a écrit dans le message de
news:%

Patrice wrote:

Bonjour,


Bonjour,


Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud









--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
Patrice
Bonjour,

Ya quequ'chose qui m'échappe :o(((
G recopié le module intégralement de Arnaud
Access me renvoie : variable non définie sur T_Etats...(T_Etats étant le nom
de ma table)

If TableExist(T_Etats) = True Then
TexteEssai = "La table existe"
Else
TexteEssai = "La table n'existe pas"
End If

Merci de votre aide

Patrice

"Gafish" a écrit dans le message de
news:%
Patrice wrote:
Bonjour,


Bonjour,

Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud






Avatar
Patrice
Merci Eric, çà fonctionne pour cette étape, mais maintenant, il m'envoie
promener avec "variable non définie" dans le module de Arnaud sur tdf :o(((

'-------------------------------------------------------------
Option Compare Database
Option Explicit

Public Function TableExist(strTable As String) As Boolean

TableExist = False
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strTable Then TableExist = True: Exit For
Next

End Function
'-------------------------------------------------------------


"Eric" a écrit dans le message de
news:
Bonjour,

Il te faut encadrer T_Etats de guillements, sinon VBA prend cette info
pour une variable. Donc :
If TableExist("T_Etats") = True
...
End If

Bonjour,

Ya quequ'chose qui m'échappe :o(((
G recopié le module intégralement de Arnaud
Access me renvoie : variable non définie sur T_Etats...(T_Etats étant le
nom


de ma table)

If TableExist(T_Etats) = True Then
TexteEssai = "La table existe"
Else
TexteEssai = "La table n'existe pas"
End If

Merci de votre aide

Patrice

"Gafish" a écrit dans le message de
news:%

Patrice wrote:

Bonjour,


Bonjour,


Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud









--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
Eric
re,

mets sous Public Function TableExist(strTable As String) As Boolean
Dim tdf as TableDef



Merci Eric, çà fonctionne pour cette étape, mais maintenant, il m'envoie
promener avec "variable non définie" dans le module de Arnaud sur tdf :o(((

'-------------------------------------------------------------
Option Compare Database
Option Explicit

Public Function TableExist(strTable As String) As Boolean

TableExist = False
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strTable Then TableExist = True: Exit For
Next

End Function
'-------------------------------------------------------------


"Eric" a écrit dans le message de
news:

Bonjour,

Il te faut encadrer T_Etats de guillements, sinon VBA prend cette info
pour une variable. Donc :
If TableExist("T_Etats") = True
...
End If


Bonjour,

Ya quequ'chose qui m'échappe :o(((
G recopié le module intégralement de Arnaud
Access me renvoie : variable non définie sur T_Etats...(T_Etats étant le



nom

de ma table)

If TableExist(T_Etats) = True Then
TexteEssai = "La table existe"
Else
TexteEssai = "La table n'existe pas"
End If

Merci de votre aide

Patrice

"Gafish" a écrit dans le message de
news:%


Patrice wrote:


Bonjour,


Bonjour,



Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud







--

A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr





Avatar
Eric
re,

Juste pour info, tu avais au début de ton module Option Explicit qui
implique la déclaration de toutes les variables, ce qui est une très
bonne chose.
Dans ta boucle For each tdf in CurrentDb.TableDefs
la variable tdf n'étant pas déclarée ça plantait.

Voila

Nickel chrome
Merci

Patrice


"Eric" a écrit dans le message de
news:uRPv$

re,

mets sous Public Function TableExist(strTable As String) As Boolean
Dim tdf as TableDef




Merci Eric, çà fonctionne pour cette étape, mais maintenant, il m'envoie
promener avec "variable non définie" dans le module de Arnaud sur tdf



:o(((

'-------------------------------------------------------------
Option Compare Database
Option Explicit

Public Function TableExist(strTable As String) As Boolean

TableExist = False
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strTable Then TableExist = True: Exit For
Next

End Function
'-------------------------------------------------------------


"Eric" a écrit dans le message de
news:


Bonjour,

Il te faut encadrer T_Etats de guillements, sinon VBA prend cette info
pour une variable. Donc :
If TableExist("T_Etats") = True
...
End If



Bonjour,

Ya quequ'chose qui m'échappe :o(((
G recopié le module intégralement de Arnaud
Access me renvoie : variable non définie sur T_Etats...(T_Etats étant





le

nom


de ma table)

If TableExist(T_Etats) = True Then
TexteEssai = "La table existe"
Else
TexteEssai = "La table n'existe pas"
End If

Merci de votre aide

Patrice

"Gafish" a écrit dans le message de
news:%



Patrice wrote:



Bonjour,


Bonjour,




Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud







--

A+
Eric
http://www.mpfa.info/
Archives :




http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



--

A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr






--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr







Avatar
Patrice
Nickel chrome
Merci

Patrice


"Eric" a écrit dans le message de
news:uRPv$
re,

mets sous Public Function TableExist(strTable As String) As Boolean
Dim tdf as TableDef



Merci Eric, çà fonctionne pour cette étape, mais maintenant, il m'envoie
promener avec "variable non définie" dans le module de Arnaud sur tdf
:o(((



'-------------------------------------------------------------
Option Compare Database
Option Explicit

Public Function TableExist(strTable As String) As Boolean

TableExist = False
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strTable Then TableExist = True: Exit For
Next

End Function
'-------------------------------------------------------------


"Eric" a écrit dans le message de
news:

Bonjour,

Il te faut encadrer T_Etats de guillements, sinon VBA prend cette info
pour une variable. Donc :
If TableExist("T_Etats") = True
...
End If


Bonjour,

Ya quequ'chose qui m'échappe :o(((
G recopié le module intégralement de Arnaud
Access me renvoie : variable non définie sur T_Etats...(T_Etats étant
le





nom

de ma table)

If TableExist(T_Etats) = True Then
TexteEssai = "La table existe"
Else
TexteEssai = "La table n'existe pas"
End If

Merci de votre aide

Patrice

"Gafish" a écrit dans le message de
news:%


Patrice wrote:


Bonjour,


Bonjour,



Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud







--

A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr








--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr







Avatar
Patrice
Ok, je comprends mieux maintenant...

Merci

Patrice


"Eric" a écrit dans le message de
news:%
re,

Juste pour info, tu avais au début de ton module Option Explicit qui
implique la déclaration de toutes les variables, ce qui est une très
bonne chose.
Dans ta boucle For each tdf in CurrentDb.TableDefs
la variable tdf n'étant pas déclarée ça plantait.

Voila

Nickel chrome
Merci

Patrice


"Eric" a écrit dans le message de
news:uRPv$

re,

mets sous Public Function TableExist(strTable As String) As Boolean
Dim tdf as TableDef




Merci Eric, çà fonctionne pour cette étape, mais maintenant, il
m'envoie




promener avec "variable non définie" dans le module de Arnaud sur tdf



:o(((

'-------------------------------------------------------------
Option Compare Database
Option Explicit

Public Function TableExist(strTable As String) As Boolean

TableExist = False
For Each tdf In CurrentDb.TableDefs
If tdf.Name = strTable Then TableExist = True: Exit For
Next

End Function
'-------------------------------------------------------------


"Eric" a écrit dans le message de
news:


Bonjour,

Il te faut encadrer T_Etats de guillements, sinon VBA prend cette info
pour une variable. Donc :
If TableExist("T_Etats") = True
...
End If



Bonjour,

Ya quequ'chose qui m'échappe :o(((
G recopié le module intégralement de Arnaud
Access me renvoie : variable non définie sur T_Etats...(T_Etats étant





le

nom


de ma table)

If TableExist(T_Etats) = True Then
TexteEssai = "La table existe"
Else
TexteEssai = "La table n'existe pas"
End If

Merci de votre aide

Patrice

"Gafish" a écrit dans le message de
news:%



Patrice wrote:



Bonjour,


Bonjour,




Je souhaiterais tester en VBA si une table précise (Ma table des
erreurs entre autre) existe ou pas dans ma base.
Est-ce que quelqu'un a la formule SVP ????


Une petite fonction pour cela :
http://access.jessy.free.fr/htm/Table/TableExist.htm

Tu l'appeles ensuite comme une fonction Access classique

Arnaud







--

A+
Eric
http://www.mpfa.info/
Archives :




http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



--

A+
Eric
http://www.mpfa.info/
Archives :
http://groups.google.fr/group/microsoft.public.fr.access?hl=fr








--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr