Envoyer des données d'un formulaire à un autre

Bonjour,

J'ai un formulaire A (FormA) avec deux champs (1 et 2) texte et un bouton (Press).

J'ai un formulaire B (FormB) avec deux champs (3 et 4).


Lors de l'appuie sur le bouton Press, je veux que la valeur dans le champ 3 soit la valeur compris dans le champ 1 du 1er formulaire.

Et que le champ 4 = champ 2.

J'ai déjà eu un programme fonctionnel.

Voici le code :

Private Sub Press_Click()
On Error GoTo Err_Press_Click

    Dim stDocName As String
    Dim stLinkCriteria As String

    stDocName = "FormB"
    
    stLinkCriteria = "[3]=" & 1 & "AND [4]='" & 2 & "'"
    DoCmd.OpenForm stDocName, , , stLinkCriteria
    DoCmd.Close acForm, "FormA"

Exit_Press_Click:
    Exit Sub

Err_Press_Click:
    MsgBox Err.Description
    Resume Exit_Press_Click
    
End Sub

Ce code fonctionne mais il faut que les champs de mon formulaire B aient une source de controle issus d'une table.
Or moi je veux qu'ils soient indépendants.
Comment dois-je faire ?

Merci,

GDX