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

    [Resolvido]Item nao cadastrado.

    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Item nao cadastrado. Empty [Resolvido]Item nao cadastrado.

    Mensagem  souzadenilson 27/6/2022, 01:43

    Boa noite.
    Alguem informa algum topico, que me oriente como fazer quando item nao esta cadastrado

    Quando digito o codigo, ele retorna a descrição  do produto, caso nao esteja cadastrado ele mostra msn e posiciona o curso no campi que digitou o codigo. Tentei fazer, mas mesmo se nao tiver cadastrado ele pula pra proximo campo


    Última edição por souzadenilson em 29/6/2022, 18:24, editado 1 vez(es)
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4925
    Registrado : 20/04/2011

    [Resolvido]Item nao cadastrado. Empty Re: [Resolvido]Item nao cadastrado.

    Mensagem  Silvio 27/6/2022, 14:01



    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Item nao cadastrado. Empty Re: [Resolvido]Item nao cadastrado.

    Mensagem  souzadenilson 28/6/2022, 01:39

    Boa noite.
    Após algumas tentativas , as orientações foram testadas e consegui que funcionasse, porém quando o código não estiver cadastrado, a ideia é que somente o campo que está o código, seja limpo. e o cursor posicione no campo código

    Código:


    Private Sub Cod_Produto_AfterUpdate()
    If IsNull(DLookup("[desc_produto]", "tab_cadastro", "[cod_produto]= Forms!Frm_acerto!cod_produto")) Then
        MsgBox "Produto Não Cadastrado e/ou Codigo Incorreto", vbCritical, "Aviso"
        'Me.Cod_Produto = " "
        'Me.Cod_Produto.SetFocus
        Me.Undo
        Else
        Me.Desc_Produto = DLookup("desc_Produto", "Tab_Cadastro", "cod_Produto='" & Me.Cod_Produto & "'")
        Me.Fisico_Produto = DLookup("QuantidadeAtual", "Tab_Cadastro", "cod_Produto='" & Me.Cod_Produto & "'")
    End If

    End Sub



    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3777
    Registrado : 04/04/2010

    [Resolvido]Item nao cadastrado. Empty Re: [Resolvido]Item nao cadastrado.

    Mensagem  Avelino Sampaio 28/6/2022, 10:26

    Olá!

    Não utilize o evento "Após Atualizar". Utilize o evento "Antes de Atualizar", pois este tem o argumento apropriado de cancelamento (CANCEL).

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Item nao cadastrado. Empty Re: [Resolvido]Item nao cadastrado.

    Mensagem  souzadenilson 28/6/2022, 17:25

    Boa noite. Realizei uma alteração em uma linha , no lugar do comando me.undo (Limpa todas as celulas) usei cancel=true, porém ela posiciona o curso no campo cod_produto, mas não limpa este campo.

    Código:


    Private Sub Cod_Produto_BeforeUpdate(Cancel As Integer)
        If IsNull(DLookup("[desc_produto]", "tab_cadastro", "[cod_produto]= Forms!Frm_acerto!cod_produto")) Then
        MsgBox "Produto Não Cadastrado e/ou Codigo Incorreto", vbCritical, "Aviso"
        'Me.Cod_Produto = Empty
        'Me.Cod_Produto.SetFocus
        'Me.Cod_Produto = ""
        'Me.Undo
        Cancel = True
        'Me.Cod_Produto = ""
        'Cod_Produto.SetFocus
       
        Me.Btn_Novo.Enabled = True
        Me.Btn_Cadastro.Enabled = True
        Else
        Me.Desc_Produto = DLookup("desc_Produto", "Tab_Cadastro", "cod_Produto='" & Me.Cod_Produto & "'")
        Me.Fisico_Produto = DLookup("QuantidadeAtual", "Tab_Cadastro", "cod_Produto='" & Me.Cod_Produto & "'")
    End If
    End Sub


      Data/hora atual: 15/8/2022, 15:02