Comment rechercher en commençant par le dernier enregistrement ?

Bonjour à tous

je bosse sur une base access 2000 assez volumineuse. Tout mes champs importants sont indexés convenablement

Or, j'ai remarqué que lorsque j'effectue une recherche sur une table X, le temps d'affichage de mon formulaire varie sensiblement selon la position de l'enregistrement

Par exemple, le formulaire avec l'enregistrement 3302 s'affiche presque instantanément alors qu' avec le 54000 ème, ça met plus de 15 secondes :cry:

voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub bouton_Click()   Dim RS As DAO.Recordset Dim SQL As String   If (textbox.value & " " <> " ") Then SQL = "Select * from Matable where id=" & textbox Set RS = CurrentDb.OpenRecordset(SQL)   If Not RS.EOF Then DoCmd.OpenForm "Mon_Formulaire", acNormal, , " [numenreg] = " & textbox Else MsgBox "Pas trouvé", vbExclamation End If RS.Close End If End Sub

---

Ma question est la suivante : comment faire pour effectuer la recherche à partir du dernier enregistrement de ma table ? ( ce qui m'arrangerait bien car j'utilise beaucoup plus souvent les derniers enregistrements ! )

je sais qu'il y a la méthode find, movelast, etc mais je n'arrive pas a l'appliquer avec ma méthode :oops:

Merci par avance et bonne journée ! :coucou:

Salut,

Normalement dans une table, il y a un champ clé primaire. Ce champ est indéxé et numéroté automatiquement. Le tri décroissant sur ce champ permet de classer les enregistrements du dernier au premier, donc du dernier enregistré au premier erngistré.
Si j'étais toi,je modifierai mon SQL comme ceci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Private Sub bouton_Click() Dim RS As DAO.Recordset Dim SQL As String If (textbox.value & " " <> " ") Then SQL = "Select * from Matable where id=" & textbox & " ORDER BY MaTable.ChampCléPrimaire DESC;" Set RS = CurrentDb.OpenRecordset(SQL) '---> If Not RS.EOF Then DoCmd.OpenForm "Mon_Formulaire", acNormal, , " [numenreg] = " & textbox Else MsgBox "Pas trouvé", vbExclamation End If RS.Close End If End Sub

---

Mais ton code ne me paraît pas assez clair. Bref, la réponse à ta question se trouve dans le SQL. Tu n'as qu'à consulter les enregistrements à partir du début du recordset pour avoir les derniers enregistrements.
A+

Arf, on a poursuivit sur un autre post. Je n'avais pas vu ce doublon :?

Désolé :oops: