MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    SEEK e INDEX em tabelas vinculadas

    OsmarJr
    OsmarJr
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 42
    Registrado : 20/10/2010

    SEEK e INDEX em tabelas vinculadas Empty SEEK e INDEX em tabelas vinculadas

    Mensagem  OsmarJr em 5/4/2011, 19:39

    (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


    .................................................................................
    affraid Diferença entre mulher na TPM e pitbull com raiva: O BATOM (hoje apanho em casa)... affraid

      Data/hora atual: 3/12/2020, 11:20