Discussion :

[demouzz]

Bonsoir à tous,

je travaille sous access 2003,

j ai une table et un formulaire batti à partir de cette table.

J aimerais rouver un moyen ( macro par exemple) qui me permette de passer directement (par un raccourci clavier par exemple) de l'enregistrement que je suis en train de consulter à sa vue en formulaire.

Je pense qu il y a moyen vu que l Id d un enregistrement dans la table est la meme que celle dans le formulaire.

Simplement...je n ai aucune idée de comment faire...

Merci beaucoup.

[mout1234]

Bonjour,

Les tables sont destinées principalement au stockage, même si, il est vrai, elles sont très faciles à utiliser et proposent de multiples outils pour une exploitation efficace...


Il serait préférable de créer un formulaire, de type Feuille de Données pour avoir la même présentation qu'une table. Tu pourras alors associer une macro ou du code VBA, par exemple à l'évènement double-clic du formulaire et/ou des champs, qui ouvrira le formulaire (macro OuvrirFormulaire) détail en filtrant à l'ouverture (condition Where).

Si ton nouveau formulaire s'appelle frmClient_Liste et ta clé un numérique appelé NumClient, la condition Where pourra être (non testé)

Code :

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

1
2
 
"NumClient ='" & [Formulaires]![frmClient_Liste]!NumClient  & "'"

[LedZeppII]

Bonjour,

J'aurai tendance à faire comme Mout1234.

Sinon, ça peut se faire avec la macro Autokeys.
On va dire, par exemple, qu'on va utiliser le raccourci Ctl+O (O comme Outlook)

Dans mon exemple je vais affecter le raccourci au tables Clients et Commandes, dont les formulaires sont respectivement fmClients et fmCommandes

Code :

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

1
2
3
4
Table        Formulaire     Champ Clé
-----------  -------------  ---------------------
Clients      fmClients      Code client  (Texte)
Commandes    fmCommandes    N° commande  (Nombre)

Coller cette fonction dans un module de code

Code vb :

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
Public Function CtlPlusO()
Dim strObjet As String, fm As Access.Form, strID As String
 
On Error Resume Next
strObjet = Screen.ActiveDatasheet.Name
On Error GoTo 0
 
Select Case strObjet
    Case "Clients"
        Set fm = Screen.ActiveDatasheet
        strID = fm.Controls("Code client").Value
        DoCmd.OpenForm "fmClients", , , "[Code client]='" & strID & "'"
    Case "Commandes"
        Set fm = Screen.ActiveDatasheet
        strID = fm.Controls("N° commande").Value
        DoCmd.OpenForm "fmCommandes", , , "[N° commande]=" & strID
End Select
End Function

Créer un nouvelle Macro.
Afficher la colonne "Nom de Macro"
Sur la première ligne ...

Code :

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

1
2
Nom de macro : ^o
Action       : ExécuterCode        Nomfonction : CtlPlusO ()

Sauvegarder la macro sous le nom Autokeys

Pour plus de détails, faire une recherche sur "autokeys" dans l'aide d'Acces.

A+