[Resolvido]Validar período de data em dois campos frm e subfrm

Senhores,

Tenho um frmCadastro e um subformulário acoplado subfrmItemcadastro, sendo que no frmcadastro tem o campo “DataRegistro” (formato data) e no subfrmItemcadastro tem o campo DataContabil (formato data).

Minha dúvida é a seguinte: Como proceder para criar uma validação ao preencher o campo DataContabil no subfrmitemcadastro que o access verifique se o mês e ano deste campo é igual ao Mês e ano do campo DataRegistro do formCadastro, se for negativo o access não deixará gravar o registro e retornará a mensagem: “Mês e ano contábil não é o mesmo da data de registro”

Donizeth

No evento antes de atualizar da caixa de texto DataContabil coloque:

Código:


If (Month(Me!DataContabil) <> Month(Parent!DataRegistro)) AND (Year(Me!DataContabil) <> Year(Parent!DataRegistro)) then
 
    Msgbox "Diferente - Não grava"

Endif


Abraços

Balem, Não está funcionando, ajustei com o mome do meu frm mas não funcionou, veja por favor:

Private Sub DATA_LANCAMENTO_BeforeUpdate(Cancel As Integer)

If (Month(Me![DataContabil]) <> Month(Forms!gerarprotocolocabcontabil![DataRegistro])) And (Year(Me![DataContabil]) <> Year(Forms!gerarprotocolocabcontabil![DataRegistro])) Then



MsgBox "Diferente - Não grava"

End If

End Sub

Mantenha o Parent que se refere ao form principal
E como você mesmo pediu, o código vai na propriedade da caixa de texto DataContabil.
Assim:

Código:


Private Sub DataContabil_BeforeUpdate(Cancel As Integer)

If (Month(Me![DataContabil]) <> Month(Parent![DataRegistro])) And (Year(Me![DataContabil]) <> Year(Parent![DataRegistro])) Then



MsgBox "Diferente - Não grava"

End If


End Sub

Obrigado, deu certo.

Ótimo Donizeth

Valeu pelo retorno.

Boa sorte!

realmente não está funcionando. o campo DataContabil está em um subform que está em outro subform que está acoplado ao formprincipal, logo se uso o parent não funciona, porém nem utilizando o mome do form principal também não funciona.

Private Sub DATA_LANCAMENTO_BeforeUpdate(Cancel As Integer)

If (Month(Me![DataContabil]) <> Month(Forms!gerarprotocolocabcontabil![DataRegistro])) And (Year(Me![DataContabil]) <> Year(Forms!gerarprotocolocabcontabil![DataRegistro])) Then



MsgBox "Diferente - Não grava"

End If

End Sub

Afinal

Qual caixa de texto que é preenchida com a data para então fazer a validação?

Me diga os nomes do

Form Principal

subformulário

e subformulário que está dentro do anterior.

Aguardo...

A caixa de texto que é preenchida com a data para validação é: DataContabil e a caixa de texto do frm principal com a data de registro é: dataregistro

os forms são:
form principal: Gerarprotocolocabcontabil

subform vinculado ao form principal Gerarprotocolocabcontabil: Gerarprotocoloitemcontabil


subform vinculado ao subform Gerarprotocoloitemcontabil: Gerarprotocoloitemrateio

Deste modo o que desejo realizar é o seguinte: Ao preencher a data no campo datacontabil do subform Gerarprotocoloitemrateio, deverá ser validado se o mês e ano desta data é o mesmo mês e ano do campo dataregistro do form principal Gerarprotocolocabcontabil

Certo

Então volto a insistir:

Use o código no evento antes de atualizar da caixa de texto dataContabil.

Private Sub DataContabil_BeforeUpdate(Cancel As Integer)

If (Month(Me![DataContabil]) <> Month(Parent.Parent![DataRegistro])) And (Year(Me![DataContabil]) <> Year(Parent.Parent![DataRegistro])) Then



MsgBox "Diferente - Não grava"

End If

End Sub

Balen,

só consegui fazer funcionar ajustando o código para:


If Format(Me.[DataContabil], "/mm/yyyy" & "'") <> Format(Parent.Parent![Dataregistro], "/mm/yyyy" & "'") Then



MsgBox "Diferente - Não grava"

Me.Undo


End If

Ótimo Donizeth

Essa é outra maneira.

Parabéns

Valeu pelo retorno.

Boa sorte