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

  1. 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
  2. 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
  3. 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" ?