Discussion :

[tiyo76]

Bonjour à tous !

Je vous explique mon problème :

J'ai un formulaire avec 6 listes qui, lorsque l'on double-clique à l'intérieur de chacune d'entre elles, remplissent une zone de texte correspondante pour récupérer la valeur de la liste en question.

Lorsque les 6 zones de texte sont remplies, j'aimerai que lors de l'appui sur un bouton 'Valider' les données soient envoyées vers le prochain formulaire qui sert de formulaire d'insertion. J'ai réussi dans un autre formulaire à envoyer une donnée avec le OpenForm suivi de quelques paramètres, mais pour ce cas là je n'y arrive pas...

J'utilise le code suivant pour aller dans l'autre formulaire :

Code :

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

1
2
3
4
Private Sub btnValider_Click()
    DoCmd.OpenForm "Validation_Insertion_Recette", acNormal, , "[id_client] = " & Me.TFIdClient & " And [id_conchage] = " & Me.TFIdConchage.Value & " And [id_palette] = " & Me.TFIdPalette.Value & " And [id_compo] = " & Me.TFIdComposant.Value & " And [id_visco] = " & Me.TFIdViscoFinesse.Value & " And [id_remarque] = " & Me.TFIdRemarque.Value
'TF correspond à TextField donc à zone de texte (réflexe java !)
End Sub

Je pense mais je ne suis pas sûr que le soucis vient du formulaire suivant, en effet je lui demande au chargement d'accéder à l'enregistrement 'Nouveau' et j'ai bien peur que les sources controles "mangent" les valeurs que j'avais envoyé à ce formulaire pour les remplacer par des valeur null vu que le nouveau tuple n'existe pas encore

Je sais pas vraiment si j'ai été assez clair mais je l'espère !

Je vous remercie d'avance pour vos réponses

[mumen]

Bonjour


En fait, tu mélange les notions. Le paramètre que tu passes à ton formulaire, c'est la clause de sélection. En aucun cas ceci ne fait d'affectation.

Essayes avec ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Sub btnValider_Click()
    With DoCmd
       .OpenForm "Validation_Insertion_Recette"
       .GoToRecord  , , acNewRec
    End With
    With Forms!Validation_Insertion_Recette        
        !id_client= Me.TFIdClient
        !id_conchage= Me.TFIdConchage
 
        etc.               
 
    End With
End Sub

[tiyo76]

Merci beaucoup j'ai compris mon erreur !

Le code que vous m'avez donné marche parfaitement bien.
Je suis débutant en Access et en VBA donc je bloque sur certaines notions

Encore merci !