Discussion :

[Oyabi]

Bonjour à tous,
je suis face à un problème de taille dont je n'arrive pas à me débarrasser.
J'ai deux tables(Client et Facture) et pour qu'elles soit plus simple à remplir j'ai décidé de faire un formulaire. Jusque là pas de soucis.
Pour faciliter la recherche (les personnes pour qui je fait ça sont informaticophobes) j'ai créer un deuxième formulaire, de recherche cette fois, grâce à ce tuto : http://loufab.developpez.com/tutorie...ss/recherche1/ (juste la premier partie, le reste ne m’intéresse pas).
J'ai donc une zone de liste m'affichant les résultats de recherche.

Ce que je voudrais, c'est pouvoir sélectionner un résultat, puis quand je double-cliquerais dessus m'envoyer vers mon premier formulaire pré-remplie.
Sachant que je ne connais absolument pas le VBA, pensez vous que c'est possible ?
Cordialement.

[minot83]

Bonjour,

Tu peux, sur l'évènement double-clic de ta zone de liste, ajouter :

Code :

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

1
2
3
4
Dim Stlinkcriteria As String
    Stlinkcriteria = "[Cle]=" & Me![Cle]
    DoCmd.Close
    DoCmd.OpenForm "F_Detail", , , Stlinkcriteria, acFormEdit

ça devrait répondre à ton souhait, je pense.

[Oyabi]

Bonjour,

Tu peux, sur l'évènement double-clic de ta zone de liste, ajouter :

Code :

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

1
2
3
4
Dim Stlinkcriteria As String
    Stlinkcriteria = "[Cle]=" & Me![Cle]
    DoCmd.Close
    DoCmd.OpenForm "F_Detail", , , Stlinkcriteria, acFormEdit

ça devrait répondre à ton souhait, je pense.

Magnifique, exactement ce que je voulais.
Une dernière chose, comment faire pour qu'un bouton "créer un nouveau client", m'ouvre tout comme la, mon formulaire, mais sur le dernier ID+1 de ma table ?
Bonne soirée

EDIT : trouvé pour ceux que ça intéresse :

Code :

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

1
2
DoCmd.Close
DoCmd.OpenForm "Client", acNormal, , , acFormAdd

[Oyabi]

En fait ton premier code ne me renvoie que sur le premier enregistrement de ma table .
Sais tu pourquoi ?
Je l'ai modifier comme ça :

Code :

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

1
2
3
4
5
6
7
 
Private Sub Resultat_DblClick(Cancel As Integer)
    Dim Stlinkcriteria As String
    Stlinkcriteria = "[IDclient]=" & Me![IDclient]
    DoCmd.Close
    DoCmd.OpenForm "Client", , , Stlinkcriteria, acFormEdit
End Sub

EDIT : J'ai trouvé un simple

Code :

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

DoCmd.OpenForm "Client", acNormal, , "[IDclient] = " & Me.Resultat

suffit.
Bonne journée