SEEK e INDEX em tabelas vinculadas

(P) Posso executar um SEEK E INDEX em tabelas vinculadas?

® Diretamente, NÃO. Mas a função abaixo permite que isto seja feito:

(Cuidado com as continuações de linhas. É uma única linha de código.)

Código:

'************ Início do Código ***************
'Este código foi escrito originalmente por Michel Walsh.
'Não deve ser alterado ou distribuído,
'exceto como parte de um aplicativo.
'Use-o livremente em qualquer aplicativo,
'mas deixe este aviso de copyright inalterado.
'
'Código cortesia de
'Michel Walsh

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

Use simplesmente:

Dim rst as Recordset

set rst=OpenForSeek("NomeDaTabela")

e pode usar rst.Seek e rst.Index na tabela vinculada NomeDaTabela.

Traduzido por Osmar José Correia Júnior
osmarjcjr-st@yahoo.com.br