Discussion :

[borisp]

Bonjour,

-J'ai très peu de connaissances sur Access-

Je cherche à mettre à jour le champ texte d'une requête (construite en SQL) via une requete mise à jour. Voici la construction de la reqûete en question :

Code sql :

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

1
2
3
SELECT DISTINCT [3-1 - Utilisateurs pour Import].LoginUser AS employeeCode, Format(Date(),"dd\.mm\.yyyy") AS employeeValidAt, "155X" AS orgaUnitCode, "Structure" AS orgaType, "Groupe" AS facility, "Employé(e)" AS rank, "N" AS relationType, 0 AS emergency, Format(Date(),"dd\.mm\.yyyy") AS startDate, "" AS endDate
FROM [3-1 - Utilisateurs pour Import]
WHERE ((([3-1 - Utilisateurs pour Import].[Type US]) Like "*dico*"));

Le champ que je cherche à mettre à jour automatiquement est l'orgaunitcode : "155X".

Est-ce possible via une requête mise à jour ou l'on pourrait saisir le code voulue?

Merci beaucoup pour votre aide.

[marot_r]

Bonjour

Code :

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

"155X" AS orgaUnitCode

Ne defini pas un vrai champ, il define une constante donc tu ne peux pas changer cette valeur.

Ce que tu peux faire c'est modifier par code VBA le SQL de ta requete ou passer un parametre a ta requete.

Pour le parametre cela ressemble a

Code sql :

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

1
2
3
4
5
 
parameters prmOrgaUnitCode Text(255);
SELECT DISTINCT [3-1 - Utilisateurs pour Import].LoginUser AS employeeCode, Format(Date(),"dd\.mm\.yyyy") AS employeeValidAt, [prmOrgaUnitCode] AS orgaUnitCode, "Structure" AS orgaType, "Groupe" AS facility, "Employé(e)" AS rank, "N" AS relationType, 0 AS emergency, Format(Date(),"dd\.mm\.yyyy") AS startDate, "" AS endDate
FROM [3-1 - Utilisateurs pour Import]
WHERE ((([3-1 - Utilisateurs pour Import].[Type US]) Like "*dico*"));

pour le VBA il faut construire ta chaine puis l'affecter a ta requete.

ex de methode pour y arriver :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim taNouvelleValeur as string:taNouvelleValeur="TOTO"
 
dim db as dao.database:set db=currentdb
dim q as dao.querydef:set q=db.querydefs("NomTaRequete")
dim SQL as string
SQL=""
SQL=SQL & "SELECT DISTINCT [3-1 - Utilisateurs pour Import].LoginUser AS employeeCode, Format(Date(),""dd\.mm\.yyyy"") AS employeeValidAt, """ & tNouvelleValeur & """ AS orgaUnitCode, ""Structure"" AS orgaType, ""Groupe"" AS facility, ""Employé(e)"" AS rank, ""N"" AS relationType, 0 AS emergency, Format(Date(),""dd\.mm\.yyyy"") AS startDate, """" AS endDate"
SQL=SQL & " FROM [3-1 - Utilisateurs pour Import]"
SQL=SQL & " WHERE ((([3-1 - Utilisateurs pour Import].[Type US]) Like ""*dico*""));"
q.sql=SQL
se q=nothing
db.close:set db=nothing

Attention changer le SQL marche seulement si tu as une copie locale de ta BD front-end, si tu partages ton front-end sur un serveur de foichier tu vas modifier le SQL de tout le monde.

Personnellement je recommande la requete parametree mais cela peut poser des problemes si elle est dans une chaine de requete. Il faut passer le parametre a un moment donnees.

Note que si la valeur est dans un formulaire Access peut l'utiliser comme source du parametre de maniere transparente pour l'utilisateur.

A+