Discussion :

[Nicolas_geologue]

Bonjour

J'ai une base de donnée géologique a développer voila la structure de la partie qui m'intéresse actuellement:

2 table:
1 table point avec un ID_point numérique (pas un numéroAuto)
1 table sampling avec son identifiant (numéroAuto) et un champ dans lequel je voudrais mettre la valeur du ID_point auquel l'échantillon est lié.

Les deux tables ont une relation de type 1,plusieurs avec le 1 sur la table point.

J'ai fait un formulaire pour ma table point et je suis en train de faire celui pour la table Sampling. L'objectif c'est de faire un bouton sur le formulaire point qui ouvrirai le formulaire Sampling et remplirait en même temps le champ ID_point de la table Sampling avec la valeur ID_point de la table point a laquelle l'échantillon est lié.

Je ne suis pas bien versé dans le code VBA (en fait ça fait longtemps^^) et j'aimerais évité de passer par le code. Si c'est néanmoins indispensable, merci de bien détailler l'opération.

[pkrvz]

il faut que tu fasses un sous formulaire dans ton formulaire en mettant dans le formulaire principal "point" comme champs père ID_point et ID_point en champs fils dans le sous formulaire "sampling".

Tu auras tout sur le même écran. Maintenant si tu veux des fenêtres séparés pour les 2 formulaires faut faire un peu de VBA. En résumé faut ouvrir le formulaire fils en le filtrant sur le champs ID_point.

exemple:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
Private Sub ouvreFormulaire()
Dim stDocName As String
Dim stLinkCriteria As String
 
    stDocName = "F-Sampling"
    stLinkCriteria = "[T-Point].IDpoint=" & me!ID_point
    DoCmd.OpenForm stDocName, , , stLinkCriteria
   End If
 
End Sub

Bon courage.

[Nicolas_geologue]

Je vais donc me résoudre a faire du code, puisque comme vous vous en doutez, je n'ai pas que la table Sampling qui est liée a la table Point

Juste une question par contre, que signifient les virgules dans ta dernière ligne de code? est ce que je doit les remplacer par quelques chose?

En tout cas merci pour la réponse.

Juste pour info, je suis géologue géomaticien stagiaire et je bosse sur un projet de prospection en Guinée (ou je suis actuellement) et je doit donc mettre rapidement en place la base pour remplacer l'ancienne (en fait une compilation de tableaux exel, fichiers gps....) de manière a rendre la chose plus simple.

Je pense que ce ne sera pas le seul probleme auquel je me heurterais.

[Invité]

Bonjour

Juste une question par contre, que signifient les virgules dans ta dernière ligne de code? est ce que je doit les remplacer par quelques chose?

Les virgules servent à séparer les arguments, quand on ne met rien c'est que ces arguments sont facultatifs, et prennent les valeurs par défaut.
Si tu regardes dans l'aide VB l'instruction, celle-ci te donnera les valeurs par défaut.

Juste pour info, je suis géologue géomaticien stagiaire et je bosse sur un projet de prospection en Guinée (ou je suis actuellement) et je doit donc mettre rapidement en place la base pour remplacer l'ancienne (en fait une compilation de tableaux exel, fichiers gps....) de manière a rendre la chose plus simple.

Je pense que ce ne sera pas le seul probleme auquel je me heurterais.

Joli projet et bon courage, reviens nous voir si tu as des soucis, en exposant bien ton problème.

Starec

[Nicolas_geologue]

Euh t'es sur qu'il marche le code?

Parce qu'il ne veux pas prendre le me! et il n'y a pas de If avant ton end if (j'ai essayé, ca marche pas

Sinon pour la mise en place de ce code, je le met dans un module que j'appelle lorsque je clic sur le bouton qui va bien c'est ca?

je trouve quand même bizarre qu'il n'y ai pas plus simple pour rentrer le ID_Point dans une table avec laquelle elle est liée

[Renardo]

Vérifier le nom des formulaires le nom des champs le end if est inutile

[pkrvz]

désolé, effectivement le "end if" ne sert à rien je me suis trompé en collant le code.

[Invité]

désolé, effectivement le "end if" ne sert à rien je me suis trompé en collant le code.

Alors résolu ? Si oui, il faut cliquer sur le bouton

Starec

[Nicolas_geologue]

Ben non pas encore, mais je vous dirais mes soucis demain matin.

En tout cas merci pour votre aide
Si vous voulez voyager un peu avec moi:
http://geologueenguinee.blogspot.com/

[Nicolas_geologue]

Le code a l'air de marcher mais je n'arrive pas a l'appeler lorsque je clique sur le bouton qui va bien. Je ne connais pas le code qui pourrais me permettre d'appeler le module dans le code de la commande.

[pkrvz]

il faut que tu colles le code dans la procédure evénementielle du bouton "Sur click". Ca ira tout seul....

[Nicolas_geologue]

Bon ca ne marche pas, je laisse tomber on remplira le champ a la main (on est dans un esprit ou il ne faut pas perdre de temps sur place, quite a reprendre apres les structures...)

J'ai un autre soucis:

Dans mes tables j'ai des champs en liste déroulante. Les valeurs dedans son numérique (pour la rapidité de calcul) mais les nombres correspondent a des codes qui renvoient a un texte, stocké dans une table index. J'arrive a faire en sorte que la table garde en mémoire le numéro, et affiche le texte, mais je n'arrive pas a faire la même chose dans le formulaire. Pitié, dites moi qu'il y a moyen de passer autrement que par le code.

Pour info j'utilise access 2003.

Merci beaucoup

[Renardo]

Si tu peux mettre ta bd sur le forum on y verra plus claire et cela évitera de tourner en rond

[Nicolas_geologue]

Euh je fait comment pour faire ca?

[Renardo]

Tu zip ta BD et tu le joint en piece jointe

[Nicolas_geologue]

voila la base zippée.

[Renardo]

Je prend un exemple
Dans ton form PointFormulaire la liste Outcrop_Type
dans le tableau des proprietées tu rentre
Nbr de colonnes 2
largeur colonne 0

[Nicolas_geologue]

bon j'ai trouvé la solution pour ma première question, il suffit en fait de mettre l'expression qui appelle la valeur de l'autre formulaire dans le parametre "valeur par defaut" du controle qui va bien, on met ensuite dans le parametre "Source controle" le nom du champ et hop c'est parti.

Pour la deuxieme question j'avais trouvé la réponse, merci quand même