Bonjour,
L'hors d'une tentative de conversion de ma base A97 en A2000 , j'obtiens un
message d'erreur de compilation. Lorsque j'ouvre la base convertie j'ai des
erreurs dans le code au niveau des lignes comportant "format$". Quelqu'un
connait-il la solution pour éviter cela?
Merci
J.M
Tu as raison quant à l'évolutiuon de la base et je me heurte à un nouveau soucis avec ".index" dans l'expression : "yyy.Index = "primarykey". J'ai tenté en mettant IndexFields mais sans résultat. Je n'ai pas trouvé de correspondance dans l'aide ?! As-tu une idée ? Merci par avance.
Voila un exemple de la méthode Seek() sur une table client dont la clé primaire est le NumClient (Entier long dans l'exemple).
Sub z() Dim t As DAO.Recordset Set t = CurrentDb.OpenRecordset("tclient", dbOpenTable) t.Index = "primarykey" ' ou t.Index = "PrimaryKey" t.Seek "=", 2 Debug.Print t(2) ' affiche le contenu du 3eme champ ' correspondant à l'enregistrement cherché t.Close Set t = Nothing End Sub
Assures toi que le nom de l'index est bien primarykey et non primary key, pour cela, ouvres la table en mode Design et affiches les index.
(Sélectionnes Seek et fais F1, tu auras les explications et un exemple qui crée un index sur la table et recherche via ce nouvel index)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir 3stone et Eric,
Merci pour votre aide qui m'a bien servi, ma base est enfin convertie.
J.M
"Eric" <f_framZZ@hotmail.com> a écrit dans le message de news:
urV3wO%23eGHA.4900@TK2MSFTNGP02.phx.gbl...
re,
Tu as raison quant à l'évolutiuon de la base et je me heurte à un nouveau
soucis avec ".index" dans l'expression : "yyy.Index = "primarykey". J'ai
tenté en mettant IndexFields mais sans résultat. Je n'ai pas trouvé de
correspondance dans l'aide ?! As-tu une idée ?
Merci par avance.
Voila un exemple de la méthode Seek() sur une table client dont la clé
primaire est le NumClient (Entier long dans l'exemple).
Sub z()
Dim t As DAO.Recordset
Set t = CurrentDb.OpenRecordset("tclient", dbOpenTable)
t.Index = "primarykey" ' ou t.Index = "PrimaryKey"
t.Seek "=", 2
Debug.Print t(2) ' affiche le contenu du 3eme champ
' correspondant à l'enregistrement cherché
t.Close
Set t = Nothing
End Sub
Assures toi que le nom de l'index est bien primarykey et non primary key,
pour cela, ouvres la table en mode Design et affiches les index.
(Sélectionnes Seek et fais F1, tu auras les explications et un exemple qui
crée un index sur la table et recherche via ce nouvel index)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir 3stone et Eric,
Merci pour votre aide qui m'a bien servi, ma base est enfin convertie.
Tu as raison quant à l'évolutiuon de la base et je me heurte à un nouveau soucis avec ".index" dans l'expression : "yyy.Index = "primarykey". J'ai tenté en mettant IndexFields mais sans résultat. Je n'ai pas trouvé de correspondance dans l'aide ?! As-tu une idée ? Merci par avance.
Voila un exemple de la méthode Seek() sur une table client dont la clé primaire est le NumClient (Entier long dans l'exemple).
Sub z() Dim t As DAO.Recordset Set t = CurrentDb.OpenRecordset("tclient", dbOpenTable) t.Index = "primarykey" ' ou t.Index = "PrimaryKey" t.Seek "=", 2 Debug.Print t(2) ' affiche le contenu du 3eme champ ' correspondant à l'enregistrement cherché t.Close Set t = Nothing End Sub
Assures toi que le nom de l'index est bien primarykey et non primary key, pour cela, ouvres la table en mode Design et affiches les index.
(Sélectionnes Seek et fais F1, tu auras les explications et un exemple qui crée un index sur la table et recherche via ce nouvel index)
-- A+ Eric http://www.mpfa.info/ Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr
Bonsoir 3stone et Eric,
Merci pour votre aide qui m'a bien servi, ma base est enfin convertie.
