Access - Entre Data inicial e final (www.professorlar.com)

[MrOliveira44]

Gostei do video porem, copilei de acordo com o que está escrito e está dando erro, vou colocar de acordo que copilei.

Private Sub datafinal_BeforeUpdate(Cancel As Integer)

On Error Resume Next

If MsgBox("Deseja consultar este Periodo?", vbInformation + vbYesNo, "Periodo...") = vbYes

DoCmd.OpenReport "rpt_Aniversario,acViewPreview­"

End If

End Sub

[PantaneiroGyn]

Valeu,... me ajudou...