OVH Cloud OVH Cloud

Creation de liens sous Ms-Access 2003 contre 2002

4 réponses
Avatar
Luc de Kin
Bonjour,

Je viens d'upgrader 2002 vers 2003. Jusque la, parfait, meme que certains
problemes apparus sous 2002 et pour lesquels j'avais pose quelques questions
sont resolus. Ben oui !

Par contre pour l'instant un subsiste (en esperant que ce soit le seul),
voici :

- Sur la base frontale de l'appli, je permets a l'utilisateur de choisir a
l'aide d'un combo, la base de donnees sur laquelle il veut travailler. C'est
une facon de rendre une appli "multi dossiers".
- de deux choses l'une, ou il ne change rien... et rien ne se passe, ou il
change le choix et hop... effacement des liens existants et recreation des
liens avec l'autre dossier.
- Tout cela fonctionne tres bien MAIS, alors qu'avec MSA2002, tout cela
prenait quelques secondes (3/4), avec MSA2003, cela prend une eternite (plus
d'une minute, je n'ai jamais crhonometre) !

Quelqu'un a-t-il une idee de ce qui se passe et, si oui, comment remedier a
cela ?
Cela dit, ce n'est pas fondamentalement genant mais...

Bon week-end a tous,

Luc

4 réponses

Avatar
3stone
Salut,

"Luc de Kin"
| - Tout cela fonctionne tres bien MAIS, alors qu'avec MSA2002, tout cela
| prenait quelques secondes (3/4), avec MSA2003, cela prend une eternite (plus
| d'une minute, je n'ai jamais crhonometre) !
|
| Quelqu'un a-t-il une idee de ce qui se passe et, si oui, comment remedier a
| cela ?


Le jeux consiste à deviner comment tu fais ? ;-)

Regarde si cette méthode fonctionne mieux :
http://www.3stone.be/access/articles.php?lng=fr&pg(


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Luc de Kin
BONJOUR 3STONE,

Merci d'essayer de me donner une piste !
Bon week-end.

Luc


Voici in extenso le code utilise :

'DELETE TABLES LIEES
Me.lblProgression.Caption = "Effacement des anciens liens"
Me.Form.Repaint

SQLstring = "SELECT MSysObjects.Name FROM MSysObjects WHERE
(((MSysObjects.Type)=6));" ' TOUTES LES TABLES SE TROUVANT DS ACCESS
Set DTABLE = DBASE.OpenRecordset(SQLstring, dbOpenDynaset)
DTABLE.MoveFirst
For i = 1 To M
T(i) = DTABLE!Name
If Left(T(i), 1) = "R" Or Left(T(i), 1) = "O" Or Left(T(i),
1) = "F" Or Left(T(i), 1) = "D" Then DoCmd.DeleteObject acTable, T(i) '
SELECTION DES TABLES DE L'APPLI QUI COMMENCENT TOUTES PAR CES LETTRES
Me.PB.Value = i ' PROGRESS BAR
DTABLE.MoveNext
Next i
DTABLE.Close

'RECREATION DES LIENS AVEC TABLES PRINCIPALES
Me.PB.Value = 0 ' Progress bar
Me.lblProgression.Caption = "Création des nouveaux liens"
Me.Form.Repaint

For i = 1 To M
If Left(T(i), 1) = "R" Or Left(T(i), 1) = "O" Or Left(T(i),
1) = "F" Or Left(T(i), 1) = "D" Then ' Recherche uniquement des tables dui
correspondent a l'appli
Select Case Forms![000_MAIN_MENU]![SF]![ChoixBDactive] '
ChoixDBActive=Combo du choix de l'eventuelle new DB
Case 4 ' Case fonction du choix of course
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase1 & "APPPLI_T1.MDB", acTable, T(i), T(i)
Case 5
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase2 & "APPPLI_T2.MDB", acTable, T(i), T(i)
Case 6
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase3 & "APPPLI_T3.MDB", acTable, T(i), T(i)
Case 7
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase4 & "APPPLI_T4.MDB", acTable, T(i), T(i)
Case 8
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase5 & "APPLI_T5.MDB", acTable, T(i), T(i)
Case 9
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase6 & "APPLI_T6.MDB", acTable, T(i), T(i)
Case 10
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase7 & "APPLI_T7.MDB", acTable, T(i), T(i)
Case 11
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase8 & "APPLI_T8.MDB", acTable, T(i), T(i)
Case 12
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase9 & "APPLI_T9.MDB", acTable, T(i), T(i)
Case 13
DoCmd.TransferDatabase acLink, "MICROSOFT
ACCESS", vPATHbase10 & "APPLI_T10.MDB", acTable, T(i), T(i)
End Select
End If
Me.PB.Value = i
Next i
Forms![000_MAIN_MENU]![lblBaseActive].Caption =
Forms![000_MAIN_MENU]![SF]![ChoixBDactive].Column(1) ' AFFICHAGE NOM BD SUR
MENU PRINCIPAL



Salut,

"Luc de Kin"
| - Tout cela fonctionne tres bien MAIS, alors qu'avec MSA2002, tout cela
| prenait quelques secondes (3/4), avec MSA2003, cela prend une eternite (plus
| d'une minute, je n'ai jamais crhonometre) !
|
| Quelqu'un a-t-il une idee de ce qui se passe et, si oui, comment remedier a
| cela ?


Le jeux consiste à deviner comment tu fais ? ;-)

Regarde si cette méthode fonctionne mieux :
http://www.3stone.be/access/articles.php?lng=fr&pg(


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/




Avatar
3stone
Salut,

"Luc de Kin"
| Voici in extenso le code utilise :
[...]


Tu as mis un point d'arret pour voir et suivre ou cela traîne ?


Essaies aussi de décocher dans les options, les "corrections automatiques"
et autres "suivi informations correction automatique"


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Luc de Kin
Re...salut

Non, je t'avoue que j'ai pose la question sans avoir bcp investigue.
Je vais faire tout ca...

A part ca, tu ne vois rien de special dans le code >
Merci
@+
Luc



Salut,

"Luc de Kin"
| Voici in extenso le code utilise :
[...]


Tu as mis un point d'arret pour voir et suivre ou cela traîne ?


Essaies aussi de décocher dans les options, les "corrections automatiques"
et autres "suivi informations correction automatique"


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/