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