Discussion :

[tieuphuong]

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

[Invité]

Bonjour

De mémoire la fonction split n'existe pas sous 97. Regarde dans la FAQ ou les sources Access (je ne sais plus laquelle), il y'a une fonction pour remplacer la fonction split.

Starec

[tieuphuong]

J'ai effectivement trouvé ce remplacement de la fonction Split : changement de la variable tblSplit en fctSplit (http://access.developpez.com/sources...onctionSplit97) mais le pbl n'est pas réglé...

J'ai inséré cette fonction dans un module, puis j'ai changé dans mon code Split par FctSplit, mais le probleme est le même...

"erreur de compilation, bibliothèque [...] introuvable"

Dois je modifier ce code générique de changement de fonction pour que ça marche ?