SALVAMENTO AUTOMÁTICO

Amigos, ói eu aqui de novo.,,...
preciso da ajuda de vocês, grandes mestres...
como faço para evitar o salvamento automático em um formulário....

é o seguinte.. tem um formulário com alguns sub form... e gostaria de salvar o registro só depois que tivesse tudo preenchido, inclusive o sub form...
como posso fazer isso?

Grato
Robson

Robson

Pode usar assim

Private Sub Form_Unload(Cancel As Integer)
Dim strMsg As String
strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo

End If
End Sub

Se pretende obrigar a ter os campos todos preenchidos antes de sair, veja aqui no repositório de exemplos

Veja este também do Dilson

http://maximoaccess.forumeiros.com/t2284-validar-ao-sair-do-campo-textbox-do-access-obrigar-preenchimento

Vieira, valeu pelas dicas, mas acho que não me fiz entender....
enfrento o seguinte problema:

tenho um formulário principal que, de acordo com a opção escolhida, me abrirá o subformulário para entrada de informações específicas.
o problema é que ao navegar do formulário principal para o sub o formulário principal salva os dados automaticamente.
para resolver o problema, coloquei um rotina no evento ANTES DE ATUALIZAR do form principal perguntando se queria salvar os dados ou não (neste momento parte dos dados são salvos) assim consigo trabalhar com o sub form para completar as informações.
o que preciso, não sei se tem jeito, é que a navegação entre o form principal e o sub form aconteça sem ter que salvar previamente parte do conteúdo digitado.
eu gostaria de salvar somente depois que todas as informações estivessem completas.
Sendo mais específico:
no form principal digito: MATRICULA DO ALUNO, TELEFONE, EMAIL, TIPO DE SOLICITAÇÃO E DESTINO.
se o TIPO DE SOLICITAÇÃO for igual a PROVA SUBSTITUTIVA (por exemplo), o subform RELAÇÃO DE DISCIPLINAS vai se habilitar para receber as informações com o Codigo da Disciplina e Nome da disciplina.
Tudo funciona bem, porém, quando saio do form principal e vou para o subform informar a disciplina, PIMBA, o form principal foi para um novo registro.
Então coloquei no evento ANTES DE ATUALIZAR do form principal a seguinte rotina:

If Me.NewRecord Then
If MsgBox("Deseja salvar os dados?", vbOKCancel) <> vbOK Then

Set DB = DBEngine.Workspaces(0).Databases(0)

x = COD_PROTOCOLO.Value

' Limpar a tabela de tramitação
SQL = "DELETE * FROM tb_TRAMITACAO WHERE COD_PROTOCOLO = " & x
DB.Execute (SQL)
salvou = False
Cancel = True
Me.Undo
Me.guia_RELACAO_DE_DISCIPLINAS.Visible = False
Me.guia_DISCIPLINAS_EQUIVALENTES.Visible = False
Me.guia_DOCTOS_SEMAT.Visible = False
Me.guia_REINGRESSO.Visible = False
Me.guia_DESISTENCIA_OFICIAL.Visible = False
Me.guia_ALTERA_ENDERECO.Visible = False
Me.guia_SOLIC_DOC_ACADEMICO.Visible = False

Else


Call AtualizarDestino(CLng(COD_PROTOCOLO.Value))
salvou = True
Me.MATR_ALUNO.SetFocus

End If

End If

depois de confirmar o salvamento, consigo trabalhar no subform e completar as informações. isso me atende, mas acho que ficou meio amador esse negócio.
Gostaria de conseguir digitar tudo que preciso e só depois de tudo informado, salvar os registros. Entende?
Será que tem jeito?
Robson

Amigo

Se o form principal e o sub formulário estiverem ligados por uma chave primária os seus problemas acabam. Vocês complicam o simples. Se as tabelas e sub tabelas estiverem bem ligadas, tudo funciona bem.

Boa noite...


Uma sugestão, e se estes campos que você está querendo somente salvar depois de confirmar, estiverem como não acoplados, será que não resolveria???, ou seja, não estaria ligado ao banco e por isso não seria salvo enquanto houvesse a confirmação...

Tenta e qualquer coisa avisa se deu certo....

Boa noite JoJunior

Acopolado ou não já temos este código acima postado;

Private Sub Form_Unload(Cancel As Integer)
Dim strMsg As String
strMsg = "Foram efectuadas alterações"
strMsg = strMsg & "...Deseja gravar as alterações?"
If MsgBox(strMsg, vbQuestion + vbYesNo, "Gravar?") = vbYes Then
'do nothing
Else
DoCmd.RunCommand acCmdUndo

End If
End Sub

Só salva se o utilizador entender de o fazer.