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...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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(
"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(
"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(
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(
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(
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(