A) EMPECHER LE COPIER / COLLER
par Stéphane
1) Déclarer une variable globale dans une vue dans l'évènement Declarations
de la section Globals
Dim FlagCopyButton As Integer
2) Ajouter le code suivant dans l'évènement Queryopen de la vue
FlagCopyButton = False
3) Ajouter le code suivant dans l'évènement Querypaste de la vue
If FlagCopyButton = False then
Msgbox("message d'erreur")
Continue = False
End If
B) FORCER L'UTILISATION DU BOUTON MODIFIER
par Stéphane
1) Déclarer une variable globale dans le formulaire dans l'évènement
Declarations de la section Globals
Dim FlagEditButton As Integer
2) Ajouter le code suivant dans l'évènement Queryopen du formulaire
FlagEditButton = False
3) Ajouter le code suivant dans l'évènement QueryModeChange du formulaire
If Not Source.EditMode And FlagEditButton = False then
Msgbox("Vous devez utiliser le bouton 'Modifier' pour effectuer des
modifications sur le document")
Continue = False
End If
|
