Discussion :

[xmarabout]

Bonjour,

Y a-t-il moyen de créer un hyperlien qui pointerait vers un formulaire ouvert vers un enregistrement spécifique?

Je m'explique: l'équipe A rempli un formulaire (enregistrement X) et envoi (mail généré en VBA) une notification à l'équipe B qui devrait pouvoir réouvrir ce formulaire à l'enregistrement X le plus automatiquement possible (c'est pourquoi je pensais à un hyperlien intégré dans le mail envoyé par l'équipe A)

Je devrais pouvoir faire quelque chose avec une ouverture d'Access paramétrée (http://loufab.developpez.com/tutorie...commande/#L6.1) mais je ne vois pas comment structurer les paramètres à envoyer pour avoir le formulaire et l'enregistrement

Merci

[xmarabout]

Bonjour,

Y a-t-il moyen de créer un hyperlien qui pointerait vers un formulaire ouvert vers un enregistrement spécifique?

Je m'explique: l'équipe A rempli un formulaire (enregistrement X) et envoi (mail généré en VBA) une notification à l'équipe B qui devrait pouvoir réouvrir ce formulaire à l'enregistrement X le plus automatiquement possible (c'est pourquoi je pensais à un hyperlien intégré dans le mail envoyé par l'équipe A)

Je devrais pouvoir faire quelque chose avec une ouverture d'Access paramétrée (http://loufab.developpez.com/tutorie...commande/#L6.1) mais je ne vois pas comment structurer les paramètres à envoyer pour avoir le formulaire et l'enregistrement

Merci

OK Résolu avec une ligne de commande D:\Documents\Test\bdd.accdb /cmd "1 2" (ou 1 serait le formulaire et 2 l'ernregistrement)
et dans une fonction startup() qui se lance en autoexec:

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
    Function Startup()
        Dim monparam(1)                                  
        Dim v_form As String
        'MsgBox Command()
        monparam(0) = Left(Command(), 1)
        monparam(1) = Right(Command(), Len(Command()) - 2) 
 
        Select Case monparam(0)
            Case 1
                v_form = "F_PP"
          'MsgBox monparam
           Case 2
                v_form = "F_PN"
            Case 3
                v_form = "F_RR"
            Case 4
                v_form = "F_PO"
        End Select
        sWHERE = "ID_Pay = " & monparam(1)
     DoCmd.OpenForm v_form, acNormal, , sWHERE
 
    End Function