VBA - Access, methode seek

Question

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

cs_jeannot45 · Answer

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

cs_cnn · Answer

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-)

VBA - Access, methode seek

2 réponses

Discussions similaires