| auteur : Cafeine | Function xDropRelations ()
Dim Rel As Relation
For Each Rel In CurrentDb. Relations
Debug. Print " effacement de la relation [ " & Rel. Table & " ]![ " & Rel. Fields (0 ). name & " ] -=-> _
& " [ " & Rel. ForeignTable & " ]![ " & Rel. Fields (0 ). ForeignName & " ] "
CurrentDb. Relations . Delete Rel. name
Next Rel
End Function
|
|
| auteur : Maxence HUBICHE |
CurrentDb. Relations . Delete " NomTableUnNomTableDeux "
|
|
| auteurs : Gaël Donat, Cafeine | Cette table se nomme toujours : <nom de ton fichier sans l'extension>_ImportErrors
Il suffit de vérifier l'existence de la table, puis, si elle existe de faire :
DoCmd. DeleteObject acTable, fichier & " _ImportErrors "
|
ou
CurrentDB. TableDefs . Delete fichier & " _ImportErrors "
|
En complément, voici comment puger les tables d'erreurs de la base :
Fonctionne sur toutes les versions d'Access depuis Access 97.
Function PurgeErreurs ()
Dim tbl As TableDef
For Each tbl In CurrentDb. TableDefs
If InStr (tbl. Name , " importerrors " ) Then
Debug. Print " Effacement de " & tbl. Name
CurrentDb. TableDefs . Delete tbl. Name
End If
Next tbl
Set tbl = Nothing
End Function
|
|
| auteur : Team Access | Function TrouverCP (nom_table As String ) As String
Dim bds As Database, dft As TableDef, chp As Field
Dim idx As Index
Set bds = CurrentDb
Set dft = bds. TableDefs (nom_table)
For Each idx In dft. Indexes
If idx. Primary Then
For Each chp In idx. Fields
TrouverCP = chp. Name
Set bds = Nothing
Exit Function
Next chp
End If
Next idx
Set bds = Nothing
TrouverCP = " null "
End Function
|
|
Consultez les autres F.A.Q's
Les sources présentés sur cette pages sont libre de droits,
et vous pouvez les utiliser à votre convenance. Par contre cette page de présentation de ces sources constitue une oeuvre intellectuelle protégée par les droits d'auteurs.
Copyright ©2004
Developpez LLC. Tout droits réservés Developpez LLC.
Aucune reproduction, même partielle, ne peut être faite de ce site et de
l'ensemble de son contenu : textes, documents et images sans l'autorisation
expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à 3 ans
de prison et jusqu'à 300 000 E de dommages et intérets.
Cette page est déposée à la SACD.
|