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

    [Resolvido]Produto não cadastrado

    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Produto não cadastrado Empty [Resolvido]Produto não cadastrado

    Mensagem  souzadenilson 12/9/2022, 01:22

    Boa noite.

    Realizei uma alteração em um projeto que estou trabalhando, porem no formulario acerto, quando digito um código já existente, ele informa que o código não existe , mas o campo código é limpo e a descrição permanece.
    Alguma sugestão de quando o código não existir ele limpa o campo que digita o código e posiciona o cursor novamente no campo para digitar o código.
    Anexos
    [Resolvido]Produto não cadastrado AttachmentProjeto_1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (273 Kb) Baixado 12 vez(es)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 480
    Registrado : 25/02/2016

    [Resolvido]Produto não cadastrado Empty Re: [Resolvido]Produto não cadastrado

    Mensagem  FranklinJSP 12/9/2022, 15:58

    Bom dia Denilson!

    Aquí o erro

    Código:
    Private Sub Cod_Produto_Exit(Cancel As Integer)
        On Error Resume Next
        Me.Desc_Produto = DLookup("Id_DescProduto", "Tab_Cadastro", "Id_CodProduto=" & Me.Cod_Produto & "")
        Me.Fisico_Produto = DLookup("Id_EstoqueAtual", "Tab_Cadastro", "Id_Codproduto=" & Me.Cod_Produto & "")
       
        If IsNull(DLookup("[Desc_Produto]", "tab_cadastro", "[Id_Codigo]= Forms!Frm_Acerto!Cod_Produto")) Then    '<--- [Id_Codigo] deve ser [Id_CodProduto]
            'If MsgBox("Produto Não Cadastrado", vbCritical, "Aviso") Then
            'Me.Cod_Produto = Empty
            'Me.Cod_Produto.SetFocus
            'Me.Cod_Produto = ""
            'Me.Undo
            'Cancel = True
         
            MsgBox "Produto Não Cadastrado e/ou Codigo Incorreto", vbCritical, "Aviso"
             
            'Me.Cod_Produto = Cancel
            Me.Cod_Produto = ""
            Me.Cod_Produto.SetFocus
            'Me.Cod_Produto = ""
       
            'Exit Sub
        Else
            Me.Desc_Produto = DLookup("Id_DescProduto", "Tab_Cadastro", "Id_CodProduto=" & Me.Cod_Produto & "")
            Me.Fisico_Produto = DLookup("Id_EstoqueAtual", "Tab_Cadastro", "Id_Codproduto=" & Me.Cod_Produto & "")
           
            'End If
        End If
    End Sub

    Saludos!


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    souzadenilson
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 222
    Registrado : 02/05/2012

    [Resolvido]Produto não cadastrado Empty Re: [Resolvido]Produto não cadastrado

    Mensagem  souzadenilson 12/9/2022, 23:52

    Obrigado.
    Consegui fazer caso o código não seja cadastrado limpar o campo código e posicionar o cursor nele

    Conteúdo patrocinado


    [Resolvido]Produto não cadastrado Empty Re: [Resolvido]Produto não cadastrado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 7/12/2024, 14:48