Discussion :

[Stigger]

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 :

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

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 :

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

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,

[marot_r]

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+

[Stigger]

Bonjour,

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



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

Code :

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

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

[Stigger]

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

Code :

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

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.

[Stigger]

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

Code SQL :

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

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 ?

[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 ...

[Stigger]

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 :

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

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