Fala galerinha,Blz?!
Estou precisando da força de vocês mais uma vez, li e reli algumas coisas mas não sei o que está acontecendo.
Foi criado esta rotina no botão Salvar este é o final do código:
If IsNull(Me.Aniversário) Or Me.Aniversário.Value = "" Then
MsgBox ("Seria Interesante Colocar a data de Nascimento")
Me.Aniversário.BackColor = 2552550
Me.Aniversário.SetFocus
Exit Sub
Else
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
Até aí beleza ele cumpre o seu papel, se no caso a pessoa não quiser mais cadastrar,ele vai clicar no botão cancelar(que sai do form e vai para o menu):
Private Sub btnCancela_Click()
Dim X As Integer
If Me.Dirty Then
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close
DoCmd.OpenForm "Menu"
DoCmd.Maximize
End Sub Este código também foi feito com ajuda de vcs, se a pessoa estiver no meio do cadastro e clicar em cancelar ele vai desconsiderar o que estava sendo digitado, e limpar o formulário, até aí beleza!!
Agora o que está acontecendo é o seguinte ao preencher tudo,oK, e clicar em salvar, fica os dados no formulário(mas já estão salvos estes registros na tabela), aí eu clico em cancelar ele vai para o menu, mas quando volto o formulário está "Sujo". Pesquisando aqui no site eu vi este código que achei interessante do Pablo:
http://maximoaccess.forumeiros.com/t4736-resolvidolimpar-campos-do-form-e-do-subform?highlight=limpar+campos
A única coisa que mudei foi chamar o módulo de Clear e a function de Limpar(somente), mas não funciona e nem dá erro. Fico no aguardo,Obrigado!
Estou precisando da força de vocês mais uma vez, li e reli algumas coisas mas não sei o que está acontecendo.
Foi criado esta rotina no botão Salvar este é o final do código:
If IsNull(Me.Aniversário) Or Me.Aniversário.Value = "" Then
MsgBox ("Seria Interesante Colocar a data de Nascimento")
Me.Aniversário.BackColor = 2552550
Me.Aniversário.SetFocus
Exit Sub
Else
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
Até aí beleza ele cumpre o seu papel, se no caso a pessoa não quiser mais cadastrar,ele vai clicar no botão cancelar(que sai do form e vai para o menu):
Private Sub btnCancela_Click()
Dim X As Integer
If Me.Dirty Then
DoCmd.RunCommand acCmdUndo
End If
DoCmd.Close
DoCmd.OpenForm "Menu"
DoCmd.Maximize
End Sub Este código também foi feito com ajuda de vcs, se a pessoa estiver no meio do cadastro e clicar em cancelar ele vai desconsiderar o que estava sendo digitado, e limpar o formulário, até aí beleza!!
Agora o que está acontecendo é o seguinte ao preencher tudo,oK, e clicar em salvar, fica os dados no formulário(mas já estão salvos estes registros na tabela), aí eu clico em cancelar ele vai para o menu, mas quando volto o formulário está "Sujo". Pesquisando aqui no site eu vi este código que achei interessante do Pablo:
http://maximoaccess.forumeiros.com/t4736-resolvidolimpar-campos-do-form-e-do-subform?highlight=limpar+campos
A única coisa que mudei foi chamar o módulo de Clear e a function de Limpar(somente), mas não funciona e nem dá erro. Fico no aguardo,Obrigado!