Pb passage de paramètre form1 et form2

Question

g une proc&#233;dure dans un form1

lorsque je clique sur un bouton du form1, j'ouvre un form2. Sur ce meme form2, je donne des valeurs a mes textbox, combobox etc



Et lorsque je valide mon form2, je fais appel a ma procedure du form1
pour r&#233;cup&#233;rer le valeurs. Mais ca ne marche pas car il ne peut pas le
faire

L'erreur est type d'argument ByRef incompatible



Voici ma proc&#233;dure du form1

Public Sub materiel(val1 As Integer, val2 As Integer, val3 As Integer)

    MsgBox ("matos : " & matos)

    matos = val1 & "|" & val2 & "|" & val3

End Sub



et voici mon appel dans le form2

valeur = admCommandeAjout.materiel(val1, val2, val3)



Sinon si vous avez une meilleure soluce, je prends

Merci

cs_lacomm · Answer

salut
une id&#233;e comme &#231;a en passant mais il doit y avoir plus simple:
enregistrer matos dans un fichier temporaire
ouvrir ce fichier en chargeant form2

econs · Answer

Dans Form2, val1, val2 et val3 ne sont sans doute pas des Integer !! V&#233;rifie cel&#224; !!


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

NHenry · Answer

Met tes param&#232;tres en Byval tant que possible, c'est juste un conseil.



Il est plus facile de batiser kk1 que de la convertir. (surtout en programmation)

Une question se pose sur le forum, pas en priv&#233;


NH

paloxicide · Answer

j'ai rajout&#233; byval mais l'erreur est la suivante

fonction ou variable attendue



qu'est ce donc

paloxicide · Answer

j'ai test&#233; c bien des integer qui sont dans la procedure

econs · Answer

Peux-tu nous montrer comment tu as "rajout&#233;" ByVal stp ?

Et aussi de quel type sont les variables val1,val2 et val3 ?




Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

econs · Answer

Pff ... je viens de voir un truc pas beau ....



 valeur = admCommandeAjout.materiel(val1, val2, val3)





materiel serait donc une Fonction ??? 



Ah non, materiel est une procedure (Private Sub).

Donc forc&#233;ment, &#231;&#224; ne peut pas fonctionner.

Soit materiel est une proc&#233;dure et ne renvoie rien.

Soit materiel doit renvoyer quelque chose, et alors l&#224;, il faut que tu la d&#233;finisses comme telle.






Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

PCPT · Answer

salut, euh... je suis pas certain d'avoir bien compris le problème.... 2Forms, 2Cmds ' ################# ' ## Form1 ## ' ################# Option Explicit ' Dim v1%, v2%, v3% ' ' Private Sub Cmd_ToForm2_Click() v1 = 111 v2 = 222 v3 = 333 Debug.Print "Form1 avant l'envoie : " & v1; v2; v3 Form2.pv1 = v1 Form2.pv2 = v2 Form2.pv3 = v3 Form2.Show End Sub ' ' Public Sub RecupereVsFromForm2(ByVal f1%, ByVal f2%, ByVal f3%) v1 = f1 v2 = f2 v3 = f3 Debug.Print "Form1 après réception de Form2: " & v1; v2; v3 End Sub ' ################# ' ## Form2 ## ' ################# Option Explicit ' Public pv1%, pv2%, pv3% ' ' Private Sub Form_Load() 'ini on suppose l'attrivution commme tu veux dans les combos, etc... Debug.Print "Form2 à la réception de Form1 : " & pv1; pv2; pv3 End Sub ' ' Private Sub Cmd_MajAndClose_Click() 'ici on suppose un traitement manuel, genre 'pv2=val(Text1.Text), etc..... pv1 = pv1 * 4 pv2 = pv2 * 4 pv3 = pv3 * 4 Debug.Print "Form2 avant l'envoie : " & pv1; pv2; pv3 Call Form1.RecupereVsFromForm2(pv1, pv2, pv3) Unload Me End Sub Coloration syntaxique automatique [AFCK] PCPT

Pb passage de paramètre form1 et form2

8 réponses

Discussions similaires