La m=E9thode SetOption permet de d=E9finir la valeur d'une=20
option en VB.
J'ai trouv=E9 dans l'aide une option qui est "Pourcentage de=20
compactage automatique".
Mais impossible de trouver un compl=E9ment d'information sur=20
cette option.
Quelqu'un sait-il o=F9 trouver de la doc l=E0-dessus ?
Merci.
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
Anor
Bonjour,
Arthur wrote: | La méthode SetOption permet de définir la valeur d'une | option en VB. | J'ai trouvé dans l'aide une option qui est "Pourcentage de | compactage automatique". | Mais impossible de trouver un complément d'information sur | cette option. | Quelqu'un sait-il où trouver de la doc là-dessus ? | Merci.
Tu veux parler de ce genre de procédure ?
Public Function AutoCompactCurrentProject() Dim fs, f, S, filespec Dim strProjectPath As String, strProjectName As String
strProjectPath = Application.CurrentProject.Path strProjectName = Application.CurrentProject.Name filespec = strProjectPath & "" & strProjectName Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) S = CLng(f.Size / 1000000) 'convert size of app from bytes to Mb's If S > 20 Then 'edit the 20 (Mb's) to the max size you want to allow your app to grow. Application.SetOption ("Auto Compact"), 1 'compact app Else Application.SetOption ("Auto Compact"), 0 'no don't compact app End If End Function
il me semble que ça permet simplement de modifier l'option "compacter à la fermeture" lorsque la base dépasse une certaine taille.
Sinon, il y a peut-être une autre solution là dedans : http://www.fs.vsb.cz/books/Acc97Lab/FaranaAcc97.pdf
mais je n'ai pas encore tout lu!!
Vive la nouvelle europe quand même ;-))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
Bonjour,
Arthur wrote:
| La méthode SetOption permet de définir la valeur d'une
| option en VB.
| J'ai trouvé dans l'aide une option qui est "Pourcentage de
| compactage automatique".
| Mais impossible de trouver un complément d'information sur
| cette option.
| Quelqu'un sait-il où trouver de la doc là-dessus ?
| Merci.
Tu veux parler de ce genre de procédure ?
Public Function AutoCompactCurrentProject()
Dim fs, f, S, filespec
Dim strProjectPath As String, strProjectName As String
strProjectPath = Application.CurrentProject.Path
strProjectName = Application.CurrentProject.Name
filespec = strProjectPath & "" & strProjectName
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFile(filespec)
S = CLng(f.Size / 1000000) 'convert size of app from bytes to Mb's
If S > 20 Then 'edit the 20 (Mb's) to the max size you want to allow your app
to grow.
Application.SetOption ("Auto Compact"), 1 'compact app
Else
Application.SetOption ("Auto Compact"), 0 'no don't compact app
End If
End Function
il me semble que ça permet simplement de modifier l'option "compacter à la fermeture"
lorsque la base dépasse une certaine taille.
Sinon, il y a peut-être une autre solution là dedans :
http://www.fs.vsb.cz/books/Acc97Lab/FaranaAcc97.pdf
mais je n'ai pas encore tout lu!!
Vive la nouvelle europe quand même ;-))
--
à+
Arnaud
--------------------------------------------------
Conseils d'utilisation : http://users.skynet.be/mpfa/
Access Memorandum : http://memoaccess.free.fr
/Réponses souhaitées sur ce forum, merci/
--------------------------------------------------
Arthur wrote: | La méthode SetOption permet de définir la valeur d'une | option en VB. | J'ai trouvé dans l'aide une option qui est "Pourcentage de | compactage automatique". | Mais impossible de trouver un complément d'information sur | cette option. | Quelqu'un sait-il où trouver de la doc là-dessus ? | Merci.
Tu veux parler de ce genre de procédure ?
Public Function AutoCompactCurrentProject() Dim fs, f, S, filespec Dim strProjectPath As String, strProjectName As String
strProjectPath = Application.CurrentProject.Path strProjectName = Application.CurrentProject.Name filespec = strProjectPath & "" & strProjectName Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) S = CLng(f.Size / 1000000) 'convert size of app from bytes to Mb's If S > 20 Then 'edit the 20 (Mb's) to the max size you want to allow your app to grow. Application.SetOption ("Auto Compact"), 1 'compact app Else Application.SetOption ("Auto Compact"), 0 'no don't compact app End If End Function
il me semble que ça permet simplement de modifier l'option "compacter à la fermeture" lorsque la base dépasse une certaine taille.
Sinon, il y a peut-être une autre solution là dedans : http://www.fs.vsb.cz/books/Acc97Lab/FaranaAcc97.pdf
mais je n'ai pas encore tout lu!!
Vive la nouvelle europe quand même ;-))
-- à+ Arnaud -------------------------------------------------- Conseils d'utilisation : http://users.skynet.be/mpfa/ Access Memorandum : http://memoaccess.free.fr /Réponses souhaitées sur ce forum, merci/ --------------------------------------------------
