Checkbox dans un formulaire [Résolu]

[piflechien73]

Bonjour,

j'ai écrit ce petit code dans le formulaire, supposé compacter la base si la case de la checkbox case est cochée à la fermeture.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub Compact_Click()
 
    If Me.COMPACT.Value = False Then
    'compact current file
        Application.SetOption ("Auto Compact"), False
    Else
    'do nothing
        Application.SetOption ("Auto Compact"), True
    End If
 
End Sub

La valeur par défaut est "false".

Le code marche sauf dans le cas où je coche puis ferme l'appli.
La base se compacte normalement mais à la réouverture de la base, il faut je coche et redécoche pour empêcher un nouveau compactage alors que la case est initialement décochée.

Comment faire pour éviter cela?

Merci par avance

[pgz]

Bonjour.

C'est normal puisque le code ne s'exécute que quand tu cliques sur ton option.
Une idée, parmi bien d'autres : tu utilises le même code mais pas le même évènement, soit la fermeture du formulaire, plutôt que le click sur le contrôle.

Cordialement,

PGZ

[piflechien73]

Et oui...

Un peu de vacances m'aura fait du bien.

J'ai finalement paramétré l'option Auto compact en false dans un code appelé par une macro "Autoexec".

Code :

1
2
3
4
5
Sub DESACTIVATE_COMPACT()
 
Application.SetOption ("Auto Compact"), False
 
End Sub

Du coup le compactage ne s'effectue vraiment qu'à la demande

Merci de votre réponse