Discussion :

[Catalaburro]

Bonjour à tous,

Je souhaite, en cliquant sur un bouton, arriver directement au champ d'un formulaire A correspondant à un champ de mon formulaire B.
Voici mon code :

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
Private Sub Commande86_Click()
On Error GoTo Err_Commande86_Click
 
    Dim Formulaire As String
    Dim Condition As String
 
    Formulaire = "FConsult"
    Condition = "[IdRes] =" & Me![IdRes]
    DoCmd.OpenForm Formulaire, , , Condition, , , Me.[IdRes]
 
Exit_Commande86_Click:
    Exit Sub
 
Err_Commande86_Click:
    MsgBox Err.Description
    Resume Exit_Commande86_Click
 
End Sub

Mais ça ne marche pas comme je veux. En effet, quand je clique sur mon bouton, une boîte de dialogue surgit d'on-ne-sait-où avec en "en-tête" la valeur du champ IdRes du formulaire B. Je dois saisir à la main dans la boîte de dialogue le nom du champ du formulaire A. Pas très efficace...
A quel niveau ça foire ?

Merci d'avance!

[seb92400]

Hi,

Tu devrais jeter un oeil ici...

[Catalaburro]

Salut Noawsen,

Le problème c'est que, lorsque je déclare

Code :

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

Condition = "[IdRes] =" & Forms![FConsult]![IdRes]

le formulaire FConsult n'est pas encore ouvert, et j'ai une erreur... J'avais déjà testé cette solution après avoir parcouru la FAQ.

[seb92400]

Bah... Euh... Tu veux faire quoi exactement ??

Le bouton dont tu parles est sur le formulaire B et tu veux en cliquant sur ce bouton atteindre un enregistrement de ce même formulaire en fonction d'une valeur contenue dans un autre formulaire ? C'est bien ça ?

Tu peux utiliser la commande GoTorecord. Comme ton formulaire A est fermé, tu devras, je pense, utiliser également une instruction comme DLookUp ou créer un RecordSet...

[Catalaburro]

Je vais essayer d'être plus clair:

Sur le formulaire B se trouve un champ "IdRes" et un bouton.
Sur le formulaire A se trouve le même champ "IdRes".
Je suis sur mon formulaire B, je vais sur l'enregistrement où IdRes=Blabla et je clique sur un bouton qui, dans le meilleur des monde, m'envoie sur le formulaire A ou IdRes=Blabla.

Mais ça ne marche pas

[seb92400]

A essayer...

Code :

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

DoCmd.OpenForm "FormulaireA", , , "[IdRes]= " & Me.IdRes

[joker vb]

Salut,

je vous préviens je suis un newbie

Moi j'ai fait comme ça

Code :

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

1
2
3
4
5
6
Private Sub BtChaleur_Click()
    'Ouvrir le Formulaire en nouvel enregistrement
    DoCmd.OpenForm "2-07_F_S_Reproduction", acNormal, , , acFormAdd
   'Champ num_animal = id_animal obtenu par les listes déroulantes à copier automatiquement
    Forms![2-07_F_S_Reproduction]!id_animal.Value = Me![lm_atelier_animal].Value
End Sub

Je suis dans le formulaire A, je récupère la valeur de la liste modifiable du formulaire A et je la copie dans le champ id_animal du formulaire B

J'ai testé et ça fonctionne, en espérant que cela vous aide