Discussion :

[joker vb]

Salut,

pfffff, pas facile l'apprentissage,

Voila j'avais posté ici et j'avais réussi m'en sortir (regardez seulement les 2 denriers messages)

Maintenant, depuis le même endroit je veux ouvrir le même formulaire (après sélection de mes listes déroulantes) mais cette fois ci je veux que ces conditions soient respectées :

le formulaire doit s'ouvrir sur le dernier enregistrement où
id_animal = lm_atelier_animal (résultat des listes déroulantes)

Alors, comme

Code :

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

1
2
3
4
5
6
7
8
'Bouton SAISIE dans EVT_UNIQUE
Private Sub BtSaisie_Click()
    'Ouvrir le Formulaire en nouvel enregistrement
    DoCmd.OpenForm "2-07_F_S_Reproduction", acNormal, , , acActiveDataObject
   '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
    'Placer le Focus sur le champ date-chaleur
    Forms![2-07_F_S_Reproduction].[date_chaleur].SetFocus

J'ai tenté de l'adapter:

Code :

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

1
2
3
4
5
6
7
Private Sub BtInsem_Click()
 'Ouvrir le Dernier Formulaire de L'animal
    DoCmd.OpenForm "2-07_F_S_Reproduction", , Forms![2-07_F_S_Reproduction]!id_animal.Value = Me![lm_atelier_animal].Value
    'cocher la case insemination
   'placer le curseur sur...
 
End Sub

et pour

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13

	

	
Code  :
	
Sélectionner tout -
	Visualiser dans une fenêtre à part
	
1234567
Private Sub BtInsem_Click()
 'Ouvrir le Dernier Formulaire de L'animal
    DoCmd.OpenForm "2-07_F_S_Reproduction", , Forms![2-07_F_S_Reproduction]!id_animal. = Me![lm_atelier_animal]
    'cocher la case insemination
   'placer le curseur sur...
 
End Sub

c'est pareil
Quelqu'un à une idée?

[Invité]

Bonjour

Regarde dans l'aide la syntaxe de Docmd.OpenForm, il me semble qu'il y'ait un mauvais emplacement de ton égalité

Starec

[joker vb]

C'est un peu mieux mais ce n'est pas encore ça....
effectivement l'aide m'a permis de voir que je m'étais trompé avec les virgules

Code :

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

DoCmd.OpenForm "Employés", , ,"[Fonction] = 'Représentant(e)'"

Mais en corrigeant je n'ai toujours pas la bonne réponse:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub BtInsem_Click()
 'Ouvrir le Dernier Formulaire de L'animal
    DoCmd.OpenForm "2-07_F_S_Reproduction", , , "[id_animal] = [lm_atelier_animal]"
 
 
   'Champ num_animal = id_animal obtenu par les listes déroulantes à copier automatiquement
 
    'Placer le Focus sur le champ date-chaleur
 
 
End Sub

à noter qu'en remplaçant "[id_animal] = [lm_atelier_animal]" par "[id_animal] = [lm_atelier_animal].value" ou par "[id_animal].value = [lm_atelier_animal].value" cela donne le même résultat

Ce code fonctionne ainsi :
sur clic du bouton une fenêtre de paramètre s'active (je dois rentrer le numéro de l'identifiant à la main) et le formulaire s'ouvre sur le premier enregistrement de cet identifiant.

Ce qui ne va pas:
- cette fenêtre de paramètre ne devrait pas s'ouvrir, la valeur devrait être récupérée automatqiuement dans la liste lm_atelier_animal
- je devrais arriver au dernier enregistrement de cet animal...

Est-ce à cause de ça :

L'objet DoCmd ne prend pas en charge les méthodes qui correspondent aux actions suivantes :
DéfinirValeur. Définissez directement la valeur dans Visual Basic.

[Invité]

Re

Petite question :
[lm_atelier_animal]
est-ce un contrôle de ton formulaire d'où tu lances l'autre où une variable ?

Starec

[joker vb]

C'est mieux, avec cette commande je n'ai plus la fenetre de paramètre :

Code :

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

 DoCmd.OpenForm "2-07_F_S_Reproduction", , , "[id_animal] =" & Me.[lm_atelier_animal]

Maintenant il ne me reste plus qu'à demander le dernier enregsitrement de cet animal

@Starec

est-ce un contrôle de ton formulaire d'où tu lances l'autre où une variable ?

En fait sur mon premier formulaire j'ai 2 listes modifiables:
La première permet le tri des animaux via le champ id_atelier
La deuxième permet donc de choisir un animal dans l'atelier

Et le nom du champ de cette deuxième liste est nommé lm_atelier_animal

le SQL requis est dans le premier message, cf lien donné dans premier post

Merci pour ton aide

[Invité]

Re

En fait tu as répondu à ma question en changeant la fin du DoCmd.OpenForm

Starec

[joker vb]

En fait tu as répondu à ma question en changeant la fin du DoCmd.OpenForm

Cool

Sinon as tu un tuyau pour me permettre de pointer sur le dernier enregistrement de cet id_animal?

[joker vb]

J'ai apparement trouvé:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub BtInsem_Click()
 'Ouvrir le Formulaire de L'animal
    DoCmd.OpenForm "2-07_F_S_Reproduction", , , "[id_animal] =" & Me.[lm_atelier_animal]
    'trouver le dernier enregistrement
    DoCmd.GoToRecord , , acLast
    'Cocher la case inseminee
 
    'placer le curseur sur date-reproduction
 
 
End Sub

En fait, en plus d'apprendre les bases du VB il faut aussi s'habituer à l'aide et à la FAQ dvpz.com