High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Accueil
Forum Codes-Sources
Visual Basic
Visual Basic 6
Mise à jour de table acces
Signaler
cs_bmo83
Messages postés
9
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
15 juillet 2009
-
9 févr. 2009 à 16:17
hebus16
Messages postés
80
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
2 octobre 2009
-
9 févr. 2009 à 16:53
bonjour
je désire mettre à jour une table an fonction d'un champs:
- si dans la table , le champs sexe = 1 alors dans le champs libelle je mets "homme" et le champs action je mets "CADRE"
j'airais aime écrire cette procédure avec du VBA
merci
Afficher la suite
A voir également:
Mise à jour de table acces
Access mise à jour table à partir d'une autre table
✓
-
Forum - SQL
Protéger l'accés a votre pc (re re mis a jour)
-
Codes sources - Visual Basic / VB.NET (Sécurité)
Mise à jour en cascade (Tables Mère/Fille) avec colonnes auto-incrementés
✓
-
Forum - VB.NET
Mise à jour de la table enfants dans BDD relationnel
✓
-
Forum - VB.NET
Mise à jour d'une table access avec commandtext
✓
-
Forum - Visual Basic 6
3
réponses
Réponse 1 / 3
cs_Exploreur
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
13
9 févr. 2009 à 16:24
Salut,
Tu as tout dit dans ta question.....
If RstAdo.fields("Sexe") = 1 ThenRstAdo.Fileds("Libelle")
"Homme" And RstAdo.Fields("Action")
"Cadre"
ElseRstAdo.Fileds("Libelle")
"Femme" And RstAdo.Fields("Action")
"Trop belle !!"
End If
RstAdo.Update
A+
Exploreur
Linux a un noyau, Windows un pépin
**
http://exploreur1.labrute.fr
**
Réponse 2 / 3
cs_bmo83
Messages postés
9
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
15 juillet 2009
9 févr. 2009 à 16:39
excuse moi, je sui débutant
je dois définir quelque chose de ce style avant :
Sub selection()
Dim DB As Database
Dim enreg As String
Set DB = Application.CurrentDbSet enreg
bd.OpenRecordset("select * from tab_export_initie2 where sous_gpr
'1'", dbOpenDynaset)
endsub
Réponse 3 / 3
hebus16
Messages postés
80
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
2 octobre 2009
9 févr. 2009 à 16:53
Dans ce cas là fait une requete parametrable. Ca te permettra de mettre à la volée les données que tu veux
ca donne un truc du genre pour la requete :
PARAMETERS PM_SEXE Text, PM_ACTION Text; UPDATE matable SET [Monchamp_Action] = PM_ACTION WHERE [Monchamp_Sexe] = PM_SEXE;
du coup tu values tes parametre de cette facon
QD_Requete.Parameters("PM_ACTION").Value = "Cadre"
ou
QD_Requete.Parameters("PM_ACTION").Value = "Trop belle !!"
etc ... suivant tes conditions et tu fais un execute du QueryDefs
QD_Requete.execute
Ca te sera plus simple de cette façon
Votre réponse
Répondre
Posez votre question
A voir également
Mise à jour champs d'une table BD mysql en vb6
Mise à jour d'une table access par VB
Problème de mise à jour d'une table en ASP
Problème de mise à jour d'une table en ASP
Mise a jour d'une table dans SQL server avec un formulaire