Discussion :

[Daniel MOREAU]

Bonsoir,

J'ai un message d'erreur lorsque je veux compacter ma base.

la table TempMsysAccessobjets existe déjà

Je ne vois pas ce que cela peut-être.

Avez vous la solution à ce problème

Merci d'avance

Daniel

[Daniel MOREAU]

Re,

En cherchant sur le forum, je me suis inspiré de ce code et j'ai le test.

Effectivement la table existe. Comment faire pour réparer ma base.

Faut-il supprimer cette table et si oui comment s'y prend-t-on, car elle n'apparaît pas dans la liste des tables de ma base. Peut-on la faire apparaître ?

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
18
19
20
21
22
23
24
Private Sub Commande0_Click()
 
Dim db As DAO.Database
Dim tbl As DAO.TableDef
 
' Ouvre la base de données
Set db = CurrentDb
 
Dim strListeTables As String
 
'Parcourt toute la collection TableDefs
For Each tbl In db.TableDefs
 
'exlusion des tables système
If Left(tbl.Name, 4) <> "MSys" Then
strListeTables = strListeTables & tbl.Name & ";"
End If
 
Next
 
ListeTables.RowSourceType = "Liste valeurs" 'A traduire dans la langue
ListeTables.RowSource = strListeTables
 
End Sub

Bonsoir à tous,

Daniel

[Daniel MOREAU]

Re,

Comme on dit la nuit porte conseils, et j'ai trouvé la solution tout seul comme un grand.

En fait il faut tout simplement cocher dans Outils Options l'affichage des objets Masqués et systèmes.

J'ai renomé cette table et fais un test et j'ai donc pu compacter ma base.

J'ai supprimé la table ensuite.

Apparemment tout fonctionne correctement.

Salut

Daniel