Discussion :

[CmzxNene]

Bonjour,

Je souhaiterais savoir quelle méthode utiliser pour gérer ma demande, à savoir j'ai un formulaire 'Fiche client' basé sur une table 'T_Client' et si je modifie une fiche je voudrais mettre à jour une autre table (T_Données) où mon client figure dans plusieurs enregistrements.

Ma requête serait :

Sur bouton 'Enregistrer'
SI Id_client trouvé dans T_Données alors MAJ de tous les champs relatif au client (Civilité, Nom, Prénom, Adresse, etc...)

Il faut utiliser une boucle mais je ne domine pas encore la méthode ni le choix de la boucle à utiliser.
Merci pour votre aide.

Bien cordialement

[madefemere]

Bonjour,

Tu as un problème de conception.
Normalement UNE INFORMATION ne devrait pas être dupliquée et être présente dans plusieurs endroits dans une base de données.
Donc la présence des informations (Civilité, Nom, Prénom, Adresse, etc...) dans la table T_Données est inutile. Le champ Id_Client est suffisant.

Si tu veux les avoir avec la table T_Données, il suffirait de faire une requête à partir des 2 tables en les liant par Id_Client.

Cordialement.

[CmzxNene]

Bonjour Madefemere,

Je conçoit bien qu'il aurait été plus judicieux de faire comme tu l'as mentionné mais dans l'application que j'ai récupérée, il me faut faire cette fameuse boucle pour parvenir au résultat attendu.
As-tu une solution ?

Merci de ton aide
Bien cordialement

[madefemere]

Bonjour,

Dans ce cas, il faut partir d'une requête mise à jour (UPDATE) et changer le critère par la valeur de l'IDCLIENT du formulaire après.

Méthode 1 : utiliser la requête directement
1- Tu enregistres la requête par exemple en "R_MAJDonnees_Client" qui a comme code :

Code sql :

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

1
2
UPDATE T_Clients INNER JOIN T_Donnees ON T_Clients.IdClient = T_Donnees.IdFournisseur_FK SET T_Donnees.NomClient_FK = [T_Clients].[NomClient], T_Donnees.AdresseClient_FK = [T_Clients].[AdresseClient], T_Donnees.VilleClient_FK = [T_Clients].[Villeclient]
WHERE (((T_Donnees.IdFournisseur_FK)=[Forms]![F_Clients]![IdClient]));

2- Tu appelles (exécutes) cette requête à partir de ton bouton "enregistrer" en faisant :

Code :

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

DoCmd.OpenQuery "R_MAJDonnees_Client"

Méthode 2 : tout en VBA
1- Quand ta requête est bonne, tu copies son code SQL et tu le transfères vers un code VBA qui sera appelé à partir de ton bouton "enregistrer". Tu auras un code du genre :

Code :

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

1
2
3
4
5
6
Dim majsql As String
majsql = "UPDATE T_Clients INNER JOIN T_Donnees ON T_Clients.IdClient = T_Donnees.IdFournisseur_FK" _
        & " SET T_Donnees.NomClient_FK = [T_Clients].[NomClient], T_Donnees.AdresseClient_FK = [T_Clients].[AdresseClient]," _
        & " T_Donnees.VilleClient_FK = [T_Clients].[Villeclient]" _
        & " WHERE T_Donnees.IdFournisseur_FK=" & Me.IdClient
CurrentDb.Execute majsql, dbFailOnError

NOTA : en enlevant le critère après "WHERE" tu peux mettre à jour directement toutes les valeurs dans la table T_Donnees indépendamment du client sélectionné.

Cordialement.

[CmzxNene]

Bonjour madefemere,

et merci pour ton orientation
J'ai modifié le code pour qu'il s'applique à mon développement et le résultat est présent.

Au prochain post
Bien cordialement