Discussion :

[imagine_forty]

Bonjour à tous,
Je rencontre le problème suivant :
Je souhaiterais pouvoir à partir d'un formulaire "Detail d'un Livre" appeler un autre formulaire "location Livre" dans lequel je sélectionne un membre dans une liste déroulante.
le form. détail est basé sur ma tblBiblio l'autre sur requête tblLocation+tblMembres

sur mon cmd "Prêter Livre" j'ai le code événement suivant

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
 
Private Sub cmdPretDoc_Click()
On Error GoTo Err_cmdPretDoc_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    stDocName = "frmPretBook"
 
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.FindRecord [IDBook], , , , , acCurrent
 
Exit_cmdPretDoc_Click:
    Exit Sub
Err_cmdPretDoc_Click:
    MsgBox Err.Description
    Resume Exit_cmdPretDoc_Click
End Sub

Cela ne marche pas car la relation n'est pas trouvée IDBook (dans tblBiblio) = IDBook (dans requete tblLocation + tblMembres)

Comment contourner ce problème, désolé mais je ne suis pas un spécialiste comme la plupart d'entre vous.
Merci à qui pourra m'aider ou me conseiller.

[ClaudeLELOUP]

Bonjour imagine_forty,

je te suggère de remplacer le code actuel de ton bouton par celui-ci

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub cmdPretDoc_Click()
Dim arg As String
    arg = Me.LivreN°   '--> mémoriser le code à rechercher
    DoCmd.OpenForm "frmPretBook" '---> ouvrir le formulaire
    DoCmd.GoToControl "TxtLivreCode"  '--> se positionner dans
                                       'le contrôle qui contient le code livre
    DoCmd.FindRecord arg  '--> rechercher celui qui convient
End Sub

[imagine_forty]

Bonjour Claude,

Grand merci pour ta réponse.
Je viens de remplacer le code initial par celui que tu m'as proposé et qui donne dans mon applic. ceci.

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub cmdPretDoc_Click()
Dim arg As String
    arg = Me.IDBook   '--> mémoriser le code à rechercher
    DoCmd.OpenForm "frmPretBook" '---> ouvrir le formulaire
    DoCmd.GoToControl "IDBook"  '--> se positionner dans
                                       'le contrôle qui contient le code livre
    DoCmd.FindRecord arg  '--> rechercher celui qui convient
End Sub

En fait les deux marche (j'ai conservé ton code) le problème venait d'une autre procédure évenementielle sur afterUpdate du S/formulaire et qui me donnait une erreur de debug 438 ( j'ai supprimé cette dernière et tout est rentré dans l'ordre). Bref cela marche maintenant et je peux poursuivre. Merci encore pour ta disponibilité.

Elyan,