Discussion :

[adelion7015]

Bonjour,

J'utilise ce code pour ouvrir un formulaire sur un enregistrement donné, c'est a dire en cliquant sur le champ ayant une valeur du formulaire source, pour qu'il m'ouvre un formulaire de destination selon la valeur sélectionnée.

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 ID_budget_Click()
 Dim vr As Variant
vr = Me.ID_budget
 DoCmd.OpenForm FormName:="f_projet", OpenArgs:=vr
  Dim rs As DAO.Recordset
 
    Set rs = Forms("f_projet").RecordsetClone
 
    rs.FindFirst "[ID_budget] = " & Me.[ID_budget] & ""
    If rs.NoMatch Then
        MsgBox "Périmètre inexistant ! Voulez-vous le saisir ?"
        DoCmd.GoToRecord , , acNewRec
    Else
        Forms("f_projet").Recordset.Bookmark = rs.Bookmark
 
    End If
 
End Sub

Ca marche bien, sauf que la valeur ID_budget concerne deux formulaires, [f_projet] et [f_budget], serait il possible d'ouvrir selon la valeur selectionnée sur le formulaire source ouvrir, en cliquant ca m'ouvre soit le [f_projet] ou le [f_budget] ?

Merci.

Cordialement.

[tee_grandbois]

bonjour,

serait il possible d'ouvrir selon la valeur selectionnée sur le formulaire source ouvrir, en cliquant ca m'ouvre soit le [f_projet] ou le [f_budget] ?

je ne vois pas comment si ce n'est en indiquant dans le formulaire appelant lequel doit être ouvert (soit par une case à cocher ou bouton radio ou encore une boite message)

[adelion7015]

bonjour tee_grandbois,

Merci pour la réponse, donc je comprend qu'il n'est pas possible de mettre dans le même code une sorte de choix ? encore faut il connaître a qui appartient l'ID_budget si c'est pour le [f_projet] ou le [f_budget].


que me conseillez vous ?

[loufab]

Bonjour,

un bouton Projet et un bouton Budget.

Cordialement,

[tee_grandbois]

une suggestion de code avec la boite message:

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
Private Sub ID_budget_Click()
 Dim vr As Variant
 Dim strFrm As String
 Dim vrReponse As Variant
 Dim rs As DAO.Recordset
 vr = Me.ID_budget
 
 vrReponse = MsgBox("Voulez-vous ouvrir le formulaire projet (répondre oui) ou le formulaire budget (répondre non) ?", vbYesNoCancel + vbDefaultButton1 + vbQuestion)
 Select Case vrReponse
    Case vbYes, vbNo    ' chargement du formulaire selon la réponse choisie
        If vrReponse = vbYes Then strFrm = "f_projet" Else strFrm = "f_budget"
 
        DoCmd.OpenForm FormName:=strFrm, OpenArgs:=vr
        Set rs = Forms(strFrm).RecordsetClone
 
        rs.FindFirst "[ID_budget] = " & Me.[ID_budget] & ""
        If rs.NoMatch Then
            MsgBox "Périmètre inexistant ! Voulez-vous le saisir ?"
            DoCmd.GoToRecord , , acNewRec
        Else
            Forms(strFrm).Recordset.Bookmark = rs.Bookmark
        End If
 
 End Select
 
End Sub

[adelion7015]

bonjour,

Voila ca marche, pour l'instant c'est a l'utilisateur de savoir de quel ID il s'agit et quel formulaire il va ouvrir, en attendant une solution plus pertinente.

Merci Tee_grandbois et merci Loufab.

Cordialement.