Bonjour à tous,
Je me suis amusé à demandé à ChatGPT un bout de code (qu'on trouve déjà dans la FAQ Access !)
J'ai demandé "Code pour NotInList dans Access 2021" !
Voici la réponse tel quel :
=+=+=+=+=+=+=+=+=+=+=+=+
Code pour NotInList dans MS Access 2021
Le code pour l'événement NotInList dans MS Access permet de capturer une valeur saisie par l'utilisateur dans une liste déroulante, mais qui ne se trouve pas dans la source de données de la liste. Ce code peut être utilisé pour ajouter dynamiquement une nouvelle valeur à la source de données.
Voici un exemple de code pour l'événement NotInList dans MS Access :
vbnet
Dans cet exemple, "MaListe" est le nom de la liste déroulante à laquelle l'événement NotInList est associé. La variable "NewData" contient la valeur saisie par l'utilisateur qui n'est pas dans la source de données de la liste.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 Private Sub MaListe_NotInList(NewData As String, Response As Integer) Dim strMsg As String Dim strTitle As String Dim intStyle As Integer Dim strNomListe As String strNomListe = "MaSourceDeDonneesListe" ' Remplacer "MaSourceDeDonneesListe" par le nom de votre source de données de liste strMsg = "'" & NewData & "' n'est pas dans la liste. Voulez-vous l'ajouter ?" strTitle = "Ajouter nouvelle valeur à la liste" intStyle = vbYesNo + vbQuestion If MsgBox(strMsg, intStyle, strTitle) = vbYes Then ' Ajouter la nouvelle valeur à la source de données de la liste DoCmd.SetWarnings False ' Désactiver les messages d'avertissement DoCmd.RunSQL "INSERT INTO " & strNomListe & " (nom_champ) VALUES ('" & NewData & "')" DoCmd.SetWarnings True ' Réactiver les messages d'avertissement Response = acDataErrAdded ' Indiquer que la nouvelle valeur a été ajoutée à la liste Else Response = acDataErrContinue ' Continuer sans ajouter la nouvelle valeur à la liste End If End Sub
Le code affiche une boîte de dialogue demandant à l'utilisateur s'il veut ajouter la nouvelle valeur à la source de données de la liste. Si l'utilisateur répond oui, le code ajoute la nouvelle valeur à la source de données de la liste à l'aide d'une requête SQL INSERT. Si l'utilisateur répond non, le code continue sans ajouter la nouvelle valeur à la liste.
Enfin, le code utilise la variable "Response" pour indiquer à Access si la nouvelle valeur a été ajoutée à la liste ou non. Si la nouvelle valeur a été ajoutée, la valeur "acDataErrAdded" est utilisée pour informer Access de l'ajout. Sinon, la valeur "acDataErrContinue" est utilisée pour continuer sans ajouter la nouvelle valeur.
=+=+=+=+=+=+=+=+=+=+=+=+
A la suite de cette réponse, fort juste par ailleurs, est-ce que Developper.net va avoir le mérite d'exister encore si ChatGPT est capable de nous construire un logiciel complet ?
Hey, oh ! je plaisante quant à l'existence du site ! Je ne saurais m'en passer à titre perso !!!
Partager