Problemilla en consulta de access 2003 !!!

[quimfv]

Código vb:

Dim haydatos As Boolean
Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer)
DoCmd.SetWarnings False
If haydatos Then
If Me.LIMITE_CREDITO >0 Then
    Me.LIMITE_CREDITO.ForeColor = 255
Else
    Me.LIMITE_CREDITO.ForeColor = 16711680
End If
End If
DoCmd.SetWarnings True
End Sub
 
Private Sub Report_NoData(Cancel As Integer)
    MsgBox "No hay registros"
    haydatos = False
End Sub
 
Private Sub Report_Open(Cancel As Integer)
    haydatos = True
End Sub
 

esto no da errores no se si habrá una cosa mejor...

Quim