Zone de texte Access

Résolu
Bonjour,
j'ai une table Ville avec le champ nom.
J'ai une zone de texte dans un formulaire.
J'aimerais quaprès avoir tapé par exemple "Lyon" dans cette zone de texte, Lyon s'ajoute dans ma table.
Comment faire !?
Configuration: Windows XP
Internet Explorer 6.0

3 réponses

  • Votes
  • Date
  • Date décroissante
  1. Oui, c'est exactement ce que j't'ai dis sauf que tu te sers pas de variables..

    Par contre, à quoi sert .MoveLast et "DB_OPEN_DYNASET" ?
    1. Tu ne connais pas le VBA encore ?
      Il faut d'abord que tu crée un bouton, clic droit "Propriété", "Sur click", "Procédure Evenementielle" et faut cliquer sur les 3 ptits points...ensuite tu insère ton code.

      Voilà le code :

      '----Déclaration des variables
          Dim Nom-de-ta-base As DAO.Database 'Tu peux lui donner un nom quelconque.
          Dim SAVE As DAO.Recordset          'ce qu'tu va sauvegarder
          Dim TVille As String	       'Autre nom que ta zone de texe
                   
       ''----Mise en relation avec le formulaire
         Tville = Nom-de-ta-zone-de-texte
         
      
      '----Ouverture de la base de donnée
          Set Nom-de-ta-base = CurrentDb()
          Set SAVE = Nom-de-ta-base.OpenRecordset("Nom-de-ta-table")
      '----Mise en relation avec la base de donnée
      '----Ajout de la nouvelle saisie
          SAVE.AddNew
                  SAVE![Nom-de-ton-champ-ville-dans-ta-table] = Tville
                  SAVE.Update
          
         SAVE.Close
      '----Fermeture de la base de donnée
         MsgBox "Vos saisies ont bien été enregistrées !", vbOKOnly
          
      '----Initialisation des zones de textes
         Tville = ""    'Pour effacer ce que t'a écrit aupravant dans ta zone de texte
      


      Redis "moi" si t'as un problème ;)
      1. Si bien sur je connais le VBA, mais là j'ai eu un petit bug.
        Fatigue du mercredi matin on va dire . . .
        Bon vais essayer avec ça et je te tiens au courant.
        Merci encore
      2. @Roms38Voilà ce que j'ai fait, et ça marche nikel chrome !

        Private Sub Commande8_Click()

        Dim tVille As Recordset
        Set tVille = CurrentDb.OpenRecordset("Ville", DB_OPEN_DYNASET)

        tVille.AddNew
        tVille![Nom_ville] = Me.Texte0
        tVille.Update
        tVille.MoveLast
        MsgBox "La ville " & Me.Texte0 & " a bien été ajoutée", vbOKOnly + vbInformation, "Confirmation d'ajout..."
        Texte0 = ""


        End Sub
    2. Salut,

      Il faut qu'tu insère une procédure évenementielle en VBA..
      Si tu veux + d'explications, dit moi..
      1. Merci pour ta réponse. Je pense que je vais te dire "moi" ! lol