1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

Mise à jour de table acces

Signaler
Messages postés
9
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
15 juillet 2009
 -
Messages postés
80
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
2 octobre 2009
 -
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

3 réponses

Réponse 1 / 3
Messages postés
4822
Date d'inscription
lundi 11 novembre 2002
Statut
Membre
Dernière intervention
15 novembre 2016
 13
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
Messages postés
9
Date d'inscription
mercredi 28 janvier 2009
Statut
Membre
Dernière intervention
15 juillet 2009
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
Messages postés
80
Date d'inscription
vendredi 14 mai 2004
Statut
Membre
Dernière intervention
2 octobre 2009
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
Répondre Posez votre question