Discussion :

[Daniel MOREAU]

Bonjour à tous,

J'ai un formulaire "Prospects" qui me permet de créer des prospects et un second formulaire "Contacts" qui me permet de créer si besoin est des contacts.

Quand je crée un prospect, je lui attribue un code et je souhaiterai à l'ouverture de mon second formulaire "Contacts" récupérer et mettre à jour le champ code_client (afin d'éviter les erreurs de saisies)

Voici le code auquel j'ai pensé, mais qui ne fonctionne pas :

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 ApercuContacts_Click()
On Error GoTo Err_ApercuContacts_Click
    Dim StrDocName As String, StrForm As String
    StrForm = "Frm_CreatProspects"
    StrDocName = "Frm_Contacts"
    Forms(StrDocName)(Code_Client) = Me.Code_Client.Value
Exit_ApercuContacts_Click:
    Exit Sub
Err_ApercuContacts_Click:
    MsgBox Err.Description
    Resume Exit_ApercuContacts_Click
 
End Sub

Pouvez-vous m'aider à résoudre ce problème.

Merci d'avance.

Daniel

[tamerlan]

Si j ai bien compris ce que tu souhaites faire :

pour récupérer une valeur d'un champs pour le mettre dans un autre formulaire, tu mets dans la procédure sur ouverture de ton second formulaire

<Le Nom de ton cham>.value = [Forms]![NomDuFormilaire]![NomDuChamp]

[Heureux-oli]

Le plus simple est d'aller rechercher la valeur dans ton premier formulaire et de la mettre comme valeur par défaut ou d'attribuer cette valeur lors de l'ajout d'un enregistrement.

Il est également possible de travailler avec des formulaires et sous formulaires. Il y a alors un lien père/fils attribué avec les liens définis entres les tables.

[Daniel MOREAU]

Merci pour vos réponses ultra rapide qui m'ont permis de régler mon problème.

Merci encore.

Daniel