Access - Selección fecha en un formulario e iinforme

Private Sub ConfirmarVisita_AfterUpdate()

    If Me.ConfirmarVisita Then  'Si está activada la casilla

        'Nos situamos en el campo del coste

        Me.CosteVisita.SetFocus

    Else

        'Si no, ponemos el coste a 0

        Me.CosteVisita = 0

    End If

End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

    'Andes de guardar el registro

    If Me.ConfirmarVisita And Nz(Me.CosteVisita) = 0 Then 'Si está activada la casilla y el coste está a 0

        'Sacamos un mensaje

        MsgBox "Si se confirma la visita es necesario poner el valor de coste"

        'Activamos el campo de coste

        Me.CosteVisita.SetFocus

        'Cancelamos la actualización del registro

        Cancel = True

    End If

End Sub