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]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 : 3101
    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 : 3101
    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 : 3101
    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)

      Data/hora atual: 8/7/2020, 05:54