Discussion :

[borisp]

Bonjour le forum,

Dans un formulaire de modification je charge des infos présentes dans la table que je souhaite modifier grâce à ce 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
Private Sub Stagiaire_AfterUpdate()
 
On Error GoTo Stagiaire_AfterUpdate_Err
 
    DoCmd.GoToControl "NUM_DOSSIER"
    DoCmd.FindRecord Forms!MODIF_COUTS!Stagiaire, acEntire, False, , False, acCurrent, True
 
Stagiaire_AfterUpdate_Exit:
    Exit Sub
 
Stagiaire_AfterUpdate_Err:
    MsgBox Error$
    Resume Stagiaire_AfterUpdate_Exit
End Sub

On sélectionne un stagiaire dans une liste déroulante dépendante d'une autre liste de numéros de dossier.

Je rencontre un problème lorsqu'un même stagiaire se trouve dans deux dossiers différents : les infos qui se chargent sont celles du premier dossier (enregistrement) saisi pour ce stagiaire.

Ce que j'essaye de faire, c'est de charger les infos en fonction du numéro de dossier ET du nom du stagiaire.

Est-ce réalisable?

Merci d'avance!

[marot_r]

Essaye avec quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
private sub TrouverEnr(prmClefDossier as variant, prmClefStagiaire as variant)
 
   if not isnull(prmClefDossier) and not isnull(prmClefStagiaire) then
     dim r as dao.recorset:set r=me.recordset
     r.findfirst("[ClefDosier]=" & ClefDossier & " AND [ClefStagiaire]=" & prmClefStagiaire)
 
     if r.nomatch then
       msgbox "Pas d'enr"
     end if
 
     set r=nothing
   end if
 
end sub

J'ai supposé que ClefDossier et ClefStagiaire sont numériques. Si ce sont des textes il faut mettre

Code :

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

     r.findfirst("[ClefDosier]=""" & ClefDossier & """ AND [ClefStagiaire]=""" & prmClefStagiaire & """")

A+

[borisp]

Merci pour ta réponse,

cependant je ne sais pas ou mettre le code, j'ai essayé dans Afterupdate et il me sort "erreur de compilation, objet non défini par l'utilisateur...", j'ai essayé en cochant la référence Microsoft Dao 3.x library ça n'a rien fait. Et ne faut il pas que je cite ma table un moment ou un autre dans ton code?

Merci pour ton aide!

[marot_r]

Il faut ajouter la sub à ton formulaire puis remplacer

Code :

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

DoCmd.FindRecord Forms!MODIF_COUTS!Stagiaire, acEntire, False, , False, acCurrent, True

dans AfterUpdate

Code :

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

call TrouverEnr(me.NomTonChampClefDossier, me.NomTonChampClefStagiaire)

A+

[borisp]

J'ai encore l'erreur de compilation type non défini par l'utilisateur

Et je dois mettre exactement comme toi prmClefDossier ? ou mettre le champ de mon formulaire?

UN GRAND MERCI!

[marot_r]

Tu dois mettre le code de la sub tel que je l'ai tapé.

C'est au moment de l'appel qu'il faut mettre le nom du champ qui contient l'info.

Code :

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

call TrouverEnr(me.NomTonChampClefDossier, me.NomTonChampClefStagiaire)

A+

[borisp]

J'ai recopié exactement ton code en mettant mais deux noms de champ ou il faut et il me sort : Erreur de Compilation : Membre de méthode ou de donnéees introuvable...

[marot_r]

Peux-tu poster la ligne de code qui génère l'erreur ?

A+