Dissociation d'un champ en deux.

Bonjour,

Voilà, on m'a demandé de dissocier un champ en deux champs distinct : l'un qui enregistre lors de la création de l'enregistrement, et l'un qui enregistre les modifications qui lui sont apportées.
Le problème c'est que le bouton "enregistrer" renvoi à ce bout de code :

Code:

---

1 2 3 4 5 6 7 8

Private Sub Enregistrer_Click()   [Date mise à jour] = Now() DoCmd.RunCommand acCmdSaveRecord DoCmd.RefreshRecord   End Sub

---

J'ai tenté d'ajouter dans ce code ces quelques lignes :

Code:

---

1 2 3

If ([Propositions].[Validation1] = "") Then [Propositions].[Validation1] = [Ménages].[Validation] End If

---

Sachant que Ménages.Validation est la donnée qui existait de base, qui s'enregistre à la création par le biais d'un menu déroulant que l'on sauvegarde avec le bouton "Enregistrer", et que Proposition.Validation1 est le champ dans lequel je veux enregistrer UNIQUEMENT la première valeur sauvegardée (j'ai créé le champ dans la table Propositions car il n'existait pas).

Par le biais de if, j'avais dans l'idée de faire que si le champ de propositions est vide, ça enregistre celui de la table ménage. Ainsi, seul le premier enregistrement sera conservé, puisque les fois suivantes où l'on effectuera la mise à jour, il ne sera pas vide. Mais peut être que je me complique la tête pour rien.

Peut être qu'une requête SQL peut permettre celà ?

Merci d'avance pour votre aide,

Bonjour.

Et qu'est-ce qui ne fonctionne pas avec ton code ?

1. Tu as une erreur ? Laquelle ? Ou ?
2. Pas la donnees attendue ? Tu attendais quoi ? Tu as eu quoi ?

A+

Bonjour,

alors, j'ai un message d'erreur (438) lorsque je clique sur enregistrer :

Pièce jointe 425688

et le mode débogage me surligne la première ligne de mon code :

Code:

---

If ([Propositions].[Validation1] = "") Then

---

Je vais essayer ce matin de passer par une requête.. Mais si vous avez une idée de ce qui cloche, je veux bien votre aide ;)

Je rencontre le même problème d'erreur 438 lorsque j'ai essayé ce code ci :

Code:

---

1 2 3

If IsEmpty([Propositions].[Validation1]) = True Then [Propositions].[Validation1] = [Ménages].[Validation] End If

---

Via requête, je n'arrive pas plus à aboutir à des résultats.

Je continue de chercher, j'ai essayé de créer une requête, mais mon code n'est pas bon :

Code:

---

1 2 3 4

INSERT INTO [Propositions] ( Validation1 ) AS Ménages.[Validation] WHERE [Propositions] ( Validation1 ) IS NULL SELECT Ménages.ID_ménage, [Propositions].[Validation], Ménages.[Validation] FROM Ménages INNER JOIN [Propositions] ON Ménages.ID_ménage = [Propositions].ID_ménage;

---

Vraiment personne pour aider ? :calim2:

