du code avec ChatGPT

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

Code:

---

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

---

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.
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 !!!

bonsoir,

Citation:

---

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 ?

---

chouette ! je vais pouvoir profiter (vraiment) de ma retraite...
je me demande d'ailleurs si la retraite va encore exister dans un avenir proche ou (pas si) lointain étant donné que les IA de toutes sortes vont supprimer TOUS les emplois, même ceux du bénévolat, pauvre monde ...

Salut
Je doute malgré tout que l'IA ait pu pondre le code sans avoir été chercher sur tout le web une compilation pour ensuite proposer une procédure.
Mais si on observe sur les RS, à certaines questions posées, l'IA est totalement à l'ouest. :ptdr:
La machine ne supplantera jamais l'homme ! :ptdr:

Lorsque que je bossais au CG64, j'étais entre autre, chargé d'apprendre WINDOWS aux agents du CG en 1990.
J'avais coutume de leur dire que :
- un ordinateur ne pourra JAMAIS être supérieur à l'homme puisque c'est l'homme qui le crée.
La seule différence est que cet ordinateur travaille nettement plus vite.
Je crois n'avoir jamais une ânerie !