IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

du code avec ChatGPT


Sujet :

Access

  1. #1
    Membre habitué
    Avatar de Jsiorat
    Homme Profil pro
    RETRAITE
    Inscrit en
    Juillet 2005
    Messages
    398
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Ariège (Midi Pyrénées)

    Informations professionnelles :
    Activité : RETRAITE

    Informations forums :
    Inscription : Juillet 2005
    Messages : 398
    Points : 169
    Points
    169
    Par défaut 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 : 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
    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 !!!
    Être vieux, c'est être jeune depuis plus longtemps que les autres !

  2. #2
    Expert éminent sénior
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2004
    Messages
    8 621
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2004
    Messages : 8 621
    Points : 14 577
    Points
    14 577
    Par défaut
    bonsoir,
    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 ...
    Quand on est derrière l'écran on n'a aucun clavier sous les mains ...
    ah non ? donc devant l'écran c'est la connectique ?

  3. #3
    Expert éminent
    Homme Profil pro
    Webplanneur
    Inscrit en
    Octobre 2007
    Messages
    4 261
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 59
    Localisation : Réunion

    Informations professionnelles :
    Activité : Webplanneur

    Informations forums :
    Inscription : Octobre 2007
    Messages : 4 261
    Points : 6 557
    Points
    6 557
    Par défaut
    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.
    La machine ne supplantera jamais l'homme !
    "Le savoir est la seule matière qui s'accroit quand on la partage" (Socrate)
    UR - ESIROI - GPME/CG/DCG8
    QTH :21°19'18"S - 055°25'32"E
    Inutile de me contacter par MP
    Merci de cliquer sur si la réponse vous a permis de résoudre votre problème et n'oubliez pas de clôturer le fil en cliquant sur

  4. #4
    Membre habitué
    Avatar de Jsiorat
    Homme Profil pro
    RETRAITE
    Inscrit en
    Juillet 2005
    Messages
    398
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 78
    Localisation : France, Ariège (Midi Pyrénées)

    Informations professionnelles :
    Activité : RETRAITE

    Informations forums :
    Inscription : Juillet 2005
    Messages : 398
    Points : 169
    Points
    169
    Par défaut
    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 !
    Être vieux, c'est être jeune depuis plus longtemps que les autres !

Discussions similaires

  1. Comment linker avec odbc32.lib dans le code ? (avec gcc)
    Par _Audrey_ dans le forum Autres éditeurs
    Réponses: 3
    Dernier message: 06/11/2008, 18h40
  2. Réponses: 1
    Dernier message: 03/02/2006, 11h48
  3. Probleme en compilant le code avec C2.EXE ?!?!?
    Par angelevil dans le forum VB 6 et antérieur
    Réponses: 4
    Dernier message: 17/11/2005, 17h13
  4. help sur un petit code avec XMLHttpRequest et setTimeout
    Par grinder59 dans le forum Général JavaScript
    Réponses: 4
    Dernier message: 01/10/2005, 11h22
  5. [UML] génération de code avec omondo.uml
    Par RENAULT dans le forum Eclipse Java
    Réponses: 3
    Dernier message: 31/10/2003, 14h14

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo