Discussion :

[Nicko29]

Boujour,

je ccherche à faire une requete action qui vérifie les critère de 2champs pour en modifié 1 seul.

Avec un critère à vérifier et à modifé ca va mais 2 .. j'ai regardé la faq qui traite d'un seul critère.

je souhaite faire cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set Champ1  = 'valeur1' , Etat = 'etatA' , Date() < (date_N + 365) where Champ1 = 'valeur2'

donc vérifier les enregistrement , qui ont pour le champ1 la valeur1, pour l'état le critère etatA, et vérifier également si date d'aujourd'hui est inférieur à la date_N + 365 jour.

Pour tout ces enregistrement qui remplissent ces critères, les passées pour le champ 1 de la valeur1 à la valeur2.

je suis parti du code Dao de la faq , mais c'est un peu compliqué pour moi ...
Je n'y arrive pas

y aurait-il un exemple avec plusieurs critères ?

Merci

[zoom61]

Salut,

Essaye le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UPDATE Table1 SET Table1.Champ1 = "1"
WHERE (((Table1.Champ1)="Champ1") AND ((Table1.Etat1)="EtatA") AND ((Table1.date)>Now()-365));

[Nicko29]

edit :

Je croyais que c'était résolu, mais seulement en requete mise à jour mais dès que je le fait en VB cela bloque .....

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UPDATE Table1 SET Table1.champ1 = "Valeur2"
WHERE (((Table1.champ1)="Valeur1") AND ((Table1.etat)="etat1") AND ((Date())>([date_N]+365)));

ce code sql marche très bien,

mais après je veux le mettre en VB:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub DAOExecuteBulkOpQuery_Click()
    Dim db As DAO.Database
    Set db = DBEngine.OpenDatabase ("I:\mabase.mdb")
    ' Exécution de la requête
    db.Execute "UPDATE Table1 SET Table1.champ1 = "Valeur2"
WHERE (((Table1.champ1)="Valeur1") AND ((Table1.etat)="etat1") AND ((Date())>([date_N]+365)))"
    Debug.Print "Records Affected = "  & db.RecordsAffected
    db.Close
End Sub

Et cela ne marche pas : erreur de compilation fin d'instruction attendu sur"valeur2"

qu'est-ce qui ne va pas ?

Merci Zoom61 , il s'agit de la même erreur que sur ton code, il doit manquer quelque chose.

désolé pour ces edit de post