VBA - Access, methode seek

Signaler
Messages postés
70
Date d'inscription
lundi 17 décembre 2001
Statut
Membre
Dernière intervention
24 juillet 2004
-
Messages postés
2
Date d'inscription
lundi 4 août 2003
Statut
Membre
Dernière intervention
9 octobre 2003
-
Salut,
je n'arrive pas a utiliser la methode seek car il me dit que je n'est pas mit d'index sur ma table ce qui n'est pas le cas. j'ai mis une clef primaire sur le champs "Clé primaire" et dans indexé j'ai mis "Oui - sans doublons" aprés je met ce code :

Dim bd as DataBase
Dim rs as RecordSet

Set bd=CurrentDB
Set rs=bd.OpenRecordSet("Table")
rs.index="Clé primaire" <- erreur
rs.seek "=", "25"

et la il me dit que "Clé primaire" n'est pas un index dans cet table et franchement je pige vraiment pas pourquoi.... Si quelqu'un pe m'aider

@+ HAVE FUN
enjoy
WWW.MOTEURPROG.COM

2 réponses

Messages postés
112
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
27 décembre 2004

Bonjour

Au lieu d'utiliser l'expression "Clé primaire", essaie plutot "PrimaryKey"

Jeannot
0
Messages postés
2
Date d'inscription
lundi 4 août 2003
Statut
Membre
Dernière intervention
9 octobre 2003

j'ai un probleme je n'arrive pas à executer la sous requete suivante

Set tbl = dbs.OpenRecordset("JOUR")
tbl.Index = "JOUR"
tbl.MoveFirst

Set rst = CDb.OpenRecordset("Dim1")
rst.MoveFirst
var_f = tbl!jour
tbl.Seek "=", var_f

If Not tbl.NoMatch Then
While Not rst.EOF
v_jour = tbl!Cle
txt_SQL = "UPDATE DISTINCTROW Dim1 SET Dim1." & v_jour & "= 1 "
txt_SQL = txt_SQL & "WHERE (Dim1.DateMvt <= #" & Format(var_f, "mm/dd/yyyy") & "#); "
DoCmd.RunSQL txt_SQL
var_f = var_f + 1
tbl.Seek "=", var_f
Wend

End If
tbl.MoveNext
rst.Close
tbl.Close
pourquoi?
si je remplace la clause where par
txt_SQL txt_SQL & "WHERE (Dim1.Cle (SELECT DISTINCTROW MAX(Dim1.Cle) From Dim1 WHERE (Dim1.DAteMvt <= #" & Format(var_f, "mm/dd/yyyy") & "#))); "

il ya bien execution du code jusqu'à la fin des enregistrements mais l'erreur 3021 survient à la ligne
v_jour = tbl!Cle

c'est normal puisqu'on est arrivé à la fin des enregistrements

que faut il faire??

merci
8-)
0