Zone de texte Access
Résolu
Roms38
Messages postés
58
Statut
Membre
-
V3n1 Messages postés 304 Statut Membre -
V3n1 Messages postés 304 Statut Membre -
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 !?
A voir également:
- Zone de texte Access
- Alternative zone telechargement - Accueil - Outils
- Texte de chanson gratuit pdf - Télécharger - Vie quotidienne
- Transcription audio en texte word gratuit - Guide
- Excel cellule couleur si condition texte - Guide
- Traitement de texte gratuit - Guide
3 réponses
Salut,
Il faut qu'tu insère une procédure évenementielle en VBA..
Si tu veux + d'explications, dit moi..
Il faut qu'tu insère une procédure évenementielle en VBA..
Si tu veux + d'explications, dit moi..
Roms38
Messages postés
58
Statut
Membre
Merci pour ta réponse. Je pense que je vais te dire "moi" ! lol
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 :
Redis "moi" si t'as un problème ;)
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 ;)
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
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
