Discussion :

[Didier77]

Bonjour,
j'ai une table access avec des phrases dans une colone
STREET_1 , et je voudrais savoir s'il existe une fonction
qui me permettrai de tester chaque mot un par un

[Invité]

[CODE]avarMotsClefs = Split(Nz(Me.STREET_1), " ")
For Each varMotClef In avarMotsClefs
' Pour chaque mot, faire un test ICI
Next[CODE]

[Didier77]

Merci pour cette réponse

pour les déclaration:

avarMotsClefs est un tableau de string?
et varMotClef un string?

[Invité]

Un simple :

Code :

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

Dim avarMotsClefs, varMotClef

suffira

[Didier77]

ok merci beaucoup je vais tester tout ça

[Didier77]

J'ai un message d'erreur: Invalid use of Me keywords

je ne sais pas à quoi sert Me

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
 
Public Function Dechire(ByVal Adress As String)
 
Dim avarMotsClefs, varMotClef
 
 
avarMotsClefs = Split(Nz(Me.STREET_1), " ")
For Each varMotClef In avarMotsClefs
' Pour chaque mot, faire un test ICI
 
If (varMotClef = "R ") Then
varMotClef = "Rue "
ElseIf (varMotClef = "ALL ") Then
varMotClef = "Allée "
End If
 
End Function