Access Test presence table puis suppr
Résolu
Rhyton le boyar
-
Rhyton le boyar -
Rhyton le boyar -
Bonjour,
Tout d'abord je suis novice en VB et en Bdd tout cours,
Je cherche a tester la presence d'une table puis a la supprimer si elle existe.
J'ai trouve sur la toile la fonction ci-dessous puis j'ai essayé de programmer la suite (le Private sub Command29)
Cela marche quand il y a bien la table existe bien mais pas quand elle n'existe pas, je me trouve face à un runtime error 7874 ou 424.
Si quelqu'un peut me brieffer sur mes erreurs et m'aider à mieux comprendre je lui en serai reconnaissant.
Merci d'avance,
Rhyton
Public Function cnxTable(ByVal strTable As String) As Boolean
Dim strSQL As String
strSQL = "Select * from " & strTable
On Error GoTo errors
Db.Execute (strSQL)
errors:
If err = 3078 Then
cnxTable = False
Else
cnxTable = True
End If
End Function
Private Sub Command29_Click()
If cnxTable("SUPPLIERS$_ImportErrors") = True Then DoCmd.RunMacro "M_DeleteImporterror", 1 Else Resume End_IF
End_IF: End Sub
Access 2002
Tout d'abord je suis novice en VB et en Bdd tout cours,
Je cherche a tester la presence d'une table puis a la supprimer si elle existe.
J'ai trouve sur la toile la fonction ci-dessous puis j'ai essayé de programmer la suite (le Private sub Command29)
Cela marche quand il y a bien la table existe bien mais pas quand elle n'existe pas, je me trouve face à un runtime error 7874 ou 424.
Si quelqu'un peut me brieffer sur mes erreurs et m'aider à mieux comprendre je lui en serai reconnaissant.
Merci d'avance,
Rhyton
Public Function cnxTable(ByVal strTable As String) As Boolean
Dim strSQL As String
strSQL = "Select * from " & strTable
On Error GoTo errors
Db.Execute (strSQL)
errors:
If err = 3078 Then
cnxTable = False
Else
cnxTable = True
End If
End Function
Private Sub Command29_Click()
If cnxTable("SUPPLIERS$_ImportErrors") = True Then DoCmd.RunMacro "M_DeleteImporterror", 1 Else Resume End_IF
End_IF: End Sub
Access 2002
A voir également:
- Access Test presence table puis suppr
- Test performance pc - Guide
- Table ascii - Guide
- Test disque dur - Télécharger - Informations & Diagnostic
- Table des matières word - Guide
- Test steam deck oled - Guide