MaximoAccess

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

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    [Resolvido]mensagem do sistema em caixa de combinação

    avatar
    convexx
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/09/2014

    [Resolvido]mensagem do sistema em caixa de combinação Empty [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  convexx em 26/10/2018, 16:24

    Bom dia pessoal, minha duvida e a seguinte, tenho uma caixa de combinação que busca o conteudo em uma tabela, quando é digitado algo que n esta na tabela coloquei para abrir um outro formulario, isso foi nas configurações para editar item da lista por um formulario, meu problema é que o sistema abre uma caixa de mensagem perguntando se desejo editar o item pelo formulario que irá abrir, como faço p que esta mensagem n apareça mais?
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  vieirasoft em 26/10/2018, 16:56

    Defina a combo como "limitada à lista-SIM"na aba "Dados"

    depois, na aba "Acontecimento" e no item "Se não estiver na Lista:

    On Error Resume Next
    Dim i As String
    i = MsgBox("Não pode efectuar esta operação", vbCritical, "Aviso")
    Response = acDataErrAdded
    i = MsgBox("O item não faz parte da lista. Escolha um item da lista.", vbCritical, "Aviso")
    Response = acDataErrContinue
    avatar
    convexx
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/09/2014

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  convexx em 27/10/2018, 20:44

    Obrigado vieira, mas com esse codigo estou pedindo para o sistema me retornar outrs duas mensagens no lugar daquela, eu gostaria que ele n me retornasse nada, e abrisse um formulario que determinei
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2765
    Registrado : 21/04/2011

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  Marcelo David em 27/10/2018, 23:10

    Com permissão do vieira...

    No evento "Se não estiver na lista" da caixa de combinação:


    Código:
    Docmd.OpenForm "FormularioQueDeterminar"
    Response = acDataErrContinue

    E no eveno "Ao ocorrer erro" do formulário que tem a caixa de combinação:

    Código:

    Response = acDataErrContinue


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    vieirasoft
    vieirasoft
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7305
    Registrado : 11/05/2010

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  vieirasoft em 28/10/2018, 10:30

    Boas, Marcelo. Muito bom, embora não perceba a ideia do colega, pois para que isso funcione terá que escrever um item que não estiver na lista para que a caixa de combinação dispare para abrir um outro form, caso contrário não sai do sítio, penso eu, pois o evento "Not inList" não é apropriado para o que o colega quer fazer, como muito bem sabes.

    Um pitaco: No evento ao fechar do form, convém sempre declarar uma variável, pois corre-se o risco de ao fechar aparecer a mensagem do access. Dim Response. Estou a declarar como variant, mas pode ser um astring. Abraço colega.
    avatar
    convexx
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/09/2014

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  convexx em 28/10/2018, 13:37

    perfeito marcelo, funcionou como eu queria, muito obrigado a vc e ao vieira pela disposiçao de ajudar, grato
    avatar
    convexx
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/09/2014

    [Resolvido]mensagem do sistema em caixa de combinação Empty Continuação

    Mensagem  convexx em 28/10/2018, 16:21

    Marcelo, vieira, aproveitando a boa vontade de vcs, segue minha duvida, a mecanica e a seguinte, essa caixa de texto mencionada na duvida anterior, é onde busco produtos em uma tabela, quando digito algo fora da lista, é onde abre um outro formulario para uma pesquisa melhor, este formulario contem uma caixa de texto que e onde vou digitar o que quero buscar e abaixo um quadro lista onde aparecem todos os resultados que contem o que foi digitado acima. bom, o que gostaria é que quando esse formulário abrisse, essa caixa de texto copiasse o que havia digitado na caixa de combinação e não estava na lista. lembrando que essa caixa de combinação esta em um sub formulario continuo
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2765
    Registrado : 21/04/2011

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  Marcelo David em 29/10/2018, 02:33

    Boa noite, reabri o tópico, uma vez que ainda permanece com dúvidas.
    Caso dessa vez seja completamente sanado a questão, marque como resolvido.

    Vamos lá:

    No evento "Se não estiver na lista" da caixa de combinação, altere a linha:
    Código:
    DoCmd.OpenForm "FormularioQueDeterminar"

    Para:
    Código:
    DoCmd.OpenForm "FormularioQueDeterminar", , , , , , NewData


    E no evento Ao abrir do formulário que está sendo aberto (FormularioQueDeterminar):
    Código:
    If Not IsNull(Me.OpenArgs) Then Me.CaixaDeTexto = Me.OpenArgs

    Veja se é isso.


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    avatar
    convexx
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 62
    Registrado : 09/09/2014

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  convexx em 31/10/2018, 21:15

    esse codigo nao funcionou marcelo, na vdd deu ate um erro no access q ele fecha ou reinicia, tive q retira-lo
    Marcelo David
    Marcelo David
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2765
    Registrado : 21/04/2011

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  Marcelo David em 31/10/2018, 22:41

    Então meu amigo, deve estar fazendo algo errado.

    Veja o exemplo exatamente como informei anteriormente:
    Digite algo que não esteja na lista...
    Anexos
    [Resolvido]mensagem do sistema em caixa de combinação AttachmentSeNaoEstiverNaLista_new1.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (49 Kb) Baixado 7 vez(es)


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

    Conteúdo patrocinado

    [Resolvido]mensagem do sistema em caixa de combinação Empty Re: [Resolvido]mensagem do sistema em caixa de combinação

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/7/2019, 21:52