Discussion :

[curt]

Bonjour à tous,

J'ai utilisé (et même abusé) du tutoriel de C. Warin concernant le Ruban Access 2007. Mais je bloque sur une idée que je voudrais mettre en place.

Sur l'évènement "avant MAJ" d'un formulaire, j'ai le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Form_BeforeUpdate(Cancel As Integer)
  If MsgBox("Voulez-vous confirmer la modification ?", vbQuestion + vbYesNo, "Info !") = vbNo Then
    Me.Undo
    Cancel = True
  End If
End Sub

qui me permet de demander à l'utilisateur de valider les modifications apportées avant enregistrement.

Dans le Ruban j'ai crée la case à cocher (CheckBox) ci-dessous :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
       </group>
        <group id="Validation" label="Validation">
         <checkBox id="chkValidation" label="Modifier avec validation" onAction="chkValidation"/>
        </group>

Et vous aurez, je pense, compris la finalité : Pouvoir Supprimer la validation des modifications en décochant la case. L'utilisateur "débutant" devra toujours valider ses modifs en laissant la case cocher (par défaut elle sera cochée). Les plus habitués décocheront la validation et les modifs se feront directement sans validation.

Si quelqu'un a une idée.... il en serait grandement remercié.
Bonne journée.

Curt

[ilank]

bonjour,
une idée : déclarer une variable public de type booleén (vrai/faux) qui prendra la valeur du bouton du ruban et qui selon sa valeur affiche le message de demande de confirmation dans l'événement BeforeUpdate de tes formulaires.

[curt]

Bonjour Ilank, et merci pour l'idée.

Je donne l'ensemble du code :

• Pour le Ruban :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
<group id="Validation" label="Validation">
<checkBox id="chkValidation" label="Modifier avec validation" onAction="chkValidation"/>
</group>

Pour Module MduRuban

• Dans l'en-tête :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Public bolchkValidation As Boolean

• Pour la gestion de la CheckBox (toujours dans le module) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
Public Sub chkValidation(ByVal control As IRibbonControl, pressed As Boolean)
    Select Case control.ID
        Case "chkValidation": bolchkValidation = pressed
    End Select
End Sub

Pour le formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Form_BeforeUpdate(Cancel As Integer)
  If bolchkValidation Then
    If MsgBox("Voulez-vous confirmer la modification ?", vbQuestion + vbYesNo, "Information !") = vbNo Then
      Me.Undo
      Cancel = True
    End If
  End If
End Sub

Bonne utilisation à tous.
Curt