MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Combo com mensagem

    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 10/09/2012

    [Resolvido]Combo com mensagem Empty [Resolvido]Combo com mensagem

    Mensagem  fabianobilo em 11/9/2020, 19:32

    Boa tarde pessoal!
    Tenho um combo num sub form que busca no cadastro de produtos o nome do produto para elaboração de uma proposta.
    Porém, gostaria que quando o produto de busca não estiver cadastrado no cadastro de produto, informasse como produto não cadastrado e abrisse o formulário de produtos para efetuar o cadastro e inserir na proposta.

    Banco de dados em anexo

    Att

    Fabiano
    Anexos
    [Resolvido]Combo com mensagem Attachmentprojeto_combo.zip
    projeto para análise
    Você não tem permissão para fazer download dos arquivos anexados.
    (876 Kb) Baixado 17 vez(es)
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1618
    Registrado : 17/03/2011

    [Resolvido]Combo com mensagem Empty Re: [Resolvido]Combo com mensagem

    Mensagem  Cláudio Machado em 17/9/2020, 03:10

    Boa noite.
    Na sua Combo insira este código no Evento "Se não estiver na lista":

    Código:

    Response = acDataErrContinue  ' Inibe msg padrão do Access.

      If MsgBox("Produto não cadastrado:  '" & NewData & "'" & vbCrLf & "Deseja Cadastrar?", 32 + vbYesNo, "Informando") = 6 Then

      DoCmd.OpenForm "Frm_Produtos", , , , acFormAdd, acDialog, NewData

      ' A execução deste código fica interrompida aqui até o fechamento do formulário Cadastro de Produtos.

            SetorEmpresa = UCase(NewData) ' Converte o texto para maiúsculas.

            Response = acDataErrAdded

        Else

            Response = acDataErrContinue

        End If


    No seu formulário de Cadastro de Produto, insira ente código:

    Código:

    Private Sub Form_Load()
    If Not IsNull(Me.OpenArgs) Then
            Me!nome_produto = UCase(Me.OpenArgs) 'nome_produto é o nome da caixa de texto do produto
        End If
    End Sub


    Não esqueça de alterar a Propriedade da Combo em "Limitar a uma lista" para Sim
    Adapte ao seu sistema.

    No aguardo.


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Combo com mensagem 90dssg para agradecer a dica que solucionou seu problema.
    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 147
    Registrado : 10/09/2012

    [Resolvido]Combo com mensagem Empty Combo com mensagem

    Mensagem  fabianobilo em 18/9/2020, 17:53

    Claudio!

    Perfeito!

    Muito obrigado

    Att

    Fabiano
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1618
    Registrado : 17/03/2011

    [Resolvido]Combo com mensagem Empty Re: [Resolvido]Combo com mensagem

    Mensagem  Cláudio Machado em 18/9/2020, 20:18

    Que bom que resolveu.
    o fórum agradece o retorno.
    Boa sorte!


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha [Resolvido]Combo com mensagem 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: 24/10/2020, 09:16