jueves, 21 de febrero de 2013

¿Cómo evitar el clic en un vínculo si es un registro nuevo?

En ocasiones colocamos valores en una grilla de tipo "vínculos" que disparan una acción al hacer clic sobre ellos. Este puede ser el caso para imprimir un reporte o conocer información más detallada sobre un registro.

Sin embargo, a veces queremos que la acción de clic no se ejecute cuando aún no terminamos de crear el registro, como se ve en la siguiente imagen:


En esos casos podemos utilizar el siguiente código:

Private Sub Reporte_Click()
    Dim intnewrec As Integer
    intnewrec = Me.NewRecord
    If intnewrec = False Then
        On Error Resume Next
        DoCmd.OpenReport "Nota_Componentes", acViewPreview, , "[ID Nota]=" & Me("ID")
        If Err = 2501 Then Err.Clear
        DoCmd.Maximize
        DoCmd.RunCommand acCmdZoom100
    End If
End Sub