bonsoir,
si personne ne t'aide c'est probablement parce que personne n'a compris l'énoncé de ton problème (j'en fait partie).
Si c'était un problème de syntaxe dans le code, je pense que quelqu'un t'aurait donné une solution depuis longtemps car il ne semble vraiment pas compliqué. Le souci est qu'on ne peut pas corriger un code si on ne comprend pas ce qu'il fait.

Essaie de réexpliquer en donnant un exemple concret, en postant la structure des tables, quelles relations entre les 2, que contient le formulaire, quel est la source de données ...

Citation:

---

Envoyé par tee_grandbois

bonsoir,
si personne ne t'aide c'est probablement parce que personne n'a compris l'énoncé de ton problème (j'en fait partie).
Si c'était un problème de syntaxe dans le code, je pense que quelqu'un t'aurait donné une solution depuis longtemps car il ne semble vraiment pas compliqué. Le souci est qu'on ne peut pas corriger un code si on ne comprend pas ce qu'il fait.

Essaie de réexpliquer en donnant un exemple concret, en postant la structure des tables, quelles relations entre les 2, que contient le formulaire, quel est la source de données ...

---

Bonjour,
Oui je vais essayer de réexpliquer.
J'ai un formulaire dont une des données est une liste déroulante qui s'enregistre avec un bouton "enregistrer" du formulaire. Mais chaque fois que l'on change la donnée de cette liste déroulante puis qu'on enregistre, celle ci est écrasée. Je voudrais garder en mémoire uniquement le premier choix enregistré de ce champ, dans une autre table et un autre champ que celui de base.

exemple : Champ 1 Table 1 -> donnée Valeur4.
(après modification : ) Champ 1 Table 1 -> Valeur2.

Ce que j'aimerai, c'est avoir Champ 1 Table 2 -> Valeur4
et qu'après modification, la valeur 4 ne soit pas modifiée elle.

C'est pourquoi j'ai essayé de faire des requêtes ou rajouter un code VBA en relation avec le bouton enregistrer, dont l'idée était que :

Code:

---

IF (Table2.Champ1 = Null (ou isEmpty)) THEN (Table2.Champ1 = Table1.Champ1) ELSE 'ne rien faire'

---

Mais comme j'ai énormément de mal avec Access, à comprendre la base créée par une autre personne, je n'arrive pas à comprendre comment faire. :/

Merci en tout cas, j'espère avoir été plus compréhensible

Bonjour.

Voici une procedure qui fait ce que tu décris et j'ai supposé que ce 1er choix n'est pas unique mais dépend de l'enregistrement courant.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

public sub EnregistrerPremierChoix(prmClefEnr as long, prmChoix as string) dim db as dao.database:set db=currentdb dim r as dao.recordset: set r=db.openrecordset("Table 2", dbOpenDynaset) call r.findfirst("[ClefEnr]=" & prmClefEnr) 'Trouve l'enregistrement de mémorisation   if r.nomatch then r.addnew r![TonChamp]=Null else r.edit end if   if isnull(r![TonChamp]) then 'Ne met à jour que si il n'est pas renseigné (= Null) r![TomChamp]=prmChoix end if   r.update r.close: set r=nothing db.close: set db=nothing end sub

---

Tu peux appeller cette procédure sur l'evenement d'enregistrement du formulaire.

Mais personnellement, plutôt que de mettre le champ dans une autre table, je créerai un champ dans la table 1 et j'y copierai la valeur.
Ca simplifie grandement le problème.

Dans le code associé à l'événement sur MAJ du champ de choix.

Code:

---

1 2 3

if isnull(me.memChoix) then me.MemChoix=me.Choix end if

---

Et ce sera plus facile a récupérer aussi.

A+

Merci marot_r pour ta réponse !!
Je ne comprends pas bien ton code, je n'arrive pas à voir quand celui ci prend la valeur du champ de la table 1 (Ménages.Validation) pour le mettre dans la table 2 (Propositions.Validation1).
J'ai modifié les choses suivantes :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

public sub EnregistrerPremierChoix(prmClefEnr as long, prmChoix as string) dim db as dao.database:set db=currentdb dim r as dao.recordset: set r=db.openrecordset("Propositions", dbOpenDynaset) call r.findfirst("[ClefEnr]=" & prmClefEnr) 'Trouve l'enregistrement de mémorisation, je dois mettre l'ID de la table Ménages ? qui est repris dans la Table Propositions ?   if r.nomatch then r.addnew r![Validation1]=Null else r.edit end if   if isnull(r![Validation1]) then 'Ne met à jour que si il n'est pas renseigné (= Null) r![Validation1]=prmChoix end if   r.update r.close: set r=nothing db.close: set db=nothing end sub

---

Pour la clé, je mets la clé qui est la même sur les deux tables je suppose ?
Pour prmChoix, à quoi correspond il ? A mon champ Validation de la table Ménage ? (celui qui se modifie en écrasant l'enregistrement premier)

Merci de ton aide !

Bonjour.

• set r=db.openrecordset("Propositions", dbOpenDynaset), ce connecte à ta table de mémorisation.
• prmChoix est bien la valeur que tu veux mémoriser de ta table [Ménage].
• prmClefEnr devrait en effet être la même valeur que celle dans ta table principale.

Mais comme je l'ai dit, puisque tu as, selon ce que j'ai compris, une relation 1 à 1, il serait beaucoup plus simple de mettre cette valeur dans la table [Ménage]. À priori, aJouter une table, juste pour mémoriser cette valeur n'a pas grand intérêt.

A+

Bonjour Stigger, René, tee_grandbois,

Si ton champ Table1.Champ1 est toujours renseigné, c'est à dire "Null interdit" tu peux passer par les "Data macros". Sur l'événement après insertion de la table 1 tu inscrits le résultat dans la table 2. Voici un exemple:Pièce jointe 427371

Bonne journée