Déclaration de fonctionRésolu

Question

J'ai un mega probleme et je ne m'en sors pas... Si quelqu'un peu m'aider j'ach&#233;te je m'explique. Je voudrai passer de ca :

Public Sub
UPDATE_NEW_ENTRY(DATA_FORM As Form, DIRC_FORM As Form, NB_FIELDS As Integer,
Optional TXT_TEST0 As String, Optional TXT_TEST1 As String, Optional TXT_TEST2
As String, Optional TXT_TEST3 As String, Optional TXT_TEST4 As String, Optional
TXT_TEST5 As String, Optional TXT_TEST6 As String, Optional TXT_TEST7 As
String, Optional TXT_TEST8 As String)




&#224; ca :

Public Sub
UPDATE_NEW_ENTRY(DATA_FORM As Form, DIRC_FORM As Form, NB_FIELDS As Integer,
Optional TXT_TEST() As String)





Le probleme c'est que quand je rappel cette fonction
UPDATE_NEW_ENTRY, il ne m'ouvre qu'une seule Variable TXT_TEST() et
rien d'autre Alors que moi j'en veux 9.



Si quelqu'un me trouve une solution je serai heureux. J'en ai marre de me prendre la tete lol Merci d'avance a tout le monde.



PROTEUS

crenaud76 · Accepted Answer

Et pourquoi pas ca :

Public Sub UPDATE_NEW_ENTRY(DATA_FORM As Form, DIRC_FORM As Form, NB_FIELDS As Integer, Optional paramarray TXT_TEST() As variant)
Dim i as long
For i = lcase(txt_test) to ubound(txt_test)
  Msgbox txt_test(i)
Next
End Sub
 

Christophe R

Gobillot · Answer

Public Sub UPDATE_NEW_ENTRY(DATA_FORM As Form, DIRC_FORM As Form, NB_FIELDS As Integer, Optional TXT_TEST As Object)
    - - - - - - - - - - - - - - - - - - 
    MsgBox TXT_TEST(0).Text
    MsgBox TXT_TEST(1).Text
    - - - - - - - - - - - - - - - - - - 
End Sub

Daniel

PROTEUS91 · Answer

A crenaud76


Le code &#233;tait presque parfait, seul truc que tu as mis en trop c'est le
Optional : Public Sub UPDATE_NEW_ENTRY(DATA_FORM As Form, DIRC_FORM As
Form, NB_FIELDS As Integer, ParamArray TXT_TEST
() As Variant)



Et la ca marche niquel. Merci a tous. Et merci Renaud pour l'orientation de l'id&#233;e. Gobillot ta solution de choisir la classe object, ne resolv&#233; pas mon probleme mais merci quand meme.


PROTEUS

Gobillot · Answer

j'ai d&#251; mal comprendre alors, je croyais que tu voulais passer un groupe de contr&#244;le
parceque pour un Tableau de String, ta fonction &#233;tait bonne:

Private Sub Command1_Click()
    Dim txt() As String
    ReDim txt(2)
    txt(0) = "aaa"
    txt(1) = "bbb"
    txt(2) = "ccc"
    UPDATE_NEW_ENTRY txt
End Sub


Private Sub UPDATE_NEW_ENTRY(T() As String)
    Dim i As Integer
    For i = 0 To UBound(T)
        MsgBox T(i)
        Next
End Sub

Daniel

crenaud76 · Answer

Excuse pour le optional en trop mais j'ai pondu cela de m&#233;moire, sans VB sous la main pour tester 

Christophe R

Déclaration de fonction

5 réponses

Discussions similaires