OVH Cloud OVH Cloud

Merci Gael, mais,(suite erreur 3197)

3 réponses
Avatar
Jonathan Dufour
Merci, mais ca fesais longtemps que je savais que c'=E9tais=20
cette table qui =E9tait corrompu, parce que quand j'essayais=20
de modifier la donn=E9e que je voulais ca ne marchais pas. =20
Mais bon, j'ai essay=E9 de l,exporter dans un fichier Excel,=20
et ca me dis que c'est impossible de charger la structure=20
parce que un autre utilisateur a ouvert la table

3 réponses

Avatar
Gaël Schmitt
Bonjour,

Je suis au regret de t'annoncer que cette table est trop corrompu pour être
réparer par Access ou jetcomp.
Je te conseille de recherche Access recovery ils fournissent gratuitement
une version d'évaluation qui te permettra de savoir si cet utilitaire
réparera ta base.
Sinon tu as les sites comme www.pksolutions.com qui te répareront ta base.

Désolé encore de ne pas avoir de solution miracle :(

Gael.
"Jonathan Dufour" a écrit dans le message de
news:05ab01c38d9c$5e24f200$
Merci, mais ca fesais longtemps que je savais que c'étais
cette table qui était corrompu, parce que quand j'essayais
de modifier la donnée que je voulais ca ne marchais pas.
Mais bon, j'ai essayé de l,exporter dans un fichier Excel,
et ca me dis que c'est impossible de charger la structure
parce que un autre utilisateur a ouvert la table
Avatar
Jessy SEMPERE
Bonjour

a tout hazard, essais avec le code qui suit, en lançant la fonction
RestoreExe()
Par contre fait une sauvegarde de ta base avant d'essayer, je ne
promets rien mais ça ne coûte pas grand chose d'essayer...
************************************************
Function RestoreEXE()
RestoreTableFailed "TaTable"
End Function

Function RestoreTableFailed(strTable As String)
Application.SaveAsText acTable, strTable, CurDir & strTable & ".txt"
DoCmd.DeleteObject acTable, strTable
Application.LoadFromText acTable, strTable, CurDir & strTable & ".txt"
Kill CurDir & strTable & ".txt"

If MsgBox("Voulez-vous essayer d'ouvrir la table : " & strTable, _
vbYesNo) = vbYes Then
DoCmd.OpenTable strTable, acNormal
End If
End Function
************************************************

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Gaël Schmitt" a écrit dans le message news:
#aZb#$
Bonjour,

Je suis au regret de t'annoncer que cette table est trop corrompu pour
être

réparer par Access ou jetcomp.
Je te conseille de recherche Access recovery ils fournissent gratuitement
une version d'évaluation qui te permettra de savoir si cet utilitaire
réparera ta base.
Sinon tu as les sites comme www.pksolutions.com qui te répareront ta base.

Désolé encore de ne pas avoir de solution miracle :(

Gael.
"Jonathan Dufour" a écrit dans le message de
news:05ab01c38d9c$5e24f200$
Merci, mais ca fesais longtemps que je savais que c'étais
cette table qui était corrompu, parce que quand j'essayais
de modifier la donnée que je voulais ca ne marchais pas.
Mais bon, j'ai essayé de l,exporter dans un fichier Excel,
et ca me dis que c'est impossible de charger la structure
parce que un autre utilisateur a ouvert la table




Avatar
Crevecoeur Jérôme
Une autre solution est de copier par du code ligne à ligne champ par champ
les données dans une nouvelle table.

Si elle n'est pas trop corrompue, on récupére ses petits !

Cordialement
--
----------------------------------------------------------------------------
--------------------
Crévecoeur Jérôme

ACS INFORMATIQUE
122,rue du Château d'orgemont
49000 ANGERS
Tel: 02 41 68 42 36 Fax: 02 41 68 42 48
----------------------------------------------------------------------------
---------------------
"Jessy SEMPERE" a écrit dans le message de
news:bm13p8$pk6$
Bonjour

a tout hazard, essais avec le code qui suit, en lançant la fonction
RestoreExe()
Par contre fait une sauvegarde de ta base avant d'essayer, je ne
promets rien mais ça ne coûte pas grand chose d'essayer...
************************************************
Function RestoreEXE()
RestoreTableFailed "TaTable"
End Function

Function RestoreTableFailed(strTable As String)
Application.SaveAsText acTable, strTable, CurDir & strTable & ".txt"
DoCmd.DeleteObject acTable, strTable
Application.LoadFromText acTable, strTable, CurDir & strTable & ".txt"
Kill CurDir & strTable & ".txt"

If MsgBox("Voulez-vous essayer d'ouvrir la table : " & strTable, _
vbYesNo) = vbYes Then
DoCmd.OpenTable strTable, acNormal
End If
End Function
************************************************

@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Gaël Schmitt" a écrit dans le message news:
#aZb#$
Bonjour,

Je suis au regret de t'annoncer que cette table est trop corrompu pour
être

réparer par Access ou jetcomp.
Je te conseille de recherche Access recovery ils fournissent
gratuitement


une version d'évaluation qui te permettra de savoir si cet utilitaire
réparera ta base.
Sinon tu as les sites comme www.pksolutions.com qui te répareront ta
base.



Désolé encore de ne pas avoir de solution miracle :(

Gael.
"Jonathan Dufour" a écrit dans le message de
news:05ab01c38d9c$5e24f200$
Merci, mais ca fesais longtemps que je savais que c'étais
cette table qui était corrompu, parce que quand j'essayais
de modifier la donnée que je voulais ca ne marchais pas.
Mais bon, j'ai essayé de l,exporter dans un fichier Excel,
et ca me dis que c'est impossible de charger la structure
parce que un autre utilisateur a ouvert la table