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

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

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", acNormal
Abraços

Noob

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

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

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

Ok meu amigo

Valeu o retorno

Boa sorte

Nb