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

    Erro Recordset

    avatar
    samueldrun
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    Erro Recordset  Empty Erro Recordset

    Mensagem  samueldrun 3/10/2017, 15:04

    Bom dia,

    galera tenho um formulário que cadastra produtos em estoque onde o código do produto é uma chave primária e eu encontrei um código para o botão salvar que no evento onclick ele de uma mensagem se eu estiver tentando inserir um valor ja existente no banco de dados, e se o valor nao existir ele cadastra tranquilo, mas esta aparecendo um erro nessa parte que deixei de outra cor alguém pode me ajudar

    Dim IDsEncontrados As Recordset

    strSQL = "SELECT Codigo_pro FROM Cad_estoque WHERE Codigo_pro = " & Me.Codigo_pro & """"
       Set IDsEncontrados = CurrentDb.OpenRecordset(strSQL)

    If IDsEncontrados.RecordCount <> 0 Then
        MsgBox "Já existe registro com esse número.", vbInformation, "Erro"
    Cancel = True 'cancela o evento.
    Else
    DoCmd.RunCommand acCmdSaveRecord
    Me.Comando50.Enabled = True
    Me.Comando15.Enabled = False
    Me.Combinação13.Enabled = False
    Me.Comando22.Enabled = True
    Me.Comando24.Enabled = True
    Me.Quantidade.Enabled = False
    Me.Lista48.Requery
    Me.Refresh
    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

    Erro Recordset  Empty Re: Erro Recordset

    Mensagem  Alexandre Neves 3/10/2017, 16:00

    Boa tarde, se Codigo_pro fôr número, use
    strSQL = "SELECT Codigo_pro FROM Cad_estoque WHERE Codigo_pro = " & Me.Codigo_pro


    .................................................................................
    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
    samueldrun
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 22/09/2017

    Erro Recordset  Empty [Resolvido]Erro Recordset

    Mensagem  samueldrun 3/10/2017, 16:08

    Muito Obrigado Alexandre consegui 100%, muito obrigado mesmo


    Última edição por samueldrun em 4/10/2017, 01:33, editado 1 vez(es)
    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

    Erro Recordset  Empty Re: Erro Recordset

    Mensagem  Alexandre Neves 3/10/2017, 19:50

    Faltou marcar 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


    Erro Recordset  Empty Re: Erro Recordset

    Mensagem  Conteúdo patrocinado


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