Bonjour,
Tout d'abord mes meilleurs voeux pour 2007.
J'ai une macro sous Access97 qui est hyper longue : près de 2heures de
calcul sur 78000 enregistrements
UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'")
N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant
sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre
moyen ???
Merci par avance.
--
Pierre
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
ze Titi
Bonjour larnoum et meilleurs voeux à toi aussi !
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le code suivant devrait donner le même résultat:
dim rs as DAO.Recordset Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset) rs.MoveLast rs.MoveFirst While not rs.EOF rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'") rs.Update rs.MoveNext Wend rs.Close set rs=Nothing
Dans ton message
Bonjour, Tout d'abord mes meilleurs voeux pour 2007. J'ai une macro sous Access97 qui est hyper longue : près de 2heures de calcul sur 78000 enregistrements UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'") N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre moyen ??? Merci par avance.
-- Voilou ! Cordialement,
Ze Titi
Bonjour larnoum et meilleurs voeux à toi aussi !
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le
code suivant devrait donner le même résultat:
dim rs as DAO.Recordset
Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
While not rs.EOF
rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'")
rs.Update
rs.MoveNext
Wend
rs.Close
set rs=Nothing
Dans ton message <D70424FE-E791-4A2D-845E-FFC0B2F516F6@microsoft.com>
Bonjour,
Tout d'abord mes meilleurs voeux pour 2007.
J'ai une macro sous Access97 qui est hyper longue : près de 2heures de
calcul sur 78000 enregistrements
UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'")
N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant
sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre
moyen ???
Merci par avance.
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le code suivant devrait donner le même résultat:
dim rs as DAO.Recordset Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset) rs.MoveLast rs.MoveFirst While not rs.EOF rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'") rs.Update rs.MoveNext Wend rs.Close set rs=Nothing
Dans ton message
Bonjour, Tout d'abord mes meilleurs voeux pour 2007. J'ai une macro sous Access97 qui est hyper longue : près de 2heures de calcul sur 78000 enregistrements UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'") N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre moyen ??? Merci par avance.
-- Voilou ! Cordialement,
Ze Titi
larnoum
Merci pour ze Titi pour ta réponse rapide. Je teste ce soir et te donne réponse. -- Pierre
Bonjour larnoum et meilleurs voeux à toi aussi !
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le code suivant devrait donner le même résultat:
dim rs as DAO.Recordset Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset) rs.MoveLast rs.MoveFirst While not rs.EOF rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'") rs.Update rs.MoveNext Wend rs.Close set rs=Nothing
Dans ton message
Bonjour, Tout d'abord mes meilleurs voeux pour 2007. J'ai une macro sous Access97 qui est hyper longue : près de 2heures de calcul sur 78000 enregistrements UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'") N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre moyen ??? Merci par avance.
-- Voilou ! Cordialement,
Ze Titi
Merci pour ze Titi pour ta réponse rapide.
Je teste ce soir et te donne réponse.
--
Pierre
Bonjour larnoum et meilleurs voeux à toi aussi !
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le
code suivant devrait donner le même résultat:
dim rs as DAO.Recordset
Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
While not rs.EOF
rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'")
rs.Update
rs.MoveNext
Wend
rs.Close
set rs=Nothing
Dans ton message <D70424FE-E791-4A2D-845E-FFC0B2F516F6@microsoft.com>
Bonjour,
Tout d'abord mes meilleurs voeux pour 2007.
J'ai une macro sous Access97 qui est hyper longue : près de 2heures de
calcul sur 78000 enregistrements
UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'")
N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant
sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre
moyen ???
Merci par avance.
Merci pour ze Titi pour ta réponse rapide. Je teste ce soir et te donne réponse. -- Pierre
Bonjour larnoum et meilleurs voeux à toi aussi !
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le code suivant devrait donner le même résultat:
dim rs as DAO.Recordset Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset) rs.MoveLast rs.MoveFirst While not rs.EOF rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'") rs.Update rs.MoveNext Wend rs.Close set rs=Nothing
Dans ton message
Bonjour, Tout d'abord mes meilleurs voeux pour 2007. J'ai une macro sous Access97 qui est hyper longue : près de 2heures de calcul sur 78000 enregistrements UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'") N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre moyen ??? Merci par avance.
-- Voilou ! Cordialement,
Ze Titi
larnoum
Merci ze Titi pour ta réponse rapide. Je teste ce soir et te donne réponse. -- Pierre
Bonjour larnoum et meilleurs voeux à toi aussi !
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le code suivant devrait donner le même résultat:
dim rs as DAO.Recordset Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset) rs.MoveLast rs.MoveFirst While not rs.EOF rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'") rs.Update rs.MoveNext Wend rs.Close set rs=Nothing
Dans ton message
Bonjour, Tout d'abord mes meilleurs voeux pour 2007. J'ai une macro sous Access97 qui est hyper longue : près de 2heures de calcul sur 78000 enregistrements UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'") N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre moyen ??? Merci par avance.
-- Voilou ! Cordialement,
Ze Titi
Merci ze Titi pour ta réponse rapide.
Je teste ce soir et te donne réponse.
--
Pierre
Bonjour larnoum et meilleurs voeux à toi aussi !
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le
code suivant devrait donner le même résultat:
dim rs as DAO.Recordset
Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset)
rs.MoveLast
rs.MoveFirst
While not rs.EOF
rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'")
rs.Update
rs.MoveNext
Wend
rs.Close
set rs=Nothing
Dans ton message <D70424FE-E791-4A2D-845E-FFC0B2F516F6@microsoft.com>
Bonjour,
Tout d'abord mes meilleurs voeux pour 2007.
J'ai une macro sous Access97 qui est hyper longue : près de 2heures de
calcul sur 78000 enregistrements
UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'")
N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant
sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre
moyen ???
Merci par avance.
Merci ze Titi pour ta réponse rapide. Je teste ce soir et te donne réponse. -- Pierre
Bonjour larnoum et meilleurs voeux à toi aussi !
Je ne sais pas si ça serait plus rapide en VBA mais dans le doute, le code suivant devrait donner le même résultat:
dim rs as DAO.Recordset Set rs=Currentdb.OpenRecordset("Fme_T",dbOpenDynaset) rs.MoveLast rs.MoveFirst While not rs.EOF rs!VOLCT_TOT_FME=DSum("VOLCT","Fme_T","FME='" & rs!FME & "'") rs.Update rs.MoveNext Wend rs.Close set rs=Nothing
Dans ton message
Bonjour, Tout d'abord mes meilleurs voeux pour 2007. J'ai une macro sous Access97 qui est hyper longue : près de 2heures de calcul sur 78000 enregistrements UPDATE Fme_T SET VOLCT_TOT_FME = DSum("[VOLCT]","Fme_T","FME = '"&[FME]&"'") N'y aurait-il pas la possibilité d'optimiser celle-ci soit en l'écrivant sous VBA (mais je n'y arrive pas, si vous pouviez m'aider) soit par un autre moyen ??? Merci par avance.
