Discussion :

[steph_p]

Bonjour,
Je cherche à réunir les informations de différentes tables dans un même formulaire. Toutes ces tables sont reliées par un champ : "num_collection". Je voudrais donc qu'une fois le numéro de collection choisi, il soit affiché par défaut les informations correspondant à ce numéro dans différentes zones de texte.
Voici le code que j'ai fait pour afficher le dernier numéro entré :

Code :

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

1
2
3
4
5
6
 
Private Sub Texte0_BeforeUpdate(Cancel As Integer)
    Dim lngDerID As Long
    lngDerID = DMax("num_collection", "desc_espece")
    Texte0.Value = lngDerID
End Sub

J'avoue que je débute en VBA même si j'ai des bonnes bases dans d'autres languages de programmation.
Merci de votre aide.

[lvr]

Si je comprends ce que tu veux faire:
1) L'utilisateur introduit un num_collection,
2) tu recherches des données de plusieurs tables sur base de ce numéro,
3) ces valeurs deviennent les valeurs par défaut de ta forme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub num_collection_AfterUpdate()
    ' 1)+2) Le numéro a été mis à jour on recherche les valeurs dans d'autres tables
    myset=currentdb.openrecordset(un_ordre_sql)
 
    if (not(myset.EOF)) then
        ' 3) des données ont été trouvées, on les utilise comme valeurs par défaut
        myset.MoveFirst
        me.text0.defaultvalue=myset!text0
        me.text1.defaultvalue=myset!text1
        me.text2.defaultvalue=myset!text2
        ...
 
    Else
        ' Pas trouvé faire autre jour
        endif
 
End sub

[steph_p]

Je vais voir si cela fonctionne.
En fait ce n'est pas l'utilisateur qui va rentrer le numéro de collection mais je voudrais qu'automatiquement à l'ouverture du formulaire, ce soit le dernier numéro qui soit rentrer.
Je suppose que c'est la même procédure mais comment faire l'UPDATE de ce champ ?
Merci d'avance

[lvr]

Tu te poser comme question: qu'est ce qui va déclencher la mise à jour du champs ? L'ouverture, la sauvegarde du record en cours, ....

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
'récupération des valeurs par défaut à l'ouverture la forme
Private Sub Form_Open()
    GetID()
End Sub
 
'récupération des valeurs par défaut après validation du record en cours
Private Sub form_AfterUpdate()
    GetID()
End Sub
 
Private Sub GetId()
    ' 1) récupérer le dernier ID
    Dim lngDerID As Long
    lngDerID = DMax("num_collection", "desc_espece")
    Texte0.Value = lngDerID
 
    ' 2) Rechercher les valeurs dans d'autres tables
    myset=currentdb.openrecordset(un_ordre_sql)
 
    if (not(myset.EOF)) then
        ' 3) des données ont été trouvées, on les utilise comme valeurs par défaut
        myset.MoveFirst
        me.text0.defaultvalue=myset!text0
        me.text1.defaultvalue=myset!text1
        me.text2.defaultvalue=myset!text2
        ...
 
    Else
        ' Pas trouvé faire autre chose
        endif
 
End sub

Dernière remarque: je te suggère d'utiliser "text0.DefaultValue" plutôt que "text0.Value" car mettre une valeur dans "Value" bascule ton record en mode édition, alors que "DefaultValue" permet de proposer une valeur par défaut.
La propriété "DefautValue" est requiert cependant un formatage un peu spéciale. Regarde ce post ici.

[steph_p]

Merci pour toutes ces informations :
Voilà ce que j'ai fait

Code :

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

1
2
3
4
5
6
Private Sub formulaire_Open()
    Dim lngDerID As Long
    lngDerID = DMax("num_collec", "desc_espece")
    Texte0.DefaultValue = lngDerID
    MAJ (lngDerID)
End Sub

Lorsque j'ouvre mon formulaire tout se met à jour parfaitement sauf la valeur Texte0.DefaultValue qui a un curseur qui clignote dedans à la place...
Merci pour ton aide et tes conseils

[lvr]

Heureux que ça fonctionne.
Pense au tag "Résolu" alors.

[steph_p]

En fait, je me rend compte que je n'ai pas été assez précise dans mon précédent mail.
Lors de l'ouverture du formulaire, tous les champs sont mis à jour sauf celui du numéro de collection où le curseur se place automatiquement dans une cellule vide. Est-ce normal ?

[lvr]

JE crois qu'il va falloir que tu reprécises ce que tu veux faire !!


Tu as une forme liée à un query réunissant des données de plusieurs tables.
Quand tu ouvres la forme, tu souhaites que le dernier record te soit affiché.

Est-ce bien ça ?

[steph_p]

Je veux que lors de l'ouverture du formulaire s'affiche les informations liées au dernier numéro de collection entré.
Apparement le code cité au-dessus fonctionne parfaitement vu que toutes les cases de mon formulaire se mettent à jour SAUF une!
C'est celle qui est censé contenir "lngDerId". En effet le curseur vient se positionner par défault dans cette case effaçant la valeur inscrite.

[lvr]

J'avoue ne pas bien comprendre qu'est qui guide quoi !!!!
Attache ta db, je regarderai ce soir.

[steph_p]

J'ai plusieurs tables qui sont reliées entre elles par un numéro de collection : une table pour les caractéristiques sexuelles de l'animal, une pour les espèces, une pour l'âge.
J'ai donc fait un formulaire rassemblant ces différentes informations afin de permettre à l'utilisateur de pouvoir vérifier les données qu'il a rentré dans chaque table séparément.
Je souhaiterai donc qu'à l'ouverture de mon formulaire la dernière entrée soit affichée.
Pour cela j'ai créé une procédure de mise à jour qui prend en entrée le numéro de collection et qui met à jour tous les autres champs du formulaire.
J'ai donc un problème sur ma fonction d'Ouverture de formulaire car je n'arrive pas à obtenir l'affichage automatique de la dernière entrée. Par contre ma procédure de mise à jour fonctionne car si je rentre manuellement une entrée alors la mise à jour s'effectue parfaitement.
Je joins ma base de donnée pour plus de clareté.

[steph_p]

J'ai réussi à me débattre avec la fonction Open du formulaire donc c'est reglé.
Merci pour le coup de main.