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


2 participantes

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

    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 06/09/2011

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

    Mensagem  wmantovani 29/10/2014, 10:23

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 29/10/2014, 10:42

    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 29/10/2014, 11:56, editado 1 vez(es)


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 06/09/2011

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

    Mensagem  wmantovani 29/10/2014, 11:38

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 29/10/2014, 11:59

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 218
    Registrado : 06/09/2011

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

    Mensagem  wmantovani 29/10/2014, 13:24

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


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Noobezinho 29/10/2014, 13:30

    Ok meu amigo

    Valeu o retorno

    Boa sorte

    Nb


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 18:58