Estoy trabajando con Visual Basic 6 y tengo la siguiente subrutina:
Código:
Public Sub RutinaError(Optional frm As Form)
If cnn(1).Errors.Count > 0 Or cnn(1).State = 1 Then
cnn(1).RollbackTrans
cnn(1).Errors.Clear
End If
MsgBox Err.Number & ": " & Err.Description, vbExclamation + vbOKOnly, "Error..."
Err.Clear
frm.MousePointer = vbDefault
End Sub La tengo para que cuando haya un error en la aplicación me llame esa subrutina y si el cursor en la pantalla donde dió error estaba en hourglass pues que lo ponga a Default.
Sucede que hay veces que error se produce en un módulo y cuando llamo a la subrutina, no le le puede pasar el form ya que como dije anteriormente es un módulo.
La pregunta es: Como yo puedo preguntar si he recibido el parámetro frm o no?
