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]Ajuda para montar função com caixa de mensagem..

    Compartilhe

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 05/09/2011

    [Resolvido]Ajuda para montar função com caixa de mensagem..

    Mensagem  wmantovani em Qua 29 Out 2014, 6:23 am

    montei a seguinte função abaixo, porem nao estou conseguindo aplicar na prática...na logica é assim



    o usuário ao inserir um endereço em um formulário e ao clicar no botão salvar, o sistema verifica se ja há cadastro, se sim, ele deve perguntar se deseja gravar mesmo assim, se nao ele limpa todo o formulário, porem se nao houver o cadastro, ele deve cadastrar e somente informar o numero da ordem de serviço com a previsão de execução


    Private Sub OLENãoAcoplado148_Click()

    Dim resultado As VbMsgBoxResult

    If DCount("LOG_NU_SEQUENCIAL", "consGalhosExistentesPendentes", "LOG_NU_SEQUENCIAL=" & Me.Cod_Rua) >= 1 Then

    MsgBox "Endereço já cadastrado !!! Deseja acrescentar novamente ?", vbYesNo, "Atenção"
    resultado = vbYes
    Refresh _
    MsgBox "A previsão de coleta é para " & [DATA] + 20 & ". O Número do pedido é:" & Me.CÓDIGO, vbCritical, "Atenção"
    DoCmd.Close acForm, "COLETA DE GALHOS"
    DoCmd.OpenForm "COLETA DE GALHOS", acNormal, "", "", , acNormal
    Else
    MsgBox "Você cancelou o pedido
    Me.Undo
    End If


    End Sub
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Ajuda para montar função com caixa de mensagem..

    Mensagem  Noobezinho em Qua 29 Out 2014, 6:42 am

    Mantovani

    Experimente :

    Código:


    Private Sub OLENãoAcoplado148_Click()

    Dim resultado As VbMsgBoxResult

    If DCount("LOG_NU_SEQUENCIAL", "consGalhosExistentesPendentes", "LOG_NU_SEQUENCIAL=" & Me.Cod_Rua) <> 0 Then

        If MsgBox ("Endereço já cadastrado !!! Deseja acrescentar novamente ?", vbCritical+vbYesNo, "Atenção" ) = vbyes then
            MsgBox "A previsão de coleta é para " & [DATA] + 20 & ". O Número do pedido é:" & Me.CÓDIGO, vbCritical, "Atenção"
            DoCmd.Close acForm, "COLETA DE GALHOS"
            DoCmd.OpenForm "COLETA DE GALHOS", acNormal
       Else
           MsgBox "Você cancelou o pedido", vbInformation,"Pedido cancelado"
           Me.Undo
       End If
    Endif
    End Sub

    Só não entendi o que pretende com essa parte do código, fechando e abrindo o mesmo formulário.
    DoCmd.Close acForm, "COLETA DE GALHOS"
    DoCmd.OpenForm "COLETA DE GALHOS", acNorma
    l
    Abraços

    Noob


    Última edição por Noobezinho em Qua 29 Out 2014, 7:56 am, editado 1 vez(es)


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 05/09/2011

    Re: [Resolvido]Ajuda para montar função com caixa de mensagem..

    Mensagem  wmantovani em Qua 29 Out 2014, 7:38 am

    Nao deu certo caro Noobezinho, da erro de compilação na linha


    If(MsgBox "Endereço já cadastrado !!! Deseja acrescentar novamente ?", vbCritical+vbYesNo, "Atenção" ) = vbyes then
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Ajuda para montar função com caixa de mensagem..

    Mensagem  Noobezinho em Qua 29 Out 2014, 7:59 am

    Opes

    Eu escrevi o código no bloco de notas e colei , não percebi que coloquei  o primeiro parênteses em lugar errado.

    Já consertei  la no post anterior, é só copiar a linha novamente e colar.

    If MsgBox ("Endereço já cadastrado !!! Deseja acrescentar novamente ?", vbCritical+vbYesNo, "Atenção" ) = vbyes then


    Dai me explique sobre  os dois comando em vermelho.

    Aguardo...


    Nb


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

    wmantovani
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 05/09/2011

    Re: [Resolvido]Ajuda para montar função com caixa de mensagem..

    Mensagem  wmantovani em Qua 29 Out 2014, 9:24 am

    Valeu Noobezinho, deu certo agora...muito obrigado mesmo...
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2807
    Registrado : 29/06/2012

    Re: [Resolvido]Ajuda para montar função com caixa de mensagem..

    Mensagem  Noobezinho em Qua 29 Out 2014, 9:30 am

    Ok meu amigo

    Valeu o retorno

    Boa sorte

    Nb


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se quem está pedindo ajuda, ajudamos e não retornou.
    Se a pessoa em questão não deu retorno, não tentarei ajudar novamente .

      Data/hora atual: Ter 22 Ago 2017, 8:31 pm