OVH Cloud OVH Cloud

de 97 à 2000

3 réponses
Avatar
LeGoldo
Bonjour
et BONNE ANN=C9E 2006,

J'ai une fonction qui compile sous 97 et pas sous 2000 :

.=2E.
Dim r As Recordset, C As Control

Set C =3D Screen.ActiveControl
Set r =3D F.RecordsetClone

On Error Resume Next

'__ Try to find a record with a matching value
Select Case r.Fields(C.ControlSource).Type
' Find using numeric data type key value?
Case DB_INTEGER, DB_LONG, DB_CURRENCY, DB_SINGLE, DB_DOUBLE,
DB_BYTE
r.FindFirst "[" & C.ControlSource & "]=3D" & C <<< erreur sur le
dernier C
.=2E.

Que puis-je y faire ?

O=F9 puis-je trouver une liste et des infos sur ce genre de surprises ?

Merci d'avance=20

LeGoldo

3 réponses

Avatar
Gafish
LeGoldo wrote:
Bonjour
et BONNE ANNÉE 2006,


Bonjour et bonne année à toi aussi

J'ai une fonction qui compile sous 97 et pas sous 2000 :

r.FindFirst "[" & C.ControlSource & "]=" & C <<< erreur sur
le dernier C


FindFirst est une méthode DAO et en 2000, tu as DAO et ADO.
Regarde dans un module, dans Outils...Réferences si tu as Microsoft DAO x.x
coché.
Sinon quel est ton message ?
Concernant les migrations, tu as une page très complète sur le site de
Raymond :
http://officesystem.access.free.fr/migration.htm

Arnaud

Avatar
LeGoldo
Bonsoir et merci !

C'était tout-à-fait ça,
mais j'ai quelques autres surprises ;-)

Cordialement,

LeGoldo
Avatar
Torquemada
"mais j'ai quelques autres surprises ;-)"

Si par hasard ce sont tes rqt qui ne marchent plus, pense à supprimer dans
les noms de champs ou de contrôle, les accents.

"LeGoldo" a écrit dans le message de
news:
Bonsoir et merci !

C'était tout-à-fait ça,
mais j'ai quelques autres surprises ;-)

Cordialement,

LeGoldo