Loading...
Uploaded by professorlar on Mar 3, 2010
Esta vídeo-aula tem o objetivo de mostrar de forma rápida e prática como consultar aniversariantes em determinado período.
Education
Standard YouTube License
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
MrOliveira44 2 months ago
Valeu,... me ajudou...
PantaneiroGyn 1 year ago
Load more suggestions
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
MrOliveira44 2 months ago
Valeu,... me ajudou...
PantaneiroGyn 1 year ago