j'ai un pbl avec ma conversion de ma base de Access 2000 à ACCESS 97.

le code suivant fonctionne avec la version 2000 mais pas avec la version 1997 : seriez vous comment le modifier pour que cela marche ?

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
 Private Sub cmdRecherche_Click()

Dim db As DAO.Database
Dim query As DAO.QueryDef
Dim rs As DAO.Recordset
Dim clausewhere As String
Dim i As Integer
Dim tmp() As String
Dim requete As String
Dim critere_fr As String
Dim requete_sql As String

'critères Français

'***LE PBL SE TROUVE ICI : ERREUR DE COMPILATION!****
tmp = Split(Me.lstCritereFR.RowSource, ";")
critere_fr = ""
For i = 0 To UBound(tmp)
    critere_fr = critere_fr + tmp(i) + " "
Next i
'While (InStr(tmp, ";") > 0)
'    tmp = Mid(tmp, 1, InStr(tmp, ";") - 1) + Mid(tmp, InStr(tmp, ";") + 1, Len(tmp))
'Wend
'critere_fr = tmp