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


2 participantes

    Consulta de tabela nao funciona quando divido banco de dados.

    avatar
    marcioj
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 06/10/2017

    Consulta de tabela nao funciona quando divido banco de dados. Empty Consulta de tabela nao funciona quando divido banco de dados.

    Mensagem  marcioj 5/12/2017, 20:30

    Boa tarde

    fiz um BD para minha empresa e preciso marcar quais orçamentos foram e fechados e quais estão em aberto. A solução que pensei era de realizar uma consulta na tabela de PEDIDOS e verificar se o cod_venda estava lá, caso estivesse o formulário apareceria com outra cor e vários botões desativados, caso não estivesse abriria normalmente.

    Funcionou normalmente, porem quando dividi o banco de dados ele não funciona mais. Da erro de tempo de execução 3219

    se alguém puder me ajudar a consertar isso ou me indicar uma outra solução, seria muito bom, obrigado....


    segue a linha de comando:

    Código:
    Private Sub Form_Load()

    Dim mdb As Database
    Dim tbl As Recordset

    'Abre o Banco de Dados Corrente
    Set mdb = CurrentDb
    'Abre a Tabela
    Set tbl = mdb.OpenRecordset("PEDIDOS", dbOpenTable)

    'Inform o Indice a ser usado
    tbl.Index = "PRIMARYKEY"

    tbl.Seek "=", COD_VENDA

    'Teste, não achou
    If tbl.NoMatch Then
    MsgBox "BEM VINDO, TENHA UM BOM TRABALHO! NÃO ESQUEÇA DE LIGAR PARA O CLIENTE!!!"
    Else

    Me.FRM_VENDAS_SUB.Enabled = False
    Me.TXTCLIENTE.Enabled = False
    Me.TXTDATA.Enabled = False
    Me.TXTIPI.Enabled = False
    Me.Texto39.Enabled = False
    Me.Texto41.Enabled = False
    Me.Texto43.Enabled = False
    Me.BTNGERARK3.Enabled = False
    Me.BTNGERAR.Enabled = False
    Me.BTNPEDIDO.Enabled = False
    Me.BTNALTERAR.Enabled = False
    Me.BTNANTERIOR.Enabled = True
    Me.BTNEXCLUIR.Enabled = False
    Me.BTNNOVO.Enabled = True
    Me.BTNPRIMEIRO.Enabled = True
    Me.BTNPROXIMO.Enabled = True
    Me.BTNULTIMO.Enabled = True
    Me.BTNSALVAR.Enabled = False
    Me.BTNESTORNAR.Enabled = True
    Me.RTORCAMENTO.Visible = False
    Me.RTFECHADO.Visible = True
    End If
    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Consulta de tabela nao funciona quando divido banco de dados. Empty Re: Consulta de tabela nao funciona quando divido banco de dados.

    Mensagem  Alexandre Neves 6/12/2017, 10:19

    Bom dia
    experimente
    em vez de: Set tbl = mdb.OpenRecordset("PEDIDOS", dbOpenTable)
    use: Set tbl = mdb.OpenRecordset("SELECT * FROM PEDIDOS")


    .................................................................................
    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
    avatar
    marcioj
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 06/10/2017

    Consulta de tabela nao funciona quando divido banco de dados. Empty Re: Consulta de tabela nao funciona quando divido banco de dados.

    Mensagem  marcioj 6/12/2017, 16:41

    ok, neste caso como faço a busca.

    pois dessa forma o SEEK nao pode ser usado.

    Obrigado
    avatar
    marcioj
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 06/10/2017

    Consulta de tabela nao funciona quando divido banco de dados. Empty Re: Consulta de tabela nao funciona quando divido banco de dados.

    Mensagem  marcioj 6/12/2017, 19:52

    Boa tarde

    tentei de outra forma mas consigo consultar apenas o primeiro item da tabela. Pois carrego esse código também nos botões de navegação.

    Private Sub Form_Load()

    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset

    'Get the database and Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("PEDIDOS")

    'Search for the first matching record


    'Check the result
    If rst![COD_VENDA] = Me.TXTCOD_VENDA Then

    Me.FRM_VENDAS_SUB.Enabled = False
    Me.TXTCLIENTE.Enabled = False
    Me.TXTDATA.Enabled = False
    Me.TXTIPI.Enabled = False
    Me.Texto39.Enabled = False
    Me.Texto41.Enabled = False
    Me.Texto43.Enabled = False
    Me.BTNGERARK3.Enabled = False
    Me.BTNGERAR.Enabled = False
    Me.BTNPEDIDO.Enabled = False
    Me.BTNALTERAR.Enabled = False
    Me.BTNANTERIOR.Enabled = True
    Me.BTNEXCLUIR.Enabled = False
    Me.BTNNOVO.Enabled = True
    Me.BTNPRIMEIRO.Enabled = True
    Me.BTNPROXIMO.Enabled = True
    Me.BTNULTIMO.Enabled = True
    Me.BTNSALVAR.Enabled = False
    Me.BTNESTORNAR.Enabled = True
    Me.RTORCAMENTO.Visible = False
    Me.RTFECHADO.Visible = True

    Else
    MsgBox "BEM VINDO, TENHA UM BOM TRABALHO! NAO ESQUEÇA DE LIGAR PARA O CLIENTE!!!"


    End If



    End Sub
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Consulta de tabela nao funciona quando divido banco de dados. Empty Re: Consulta de tabela nao funciona quando divido banco de dados.

    Mensagem  Alexandre Neves 7/12/2017, 10:04

    Bom dia,
    Utilize o método 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
    avatar
    marcioj
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4
    Registrado : 06/10/2017

    Consulta de tabela nao funciona quando divido banco de dados. Empty Re: Consulta de tabela nao funciona quando divido banco de dados.

    Mensagem  marcioj 7/12/2017, 21:24

    Valeu mesmo

    muito obrigado!!!

    funcionou perfeitamente.
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Consulta de tabela nao funciona quando divido banco de dados. Empty Re: Consulta de tabela nao funciona quando divido banco de dados.

    Mensagem  Alexandre Neves 7/12/2017, 21:52

    Faltou o resolvido


    .................................................................................
    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


    Consulta de tabela nao funciona quando divido banco de dados. Empty Re: Consulta de tabela nao funciona quando divido banco de dados.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 00:48