MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


3 participantes

    Função Seek com dois argumentos

    avatar
    Edinho_Lima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 05/01/2017

    Função Seek com dois argumentos Empty Função Seek com dois argumentos

    Mensagem  Edinho_Lima 16/1/2017, 13:31

    Bom dia a todos!
    Estou criando um banco de Dados para o acompanhamento de pedidos na empresa em que trabalho. Neste banco tenho uma planilha com um campo chamado "Pedido" e um campo chamado "Linha". então posso ter o mesmo número de pedido para linhas diferente.

    Criei um formulário contínuo onde tenho os pedidos e suas respectivas linhas. Preciso colocar um botão que de acordo com o número do pedido e da linha, vá na tabela e marque o campo "Follow" como Verdadeiro. Para isso estou usando o seguinte código:

    Dim strMyExternalDatabase
    Dim dbs As DAO.Database
    Dim dbsExt As DAO.Database
    Dim tbl As DAO.Recordset
    Dim tdf As DAO.TableDef

    Set dbs = CurrentDb()
    Set tdf = dbs.TableDefs("ItemxPedido")
    strMyExternalDatabase = Mid(tdf.Connect, 11)

    'Open the database that contains the table that is linked
    Set dbsExt = OpenDatabase(strMyExternalDatabase)

    'Open a table-type recordset against the external table
    Set tbl = dbsExt.OpenRecordset("ItemxPedido", dbOpenTable)

    'Specify which index to search on
    tbl.Index = "ItemXPedidoPedido"

    'Specify the criteria
    tbl.Seek "=" Me.Pedido.value

    tbl.Edit

    'Check the result
    If tbl.NoMatch Then

    Else
    tbl!Follow.Value = True
    tbl.Update
    End If

    tbl.Close
    dbs.Close
    dbsExt.Close
    Set tbl = Nothing
    Set tdf = Nothing
    Set dbs = Nothing

    Usando o código acima ele funciona perfeitamente só que somente para o primeiro item. Ou seja para a linha 1 pois ele esta filtrando somente pelo número do pedido e o primero que ele encontra ele marca.
    Como podeia fazer para que ele filtrasse ao mesmo tempo o número do pedido e a linha?

    na linha:

    tbl.Seek "=" Me.Pedido.value

    Tem como colocar mais argumentos?

    Desde já agradeço a ajuda!
    rubenscouto
    rubenscouto
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 679
    Registrado : 02/10/2011

    Função Seek com dois argumentos Empty Re: Função Seek com dois argumentos

    Mensagem  rubenscouto 16/1/2017, 21:02

    Para um melhor desenvolvimento, fica melhor você desenvolver um formulario de pedidos e outro subformulario dos itens deste pedido, para que cada item receba um numero especifico porém ficaram amarrados no mesmo número de pedido. VEja no exemplo em anexo.
    avatar
    Edinho_Lima
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2
    Registrado : 05/01/2017

    Função Seek com dois argumentos Empty Re: Função Seek com dois argumentos

    Mensagem  Edinho_Lima 17/1/2017, 10:18

    Olá Rubens bom dia!

    Então... eu já estou usando um subformulário mesmom... na verdade como esse processo estava amarrando o andamento do meu projeto, eu acabei buscando uma outra opção para resolver meu problema. eu criei um novo campo na tabela e concatenei o número do pedido com o número da linha e usei o mesmo código que postei acima mudando somente o endereço. assim funcionou da forma que gostaria que funcionasse. Mesmo assim obrigado pelo envio do arquivo. Vlw mesmo!!!!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 8449
    Registrado : 05/11/2009

    Função Seek com dois argumentos Empty Re: Função Seek com dois argumentos

    Mensagem  Alexandre Neves 22/1/2017, 17:21

    Boa tarde,
    Utilize o tbl.findfirst


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Conteúdo patrocinado


    Função Seek com dois argumentos Empty Re: Função Seek com dois argumentos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 11:03