quinta-feira, 19 de outubro de 2017
assinantes
   Assinatura Ativo Access


Não Assinantes
ConteÚdo
DOWNLOADS
Interação
dicas aleatórias
Dica #22
Tela de Splash
Publicado: 18/12/2004

Dicas

Posso executar um SEEK E INDEX em tabelas vinculadas?
Autor:  Osmar Jr. (jrosmar@yahoo.com.br )
Publicado:  29/07/2008
Visitas: 2821
 
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.)

CODE
'************ 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
jrosmar@yahoo.com.br

  « Voltar

 

Assine AtivoAccess
     CD Ativo Access = R$ 44,70

 

   Copyright © Ativo Access 2003 - 2017- Todos os direitos reservados   Política de Privacidade | Fale conosco