[Resolvido]Exibir mensagem "Deseja abrir outro registro?" aos clicar em "Salvar"

Boa tarde

Tenho vários formulários, que contem o Botão Salvar, em alguns desses queria que ao clicar no botão salvar, aparecesse a mensagem perguntando se o usuário desejasse abrir um novo registro, se o usuário clicar em sim seja pedido o numero de OS, pedido etc.. Antes de abrir estes formulários e perguntado ao usuário o numero de OS, Pedido Etc, onde é recuperado parte de registro que já foram feitos por outros usuários, e nesta ocasião este novo usuário só completa os dados de seu departamento.

Espero que tenham entendido.

O código que estou usando é este:

Código:

Private Sub btnSalvarParecerTecnico_Click()
If IsNull(Me.numeroOs) Then
MsgBox "Não Existe nenhum Parecer Técnico para ser Salvo!", vbCritical + vbOKOnly, "Sistema de Consulta de Produtos - Aviso."
        End If
        Exit Sub
        DoCmd.Save
MsgBox "Parecer Técnico Salvo com Sucesso!", vbCritical + vbOKOnly, "Sistema de Consulta de Produtos - Aviso."
        DoCmd.GoToRecord , , acNewRec
        DoCmd.Close acForm
End Sub

Desde já Agradeço

Bom dia

Alguém pode me dar uma ideia de como fazer?

Bom dia, segue abaixo um modelo de pergunta no msgbox com duas condicoes, uma pergunta se quer salvar, a outra se quer ir para novo registro.

Código:



 Dim PODESALVAR
 Dim IRPARANOVOREGISTRO
 PODESALVAR= MsgBox("Tem deseja gravar estar informações?", vbYesNo, "Salvar Registro")
        If PODESALVAR= vbYes Then
               DoCmd.RunCommand acCmdSaveRecord
               IRPARANOVOREGISTRO = MsgBox("Registro salvo com sucesso!!" & vbCrLf  & "Deseja ir para novo registro?", vbYesNo) then
               if IRPARANOVOREGISTRO  = vbYes Then
                      DoCmd.GoToRecord , , acNewRec
               Else
                      Me.Close 'Fechar formulario apos salvar
               End If
        End If
        


Depois nos conte se deu certo!

Abs,
Ruggeri Barbosa

Um exemplo bem simples, onde ao apertar o Botão ele Pergunta se quer Abrir um Regitro, se a resposta for sim ele Pergunta qual o Codigo (ID) que deve ser digitado. Apos isso ele aplica o Filtro no formulario de acordo com o ID digitado na pergunta. Adapte para suas Ordens Serviço....

Private Sub btSalvar_Click()
'Filtra pelo campo ID da tabela
If MsgBox("Deseja Abrir Um Registro ja Lançado?", vbYesNo + vbInformation, "Atenção!!!") = vbYes Then
'Limpa o Filtro caso esteja ativo
Me.FilterOn = False
'Pergunta o ID para construir o Filtro
Me.Filter = "Id =" & InputBox("Qual codigo do Regitro a ser aberto?", "Titulo da Mensagem") 'Aqui ele solicita o Valor do ID
Me.FilterOn = True

Else
MsgBox "Registro Salvo com Sucesso", vbInformation, "Salvo"
End If
End Sub

Boa tarde Fabio Paes e Ruggeri Barbosa

Muito Obrigado pelo Retorno

O código do Fabio Paes, até que funcionou mas não abriu a ordem de serviços que eu indiquei, a da Ruggeri nem pediu o numero do registro.

Se não abriu é pq esta filtrando no campo errado... Nome do campo deve ser o da tabela, e nao o do Formulario.

ID é o nome do campo da Tabela. e nao do formulario. Se nao der certo avisa que posto um exemplo.

Provavelmente não, mas vale a pena testar...

Veja o Exemplo

Amigo, anexe seu sistema...

Meu amigo, faça o seguinte:

Na consulta de origem dos dados para o Formulário, remova o Critério que pede o código da OS.
No evento ao Abrir do seu Formulario coloque esse Codigo:

Código:


Private Sub Form_Load()
On Error GoTo 1
Me.Filter = "numeroOS =" & InputBox("Qual o numero da Ordem de Serviços a ser aberto?", "Sistema de Abertura de OS - Pergunta") 'Aqui ele solicita o Valor do ID
Me.FilterOn = True
'Para Ignorar o Cancelamento da digitação do Numero da OS
1:
If Err.Number = 3075 Then
        Err.Number = 0
        Exit Sub
    End If
End Sub


Assim faz a mesma função de ja carregar uma OS ao abrir...


Atualiza la o comando do botao salvar, pois add um tratamento de erro, para quando o usuario desistir de digitar o numero da OS e clicar no botao cancelar da pergunta.

Código:


Private Sub btnSalvarParecerTecnico_Click()
On Error GoTo 1
    'Filtra pelo campo Numero de OS da tabela
    If MsgBox("Deseja Abrir Uma Ordem de Serviços ja Registrada?", vbYesNo + vbInformation, "Sistema de Abertura de OS - Atenção!!!") = vbYes Then
        'Limpa o Filtro caso esteja ativo
        Me.FilterOn = False
            'Pergunta o Numero de OS para construir o Filtro
                Me.Filter = "numeroOS =" & InputBox("Qual o numero da Ordem de Serviços a ser aberto?", "Sistema de Abertura de OS - Pergunta") 'Aqui ele solicita o Valor do ID
                Me.FilterOn = True

            Else
            MsgBox "Ordem de Serviços Salvo com Sucesso", vbInformation, "Sistema de abertura de OS - Registro Salvo"
    End If
'Para Ignorar o Cancelamento da digitação do Numero da OS
1:
If Err.Number = 3075 Then
        Err.Number = 0
        Exit Sub
    End If
End Sub