un utilisateur a r=E9cup=E9r=E9 une base access97 et l'a=20
converti en access 2000 (la base contenait des macros).
La base termin=E9e doit =EAtre fournie sous access 97.
Nous avons donc converti =E0 nouveau la base vers access 97.
A la r=E9-ouverture, lorsque l'on clic sur n'importe quel=20
bouton du formulaire d'acceuil, la fen=EAtre VBA s'ouvre=20
avec le message d'erreur suivant : "Erreur de compilation -
projet ou biblioth=E8que introuvable"
Le code VBA suivant apparait surlign=E9 jaune :=20
Private Function WhereClause() As String
=20
Dim VarPosition As Variant
Dim Val1 As Variant
Dim varitm As Variant
=20
If Me.[Liste ME].ItemsSelected.Count =3D 0 Then
WhereClause =3D "TRUE"
Else
WhereClause =3D "("
For Each VarPosition In [Liste ME].ItemsSelected
Val1 =3D [Liste ME].ItemData(VarPosition)
WhereClause =3D WhereClause & "[Code_ME] =3D " &=20
Val1 & " OR "
Next VarPosition
WhereClause =3D Left(WhereClause, Len(WhereClause) -=20
4) & ")"
End If
End Function
Ce qui est bizarre, c'est qu'il n'y a pas de pb sous W2000=20
et que ca ne fonctionne syst=E9matiquement pas sous XPpro.
Merci par avance pour vos solutions
