Bonjour à tous
Voici un exemple de ce que m'a sorti ChatGPT sur une demande bien précise :
++++++++++++++++++++++++++++++++++
comment empêcher l'utilisation de la touche Shift lors de l'ouverture d'une BdD Access 2021, mais l'autoriser pendant l'utilisation dans la BdD
Il est possible de désactiver l'utilisation de la touche Shift lors de l'ouverture d'une base de données Access 2021 en utilisant le code VBA. Cela empêchera l'accès au mode design, qui est généralement accessible en appuyant sur la touche Shift pendant l'ouverture de la base de données.
Pour ce faire, vous pouvez ajouter le code suivant dans le module VBA de la base de données :
Ce code crée une propriété de base de données appelée "AllowBypassKey" qui est définie sur False, ce qui empêche l'utilisation de la touche Shift lors de l'ouverture de la base de données.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Private Sub DisableShift() Dim prop As Property Const DB_Boolean As Long = 1 Set prop = CurrentDb.CreateProperty("AllowBypassKey", DB_Boolean, False) CurrentDb.Properties.Append prop End Sub
Cependant, si vous souhaitez autoriser l'utilisation de la touche Shift pendant l'utilisation de la base de données, vous pouvez créer un formulaire qui active la propriété "AllowBypassKey" lorsque le formulaire est ouvert, et la désactive lorsque le formulaire est fermé. Pour ce faire, vous pouvez ajouter le code suivant aux événements OnOpen et OnClose du formulaire :
Ce code crée également la propriété "AllowBypassKey", mais cette fois elle est définie sur True lors de l'ouverture du formulaire, ce qui permet l'utilisation de la touche Shift pendant l'utilisation de la base de données. Lorsque le formulaire est fermé, la propriété est désactivée à nouveau pour empêcher l'accès au mode design.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11 Private Sub Form_Open(Cancel As Integer) Dim prop As Property Const DB_Boolean As Long = 1 Set prop = CurrentDb.CreateProperty("AllowBypassKey", DB_Boolean, True) CurrentDb.Properties.Append prop End Sub ' ***************************** Private Sub Form_Close() CurrentDb.Properties("AllowBypassKey") = False End Sub
En utilisant cette méthode, vous pouvez empêcher l'utilisation de la touche Shift lors de l'ouverture d'une base de données Access 2021, tout en permettant son utilisation pendant l'utilisation de la base de données.
+++++++++++++++++++++++++++++
Tout cela pour dire aux petits programmeurs comme moi, que ChatGPT peut donner des réponses qui aident à la programmation en VBA







Répondre avec citation






et si celle-ci est pertinente pensez à voter 



Partager