Récupérer une valeur dans un champ d'une autre table [Résolu]

[Kareg]

Bonjour,

Voici mon problème : j'ai deux formulaires, Form1 et Form2, lié par la clé primaire WellID (leur source est respectivement Tbl1 et Tbl2).
Form2 s'ouvre à partir de Form1, et je souhaiterai qu'un champ (appelé TopDepth) de Form2 récupère par défaut la valeur entrée dans un champ (appelé WellZ) du Form1.
Sachant qu'ensuite selon les enregistrements je souhaiterai pouvoir la modifier.

Etant une girouette (et une quiche) quand il s'agit de faire un choix, je ne sais pas vers quelle direction je dois creuser.
Est-ce qu'il faut faire une requête sur le champ TopDepth, reprenant la valeur de WellZ, ou bien entrer une formule dans la propriété "valeur par défaut" à l'aide du générateur d'expressions (J'ai essayé ces 2 possibilités, sans résultats, mais sans conviction non plus!), ou autre ?

Merci d'avance si vous pouvez m'aiguiller un tant soit peu,

Kareg.

[Kareg]

Est-ce qu'une requête mise à jour de ce type est une bonne piste :

Code :

1
2
UPDATE Form1, Form2 SET Form2.TopDepth = Form1.WellZ
WHERE Form2.WellID=Form1.WellID;

je nage !

[Siguillaume]

Bonjour!
J'ai moi aussi deux solutions à te proposer:
- la première, la plus compliquée (relativement bien sûr), est de déclarer une variable dans un module de ta BD, et lorsque tu passe de Form1 à Form2, dans le code VBA du bouton de passage, tu dis à cette variable de recevoir la valeur de ton champ. Et la valeur par défaut du champ correspondant dans Form2, sera le nom de cette variable;
- la seconde, est tout simplement de mettre dans la propriété valeur par défaut, [Form1]![nom_du_champ]. Mais l'inconvénient ici est que Form1 doit être ouvert pour que cela fonctionne.
Voici ce que je peux te proposer
D'autres diront peut-être mieux...

[Kareg]

Bonjour Danjos,

j'avais tenté la seconde solution, mais elle ne fonctionne pas, pourtant Form1 est bien ouvert... Je ne comprends pas ce qu'il manque...

En attendant je vais essayer de ce pas la première solution!

Merci bien !

[Siguillaume]

Envoyé par Kareg

Est-ce qu'une requête mise à jour de ce type est une bonne piste :

Code :

J e n'ai jamais essayé de requêtes sur les formulaires de cette façon
Mais je pense que le SQL est reservé aux objets SQL: tables requêtes,vues,etc..Les formulaires n'en font pas partie.

[Siguillaume]

Envoyé par Kareg

Bonjour Danjos,

j'avais tenté la seconde solution, mais elle ne fonctionne pas, pourtant Form1 est bien ouvert... Je ne comprends pas ce qu'il manque...

Tu peux me donner une idée du message d'erreur retournée, ça pourrait donner des idées..

[Kareg]

la première, la plus compliquée (relativement bien sûr), est de déclarer une variable dans un module de ta BD, et lorsque tu passe de Form1 à Form2, dans le code VBA du bouton de passage, tu dis à cette variable de recevoir la valeur de ton champ. Et la valeur par défaut du champ correspondant dans Form2, sera le nom de cette variable

Alors, j'ai donc essayé, et comme je tatonne complet ça n'a pas marché :-(

Voilà ma déclaration de variable, mais je ne sais pas si c'est comme ça qu'il faut faire :

Code :

Private Zlevel As String

Ensuite sur l'évènement OnClick du bouton de passage :

Code :

1
2
3
Private Sub WellstoTracks_Click()
Zlevel = [WellZ]
End Sub

Et puis enfin la valeur par défaut du champ dans Form2 = Zlevel

y'a sûrement des aberrations ...

Edit: Concernant la 2nde solution, il n'y a pas de messages d'erreur, ça ne donne rien, le champ reste vide.

[Siguillaume]

Envoyé par Kareg

Code :

Private Zlevel As String

c'est bon.

Envoyé par Kareg

Code :

remplace la par:

Code :

1
2
 
Zlevel=WellZ.value

On peu tjrs revoir la première solution si tu me donne une idée du mesage d'erreur qui s'affichait

[Kareg]

Ca ne fonctionne pas ...

Il n'y a pas de message d'erreur, simplement rien ne s'affiche dans le champ du Form 2.

Et c'est la même chose pour les 2 solutions (pas de message d'erreur)...

