[Resolvido]Não deixar ir para novo registro sem salvar?

Danielldc 5/3/2012, 03:12

Danielldc: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 52
Registrado : 23/05/2011

Mensagem nº1

Não deixar ir para novo registro sem salvar?

Mensagem Danielldc 5/3/2012, 03:12

Ola a todos.

Gostaria de saber como faço para não deixar ir para um novo registro sem salvar o atual no formulário.

No Aguardo.

Access 2007.

Convidad 5/3/2012, 03:27

Convidad

Convidad: Convidado

Mensagem nº2

Re: [Resolvido]Não deixar ir para novo registro sem salvar?

Mensagem Convidad 5/3/2012, 03:27

Olá!
Pode usar a propriedade Dirty no seu botão de navegação.
Algo assim:


If Form.Dirty Then
   Me.CampoTal.SetFocus
   MsgBox "Precisa salvar antes de mudar de registro"
Else
   DoCmd.RunCommand acCmdRecordsGoToNew
End If

Danielldc 5/3/2012, 03:52

Danielldc

Danielldc: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 52
Registrado : 23/05/2011

Mensagem nº3

Re: [Resolvido]Não deixar ir para novo registro sem salvar?

Mensagem Danielldc 5/3/2012, 03:52

Ola Norbs, Obrigado por Responder.

Acho que não me expressei direito.

O que eu quero é o seguinte. No meu formulario uso a tecla TAB para navegar nos campos, acontece que quando chego no último campo ele gera um novo registro, gostaria que no último campo obrigasse o usuário a salvar o formulário.

No Aguardo.

Access 2007

Convidad 5/3/2012, 04:21

Convidad

Convidad: Convidado

Mensagem nº4

Re: [Resolvido]Não deixar ir para novo registro sem salvar?

Mensagem Convidad 5/3/2012, 04:21

Uma dica: vc pode impedir que o form vá para o próximo registro depois do último campo. Basta alterar a Propriedade Ciclo do form para Registro atual.

Pode haver várias maneiras de fazer o que vc quer, dependendo dos detalhes do seu form.

Uso o código abaixo para impedir a navegação se o registro for editado e não salvo.
No evento NoAtual do form:


Private Sub Form_Current()
On Error GoTo Trato
    If Form.Dirty = True Then
        MsgBox "Salve as alterações antes de continuar."
    End If
Exit Sub
Trato:
MsgBox Err.Description
End Sub