mise à jour de table acces

Question

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

cs_Exploreur · Answer

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 **

cs_bmo83 · Answer

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

hebus16 · Answer

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

Mise à jour de table acces

3 réponses

Votre réponse