Discussion :

[Ludwik]

Bonjour à vous tous,

je m'escuse de vous sollicité et vous remercie par avance toutes les bonnes intentions:

pb: j'ai un Formulaire1(F1) muni d'un sous formulaire(SF1). En cliquant deux fois sur une des lignes de SF1 j'ouvre un 2eme Formulaire(F2) je souhaiterai que Champ1 de la ligne de SF1 sélectionné soit alors recopié dans champ 1 de F2 je n'y arrive pas pouvez vous m'aider.

[francishop]

Bonjour,

je m'escuse de vous sollicité....

????????????????
A ton avis quel est le but de ce forum?

Dans un module on colle ces deux fonctions

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Public Function CopyClipboard(ctrSource As Control)
   On Error Resume Next
   ctrSource.SetFocus
   ctrSource.SelStart = 0
   ctrSource.SelLength = Len(ctrSource.Value)
   DoCmd.RunCommand acCmdCopy
End Function
 
Public Function PasteClipboard(ctrCible As Control)
   On Error Resume Next
   ctrCible.SetFocus
   DoCmd.RunCommand acCmdPaste
End Function

Sur le sous formulaire SF1 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Champ1_DblClick(Cancel As Integer)
    'D'abord on copie notre champ
 Call CopyClipboard(Me.champ1)
    'On ouvre le second formulaire
 DoCmd.OpenForm "F2"
    'Se placer en "fin de formulaire", c'est-à-dire
    'sur le prochain enregistrement vierge.
 DoCmd.RunCommand acCmdRecordsGoToNew
    ' La commande suivante était également possible :
     'DoCmd.GoToRecord , , acNewRec
     Forms!F2!champ1.SetFocus 'On indique le champ receveur
 Call PasteClipboard(champ1) 'Et on colle
End Sub

Cordialement.