Discussion :

[simo22]

Bonjour

J'aurais besoin de votre aide, je voulais faire un teste pour savoir si ma table X est disponible dans ma base Access, et j’ai trouvé un code que j’ai modifié pour l’adapter à mon projet et j’ai le code ci dessous

--------------------------------------------------------------

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
Public Function TableExist(strTable As String) As Boolean
 
 
    Dim db As DAO.Database
 
       Set db = DBEngine.OpenDatabase("myBaseAccess.mdb")
 
 
 
        TableExist = False
        For Each tdf In db.TableDefs
            If tdf.Name = strTable Then TableExist = True: Exit For
        Next
   db.Close
 
End Function

-----------------------------------------------

J’ai fais une présentation vendredi, et tous fonctionne correctement, et aujourd’hui j’ai un message d’erreur "erreur d'execution '3001' argument non Valide." sur la ligne « For Each tdf In db.TableDefs » et je n’arrive pas à trouver une solution

[james68]

Code :

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

1
2
 
Dim TDf As DAO.TableDef

la definition de Tdf ??

[simo22]

bonjour
merci pour ton aide, j'ai ajouté la ligne dans on code et j'ai toujours le même problème, le meme message d'erreur, et qd je positionne la sourie sur la variable je l'information suivant " tdf = Nothing"

Code :

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

1
2
 
Dim TDf As DAO.TableDef

la definition de Tdf ??

[james68]

as tu dimensionné StrTable ?
si je fais tourner ton code modifié chez moi ca fonctionne..

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
17
 
Public Function TableExist() As Boolean
 
Dim strtable As String
Dim db As DAO.Database
Dim Tdf As DAO.TableDef
Set db = CurrentDb
 
 
 
'TableExist = False
For Each Tdf In db.TableDefs
If Tdf.Name = strtable Then TableExist = True: Exit For
Next
db.Close
 
End Function

[simo22]

Je ne comprends pas ce que tu veux dire par : "as tu dimensionné StrTable ?"

et je viens de faire le test et j'ai toujours le même problème, est-il possible que une MAJ de Windows puisse impacter le programme ?

[james68]

Copie le code tel qu'il est ci dessus.
mets lui un autre nom de fonction.
mets un point d'arret sur une des premiere ligne.
lance en mode pas a pas ( play et apres F8 )
qu'est ce que ca dit ?
++

[simo22]

je partage avec toi le partie debogage

je ne comprend pas ce que tu veux dire par :"as tu dimensionné StrTable ?"

et je viens de faire le teste et j'ai toujours le même problème, est il possible que une MAJ de Windows puisse impacte le programme ?

[james68]

et au niveau Référence tout est OK ?

[james68]

[james68]

petite precision , je suis encore sous 2000 dans cet environement...

[simo22]

et au niveau Référence tout est OK ?

le probleme est sur le ligne For Each
je ne n'ai pas de solution, et le probleme et que vendredi le meme code fonctionné correctement, la sur modification que j'ai apporte aujourd'hui est sur la requette Access j'ai modifie Compte par Somme pour le regroupement de resultat

[james68]

je viens de faire le test chez moi avec DBEngine.OpenDatabase sur une base distante
ca fonctionne parfaitement.

[james68]

Si les references sont Ok essaie de voir en compilant dans prog.
++

[simo22]

oui effectivement, jusqua Vendredi sa marché, et j'ai mm fais une demo à la direction et c bons aujourd'hui je devais passer a la phase deploiment et finalisation, et la je me retrouve avec le probleme, j'ai mm pas touche au code depuis Vendredi. et j'ai verifier la biblo (Microsoft DAO 3.6 ...) elle n'ai pas cocher et qd je la coche j'ai un message

Si les references sont Ok essaie de voir en compilant dans prog.
++

[Invité]

Bonjour

N'as-tu pas déclaré ta fonction 2 fois dans, où ta variable Tdf en serait pas déclaré en public autre part ?

Philippe

[simo22]

non pas de double déclaration, je viens de relire tous le code pour vérification

Bonjour

N'as-tu pas déclaré ta fonction 2 fois dans, où ta variable Tdf en serait pas déclaré en public autre part ?

Philippe

[marot_r]

Bonjour,

juste une idee, essaye de remonter la reference de DOA au dessus de ADO (ActiveX Data Object).
Et si tu ne te sers pas d'ADO, decohe la carement.

Aussi tu voudras peut-etre repartir d'une BD vierge et y importer tous les elements.
Ca aide generalement avec le bugs etranges.

A+