Zone de texte Access
Résolu
Roms38
Messages postés
58
Statut
Membre
-
V3n1 Messages postés 270 Date d'inscription Statut Membre Dernière intervention -
V3n1 Messages postés 270 Date d'inscription Statut Membre Dernière intervention -
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 !?
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
-
Salut,
Il faut qu'tu insère une procédure évenementielle en VBA..
Si tu veux + d'explications, dit moi..
-
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 ;)-
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- Voilà 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
-
-
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" ?