Le problème vient peut-être de la valeur par défaut spécifiée : est-ce bien dans la propriété "valeur par défaut" qu'il faut entrer "=Zlevel" ?

Et dans le code:

Code :

Zlevel=WellZ.value

ne manque-t-il pas quelquechose pour spécifier que WellZ provient du form1 ?

Je suppute, je suppute...

[Siguillaume]

Bon voilà, pour une question d'efficacité, choisissons l'une des méthodes et cogitons là dessus. Je propose celle du VBA: c'est beaucoup plus formateur...

Envoyé par Kareg

Le problème vient peut-être de la valeur par défaut spécifiée : est-ce bien dans la propriété "valeur par défaut" qu'il faut entrer "=Zlevel" ?

C'est possible!
On va essayer avec autre chose. Toujours du VBA, par exemple.

Envoyé par Kareg

Et dans le code:

Code :

Zlevel=WellZ.value

ne manque-t-il pas quelquechose pour spécifier que WellZ provient du form1 ?

c'est possible!tout dépend du formulaire qui contient ce code. Si ce n'est pas form1 ,alors il faut faire [Forms]![form1]![WellZ].
Bref.
Voici une proposition plus structurée que tu vas essayée:
dans form1, dans le code VBA du bouton qui doit ouvrir form2, tu écris ceci:
(form2 est supposé fermé avant l'exécution du code)

Code :

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub ...(le nom du bouton)
on error goto Err_
docmd.openForm "form2"
[Forms]![form2]![TopDepht]=[Forms]![form1]![WellZ]
 
Exit_:
exit sub
Err_:
Msgbox Err.description 'pour nous afficher le message d'erreur correspondant
Resume Exit_
End Sub

Rassure-toi que c'est effectivement le nom des objets, et ne met rien dans la valeur par défaut.

[Kareg]

Ca marche parfaitement, super

Et maintenant comment faire pour qu'on puisse modifier cette valeur, et garder en mémoire la valeur éventuellement entrée à la place ?

Car là évidemment si je modifie le champ dans form2, ça le prend bien en compte, mais si je reviens par form1 la valeur est de nouveau modifiée...

Merci bcp !

[Siguillaume]

Envoyé par Kareg

Et maintenant comment faire pour qu'on puisse modifier cette valeur, et garder en mémoire la valeur éventuellement entrée à la place ?
Car là évidemment si je modifie le champ dans form2, ça le prend bien en compte, mais si je reviens par form1 la valeur est de nouveau modifiée...

Je comprends pas bien ce que tu veux dire.
En modifiant la valeur du champ dans form2, est ce cette nouvelle valeur dans form2 qu'on a dans form1? ça m'étonnerait...
Sois plus explicite sur la sauvegarde que tu veu faire

[Kareg]

En modifiant la valeur du champ dans form2, est ce cette nouvelle valeur dans form2 qu'on a dans form1? ça m'étonnerait...

Non en fait il faudrait que les quelques enregistrements qui auront une nouvelle valeur dans form2 (comprendre: une valeur différente de celle de form1), puissent garder cette information...

Or ça pose problème puisque le code est placé dans le bouton de passage, et qu'à chaque passage la valeur de form1 sera de nouveau de mise...

j'avoue que je ne vois pas du tout comment faire !

Edit: Je précise bien qu'il n'y aurait que quelques enregistrements concernés.

[Siguillaume]

Si je comprends bien ton problème, il s'agit de modifier des enregistrements automatiquement à partir d'une seule modification faite sur un formulaire, pour l'un de ces enregistrements?
Est ce cela?
Jusque là, ce qu'on a fait, ne concerne pas directement les enregistrements, mais plûtot l'affichage dans les formulaires.
Tu peux aussi me donner la relation entre les tables. Peut-être que je verrai mieux..

[Kareg]

En fait c'est bon !

En voulant expliquer je me suis rendu compte de la solution, je m'étais embrouillé tout seul. En fait ce que je cherchais à faire revenait à rajouter un nouvel enregistrement dans Form2 (tbl2), avec la valeur TopDepth souhaitée, ce qui était permis au vu des relations entre les 2 tables...

Bref, tout va bien, merci bcp pour votre aide et votre patience


Kareg.

[Siguillaume]

Ok! Pas de quoi
Tu peux toujours poster si tu as des difficultés, et surtout fais souvent des tours sur le forum pour voir si tu ne peux pas apporter tes expériences à quelqu'un qui est fasse à une difficulté que tu aurais dejà

Bonne continuation