Discussion :

[Pierren]

bonjour,
Je lance une macro "supprimer objet", une table, que dois-je mettre dans les conditions pour que si elle n'existe pas, cela ne bloque pas la macro.

Merci à vous, encore...

[Sonic]

Crée toi une fonction qui retourne Vrai si la table existe et Faux sinon, ca te permet de faire ton test dans la macro :

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 ExistTable(ByVal strTabl As String) As Boolean
'ExistTable : fonction qui retourne un booleen indiquant si la table existe
'précondition : - strTabl : nom de la table pour laquelle on veut savoir si elle existe
'postcondition : retourne Vrai si la table existe, faux sinon
Dim Str As String
On Error GoTo err01
 
    Str = CurrentDb.TableDefs(strTabl).Name
    ExistTable = True
    Exit Function
err01:
    Select Case Err.Number
        Case 3265
            ExistTable = False
    End Select
End Function

[Pierren]

bonjour,
A quoi dois- attacher cette fonction, à un champs quelconque d'un formulaire par exemple ?
Merci à toi

Crée toi une fonction qui retourne Vrai si la table existe et Faux sinon, ca te permet de faire ton test dans la macro :

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 ExistTable(ByVal strTabl As String) As Boolean
'ExistTable : fonction qui retourne un booleen indiquant si la table existe
'précondition : - strTabl : nom de la table pour laquelle on veut savoir si elle existe
'postcondition : retourne Vrai si la table existe, faux sinon
Dim Str As String
On Error GoTo err01
 
    Str = CurrentDb.TableDefs(strTabl).Name
    ExistTable = True
    Exit Function
err01:
    Select Case Err.Number
        Case 3265
            ExistTable = False
    End Select
End Function

[Sonic]

Le plus simple c'est que tu crées ta propre fonction

Code :

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

1
2
3
4
5
Public Function SupprimerTable()
if ExistTable("MyTable") then
   docmd.runSQL "DROP TABLE MyTable"
end if
end Function

Tu crée une macro "ExécuterCode" et tu mets en paramètre de cette macro la fonction "SupprimerTable"

[random]

tant qu'a faire d'écrire une fonction pas besoin de tester en générant une erreur si la table n'existe pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
function suptable(sonnom as string) as boolean
dim mabase as dao.database
set mabase=currentdb()
on error goto pastable
mabase.TableDefs.Delete (sonnom)
mabase.TableDefs.Refresh
suptable=true
exit function
:pastable
suptable=false
end function