Discussion :

[SpaceFrog]

Bonjour,
Me voici de retour à mes premières amours sur developpez...
C'était il y a huit ans ... et on s'est séparés fachés
Là on est obligés de se remettre à la colle. Je debuggue une appli que mes chers supérieurs ont eu la bonne idée de confier à un stagiaire. Le pauvre a fait ce qu'il a pu, mais je dois tout debugguer. Et voilà que je butte déja sur un os.

j'ai dans une private sub besoin de verifier si un champs de mon recordset fait partie d'une liste de propositions (string).

j'ai voulu créer la liste comme suit:

Code :

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

1
2
3
 
items = ["Hygroréglable Gaz","Gaz"]
If InList(rs_LOGEMENT!systeme_ventil, items) Then

avec une fonction inList:

Code :

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

1
2
3
Public Function InList(needle As String, haysatck) As Boolean
    InList = haystack.contains(needle)
End Function

hormis le gros doute que contains fonctionne ... ^^
j'ai une erreur de complation sur tems = ["Hygroréglable Gaz","Gaz"] avec le message d'erreur "Nom externe non défini"

on ne peut pas declarer une liste comme ça en VB ???

Merci d'avance...

[SpaceFrog]

A priori je m'en suis sorti comme ceci:

Code :

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

1
2
3
4
Dim items As Collection
 
items.Add ("Hygroréglable Gaz")
items.Add ("Gaz")

elle n'existe pas cette notation en VB 6 ??

Code :

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

items = [... ]

il ne me colle pourtant pas d'erreur de syntaxe ...