Carte du site
 Remerciements
 Netiquette
 Bugs
 Tables
 Requêtes
 Formulaires
 États (rapports)
 Modules
 APIs
 Chaînes
 Date/Time
 Général
 Ressources
 Téléchargeables

 Termes d'usage

Tables: Comment utiliser la méthode Seek sur des tables attachées

Author(s)
Michel Walsh

---Soumis par Michel Walsh---

Comment utiliser la méthode Seek sur des tables attachées.

(Q)    Comment utiliser la méthode Seek, avec Index, sur des tables attachées (liées)?

(A)    Directement, non, mais par l'intermédiaire de cette fonction la chose est aisée.

(attention à la continuation, ce n'est qu'une seule ligne de code.)

'************ Code Start ***************
'This code was originally written by Michel Walsh.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.
'
'Ce code fut originalement écrit par Michel Walsh.
'Il ne doit pas être altéré ni distribué, hormis
'comme faisant partie d'une application.
'Vous êtes libre de l'utiliser dans n'importe quelle application,
'tant que cette note est demeurée inchangée.
'
'Code Courtesy of
'Michel Walsh

 Public Function OpenForSeek(TableName As String) As Recordset
' Suppose une table MS-ACCESS
    Set OpenForSeek = DBEngine.Workspaces(0).OpenDatabase _
                    (Mid(CurrentDb().TableDefs(TableName).Connect, _
                    11), False, False, "").OpenRecordset(TableName, _
                    dbOpenTable)
End Function
'************ Code End ***************

Simplement utiliser:
    Dim rst as Recordset
    set rst=OpenForSeek("TableName")

et alors, vous pouvez utiliser  rst.Seek et   rst.Index sur une table attachée (liée).

© 1998-2001, Dev Ashish, All rights reserved. Optimized for Microsoft Internet Explorer