Home
Home

---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=OpenFormSeek("TableName")

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