Discussion :

[ancylia]

Bonjour,

j'avais poste mon problème y'a quelques jours. Je suis bloqué sur la fonction Split.
J'ai repris le code du site mais lors de son utilisation sous Access 97, j'ai le message suivant : "impossible d'affecter à un tableau"

Or la fonction fournit sur le site renvoie bien un tableau et le format de ma variable est aussi un tableau.

Quelqu'un aurait rencontré ce problème ???

[cafeine]

As-tu mis la déclaration ?

Code :

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

Dim MonTableauResultat() As String

[ancylia]

Oui justement j'ai bien declare la variable.

[cafeine]

montre nous ton code ...

[ancylia]

La fonction split est la meme que celle du site.

Sinon voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
Dim str() As String
[...]
 
If Not Me.txtVoix = "" Then
    With Me!txtVoix
 
        If Not IsNumeric(.Value) Then
            SQL = SQL & "And Mobiles![N° VOIX] like '*" & Me.txtVoix & "*' "
        Else
 
            str = FctSplit(Trim(Me.txtVoix), " ")
            If (UBound(str) = 0) Then
[...]

voila voila

[cafeine]

il faudrait peut être faire un test sur Me.txtVoix, car s'il est Null la fonction de split va planter.

car ce code marche parfaitement

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Public Function FctSplit(ByVal strg As String, Sep As String) As Variant
    Dim i As Integer
    Dim TblSplit() As String
    i = 1
    While InStr(1, strg, Sep) <> 0
        ReDim Preserve TblSplit(i)
        TblSplit(i - 1) = Left(strg, InStr(1, strg, Sep) - 1)
        strg = Mid(strg, InStr(1, strg, Sep) + Len(Sep))
        i = i + 1
    Wend
    If Len(strg) > 0 Then
        ReDim Preserve TblSplit(i)
        TblSplit(i - 1) = strg
    End If
    FctSplit = TblSplit
End Function
 
Function TestItNow()
 
Dim T() As String
Dim i As Integer
T = FctSplit("Salut ça va ?", " ")
For i = 0 To UBound(T) - 1
    Debug.Print "Mot " & i & " : " & T(i)
Next i
 
End Function

[ancylia]

Justement je fais bien un test sur Me.txtVoix pour qu'il ne soit pas null...

[Tofalu]

Le soucis est en effet que la fonction split des codes sources retourne un tableau ... chose qui n'est pas possible dans Access97

Essaye 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
15
16
17
18
19
20
Public Sub SubSplit(ByVal strg As String, Sep As String, TblSplit() As String)
    Dim i As Integer
    i = 1
    While InStr(1, strg, Sep) <> 0
        ReDim Preserve TblSplit(i)
        TblSplit(i - 1) = Left(strg, InStr(1, strg, Sep) - 1)
        strg = Mid(strg, InStr(1, strg, Sep) + Len(Sep))
        i = i + 1
    Wend
    If Len(strg) > 0 Then
        ReDim Preserve TblSplit(i)
        TblSplit(i - 1) = strg
    End If
End Sub
 
Sub test()
Dim T() As String
SubSplit "Bonjour Monsieur Dupont", " ", T
MsgBox T(1)
End Sub

Mais je suis pas sûr que ça fonctionne mieux. Je ne dispose pas d'access 97 et je ne me rappelle plus s'il est possible de passer un tableau comme paramètre d'une sub

[Petogaz]

salut,

je ne me rappelle plus s'il est possible de passer un tableau comme paramètre d'une sub

si mes souvenirs sont bon je pense que c'est possible il suffit de créer un tableau de paramètre quelque chose du genre :
exemple :

Code :

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

Public  Function Montableau(ParamArray avarTableau() as variant) as string(ou autres)

donc mettre le mot clé ParamArray pour spécifier un nombre quelconque d'argument donc de 0 à n qui va être l'indice.
j'espère que je n'ai pas compris à coté la question.

[Tofalu]

Je pense pas que le paramarray nous aide ici

En fait le problème c'est d'utiliser encore Access 97

Je rigole, je sais trés bien que des fois on a pas le choix

[cafeine]

Vous pouvez toujours utiliser le code qui est dans mon tuto sur la classe string étendue : http://cafeine.developpez.com/access...el/classe/#LVI

[ancylia]

Bonjour,

La fonction de Tofalu semble fonctionner.
Je n'ai pas de message d'erreur.

Par contre j'ai une autre erreur ms qui ne semble pas être lié à la fonction.
Je vais chercher d'abord.

Donc je vais fermer ce sujet.

Merci pour votre aide.