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


    [Resolvido]Combo com mensagem

    avatar
    fabianobilo
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  fabianobilo 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 20 vez(es)
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 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 : Respeito às Regras 100%

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

    [Resolvido]Combo com mensagem Empty Combo com mensagem

    Mensagem  fabianobilo 18/9/2020, 17:53

    Claudio!

    Perfeito!

    Muito obrigado

    Att

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

    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Cláudio Machado 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.

    Conteúdo patrocinado

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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 14/5/2021, 10:20