[VBA] Suppression d'un objet.

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : [VBA] Suppression d'un objet.

4get9

C'est clair !

Bonjour,

j'ai une base Access et je voudrais supprimer une table.
Le souci c'est qu'elle n'existe pas forcément, et donc si je fait un DeleteObject je me tape une erreur.
Je dois pouvoir passer ça en gérant le code erreur, mais ce n'est pas très propre.

Y a t il une solution pour forcer la suppression, ou pour tester l'existence d'un objet ?

Merci

Publicité

jpcheck

Pioupiou

passe par la requete
"DROP TABLE Tableàdégager"

tu peux utiliser ce bout de code pour tester si ta table existe:

Code :

Function fExistTable(strTableName As String) As Boolean
Dim i As Integer
fExistTable = False
CurrentDb.TableDefs.Refresh
For i = 0 To CurrentDb.TableDefs.Count - 1
If strTableName = CurrentDb.TableDefs(i).Name Then
'Table Exists
fExistTable = True
Exit For
End If
Next i
End Function

au final, tu mets donc ceci :

Code :

if fExistTable("Tableadégager" ) then
DoCmd.RunSQL "DROP TABLE Tableàdégager"
end if

Message cité 1 fois

4get9

C'est clair !

jpcheck a écrit :

Code :

Function fExistTable(strTableName As String) As Boolean
Dim i As Integer
fExistTable = False
CurrentDb.TableDefs.Refresh
For i = 0 To CurrentDb.TableDefs.Count - 1
If strTableName = CurrentDb.TableDefs(i).Name Then
'Table Exists
fExistTable = True
Exit For
End If
Next i
End Function

Merci beaucoup :jap:

tegu

Une gestion d'erreur adaptée peut aider quand même

Function fExistTable(strTableName As String) As Boolean
Dim tbdef As TableDef

On Error Resume Next
Set tbdef = CurrentDb.TableDefs(strTableName)
fExistTable = Not tbdef Is Nothing
Set tbdef = Nothing

End Function

J'ai une préférence pour cette version, mais au final ça ne doit pas changer grand chose.

4get9

C'est clair !

Effectivement une gestion d'erreur au sein d'une fouction qui ne ferait que tester son existence fonctionne.
D'ailleurs maintenant je me rappelle que j'avais utilisé ce principe (fonction avec gestion d'erreur sans conséquence) il y a qq années, et il me semble bien que c'était également pour droper des tables :lol: j'me fait vieux ...

Merci les gars en tous cas :jap:

FORUM HardWare.fr

Programmation

VB/VBA/VBS

[VBA] Suppression d'un objet.

Sujets relatifs
Cherche lexique des mots clé VBA	Questions de "base" ambigues sur la programmation objet
clonage d'un objet recupere a partir d'un fichier XML	Excel - VBA - Copier du texte au double clic [résolu]
Modifier l'objet source d'un sous état avec du code en VBA	(RESOLU) diminution du temps d'execution [VBA EXCEL]
extrait des objet a partir d'une histogramme d'une image	algorithme de combinaison VBA
Afficher un vecteur avec VBA	Objet flash et mise en page !
Plus de sujets relatifs à : [VBA] Suppression d'un objet.

Page générée en 0.048 secondes