Olá amigos, tenho uma duvida e conto com a ajuda de vcs. Tenho um formulario que toda ves que abro e desisto de fazer o registro ele salva mesmo sem eu digitar nada. posso entrar e sair 10 vezes que ele salva 10 registros em branco. O que posso fazer para resolver isso. quero que os registros sejão salvos apos eu apertar o botão salvar, não automaticamente. Abraço...
salvando registros automaticamente.
matheuspereira- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 513
Registrado : 31/12/2012
- Mensagem nº1
salvando registros automaticamente.
Convidado- Convidado
- Mensagem nº2
Re: salvando registros automaticamente.
Crie no form um botão "salvar" e nele cole o código:
Autor JPaulo
Dim X As Integer
If (Me.Dirty = True) Then
X = MsgBox("Salvar registro no sistema ?", vbYesNo, "CADASTRO DE CLIENTES")
If X = vbNo Then
Me.Undo
Exit Sub
Else
RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Exit Sub
End If
If (Me.Dirty = False) Then
MsgBox "Registro já salvo...", vbCritical, "Atenção"
Exit Sub
End If
No botão "fechar" o código:
Dim X As Integer
If Me.Dirty Then
X = MsgBox("Houve adição ou alterações de registro, deseja salvar ?", vbYesNo, "CADASTRO DE CLIENTES")
If X = vbNo Then
Me.Undo
End If
End If
DoCmd.Close
Autor JPaulo
Dim X As Integer
If (Me.Dirty = True) Then
X = MsgBox("Salvar registro no sistema ?", vbYesNo, "CADASTRO DE CLIENTES")
If X = vbNo Then
Me.Undo
Exit Sub
Else
RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Exit Sub
End If
If (Me.Dirty = False) Then
MsgBox "Registro já salvo...", vbCritical, "Atenção"
Exit Sub
End If
No botão "fechar" o código:
Dim X As Integer
If Me.Dirty Then
X = MsgBox("Houve adição ou alterações de registro, deseja salvar ?", vbYesNo, "CADASTRO DE CLIENTES")
If X = vbNo Then
Me.Undo
End If
End If
DoCmd.Close
matheuspereira- Super Avançado
- Respeito às regras :
Sexo :
Localização :
Mensagens : 513
Registrado : 31/12/2012
- Mensagem nº3
resolvido
valeu amigo, obrigado mesmo...