[Formulaire] [Debutant] Ouvrir enregistrement d'un formulaire via un bouton controle

**rorobase** · 22/11/2006, 14h46

Bonjour, mon problème est assez simple mais je n'arrive pas à obtenir ce que je souhaite.
En fait j'ai un bouton sur un formulaire et lorsque je clic sur ce bouton j'aimerai qu'il m'ouvre un enregistrement spécifique sur un autre formulaire. Mon code est:

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
Private Sub Commande35_Click()
On Error GoTo Err_Commande35_Click
 
    Dim stDocName As String
    Dim stLinkCriteria As String
 
    stDocName = "Formulaire Mini PMV"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
 
Exit_Commande35_Click:
    Exit Sub
 
Err_Commande35_Click:
    MsgBox Err.Description
    Resume Exit_Commande35_Click
 
End Sub

J'aimerai donc ouvrir l'enregistrement nommé PMVL_AA_113. Que dois je rajouter dans mon code?

**keita** · 22/11/2006, 14h52

bonjour
tu regardes ici
http://access.developpez.com/faq/?page=Forms#PassValeur
et t'es pas satisfait tu regardes dans l'aide d'access ce qu'on dit de openargs
@+

**bizu31** · 22/11/2006, 14h59

utilise des variables globales pour stocker les valeurs de clef primaire qui t'interessent, c pas très joli, mais tellement plus facile

**rorobase** · 22/11/2006, 15h28

J'ai bien vu vos messages mais je ne parviens toujours pas à acceder à la page souhaitée. Voici le code que j'ai mis en place

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
Sub OpenToPMVL_AA_113()
 
    DoCmd.OpenForm "Formulaire Mini PMV", acNormal, , , _
        acReadOnly, , "PMVL_AA_113"
 
End Sub
 
Sub Form_Open(Cancel As Integer)
 
    Dim strTatouage_PMV As String
    ' If OpenArgs property contains employee name, find
    ' corresponding employee record and display it on 
    ' form. For example,if the OpenArgs property 
    ' contains "Callahan", move to first "Callahan" 
    ' record.
    strTatouage_PMVL = Forms!Formulaire Mini PMV.OpenArgs
    If Len(strTatouage_PMVL) > 0 Then
        DoCmd.GoToControl "Tatouage PMVL"
        DoCmd.FindRecord strTatouage_PMVL, , True, , _
           True, , True
    End If
 
End Sub

Ca me parait etre bon d'après l'exemple trouvé sur l'aide access mais systematiquement ca m'ouvre le premier enregistrement de mon formulaire