Autor Tema: Error 91 Al Asignar Valor Del Tag De Un Formulario (Leído 2597 veces)

Epa · « **en:** Sábado 23 de Septiembre de 2006, 02:48 »

Buenas gente.
Me surgio un problemita y me prgunte si alguien me podia dar una mano.

Tengo un editor de texto de multiples instancias.
El formulario MDI tiene todos los menus y quiero que si no hay ningun formulario de texto abierto, algunos de los menus se inhabiliten, para lo que hice lo siguiente.

El formulario MDI tiene como tag "Main"
Los formularios de texo tienen como tag:
En caso de que sea un nuevo docuemento, "Nuevo"
Caso que sea un archivo existente la ruta del archivo.

Luego en el evento click del menu (p.e.) Edicion

Dim frmTag as String

frmTag = Screen.ActiveForm.Tag

If frmTag = "Main"
...
Elseif frmtag = "Nuevo"
...
Else
...
End if

Pero cuando no hay ningun formulario abierto y llega a la linea:
frmTag = Screen.ActiveForm.Tag
Genera un error 91
"La Variable de Tipo Object o la variable de bloque With no está establecida"

Sin embargo, si eligo depurar el error y pongo el cursor sobre Screen.ActiveForm.Tag
me muestra que tiene el valor "Main"

Probe declarar una variable objeto como formulario, y asignarle el formulario activo para luego guardar el tag, sin embargo genera el mismo error cuando intento asignarlo.

Espero agluien tenga una idea de como solucionarlo.

Gracias de antemano.
Saludos

DiabloRojo

Hola Podrías probar a comprobar primero si hay algún form activo y luego hacer la asignación del valor Tag. Podría ser algo como:

Código: Text

 
If Not IsNothing Screen.ActiveForm Then
   frmTag = Screen.ActiveForm.Tag
else
   frmTag=&#34;Ningún Form&#34;
End If
 
 

Espero que te sea útil.

Saludos,

DiabloRojo

Epa

Buenas.
Gracias por el consejo, pero no sirve.
Probe con IsObject, IsEmpty e IsNull
Pero devuelven que si hay un abjeto y es el MDI, sin embargo sigue dando el error.

Gracias.

DiabloRojo

Pero podría ser una forma indirecta de probar lo que buscas. Veamos:

Código: Text

 
If Not IsNothing Screen.ActiveForm Then
  'Indica que no hay otro form abierto
   If Screen.ActiveForm.Name=&#34;NombreFormMDI&#34; Then  
      frmTag=&#34;Ningún Form&#34;
   Else  
      frmTag = Screen.ActiveForm.Tag
   End If
End If
 
 

Es sólo una idea.

DiabloRojo.

Epa

Ya encontre una solucion.

Muchas gracias de todos modos.

DiabloRojo

Hola. Primero para disculparme. En realidad la función "IsNothing" no existe en VB, no sé por qué tenía la idea de que si... igual aquí te paso una función que suele ayudarme:

Código: Text

 
Private Function IsNothing(varName As Object) As Boolean
   Dim strName As String
   
   On Error GoTo errHandler
   strName = varName.Name
   'Si llega hasta aquí es por que el objeto existe
   IsNothing = False
   '
   Exit Function
   '
errHandler:
   Select Case Err.Number
      Case 91 ' el objeto es nothing
         IsNothing = True
         Err.Clear
      Case Else
         MsgBox &#34;Error Número: &#34; & Str(Err.Number) & &#34;.&#34; & _
                &#34;Descripción: &#34; & Err.Description, , _
                &#34;Error.&#34;
         Err.Clear
   End Select
End Function
 
 

Por otro lado, postea la solución que hallaste. Probablemente alguien tendrá un problema similar al tuyo y le interesará saber cómo solucionaste tú. También posteo un ejemplo de la función...

Saludos,

DiabloRojo

Epa

Bueno, aca dejo como lo solucione, q es bastante similar a tu funcion.

Espero que sea de utilidad para alguien.

Código: Text

 
Private Sub mnuEdicion_Click()
  Dim frmTag As String
  
  On Error GoTo ErrHandler
  
  frmTag = Screen.ActiveForm.Tag
 
  If frmTag &#60;&#62; &#34;Main&#34; Then
    mnuDeshacer.Enabled = True
    ...
  End If
 
  Exit Sub
 
ErrHandler:
  
  If Err.Number = 91 Then
    mnuDeshacer.Enabled = False
    ...
  End If
 
End Sub
 
 

Nota: obviamente los puntitos no van, es solo q si pongo todos los menus, quedaria bastante largo.

SoloCodigo

Autor Tema: Error 91 Al Asignar Valor Del Tag De Un Formulario (Leído 2597 veces)

Epa

Error 91 Al Asignar Valor Del Tag De Un Formulario

DiabloRojo

Re: Error 91 Al Asignar Valor Del Tag De Un Formulario

Epa

Re: Error 91 Al Asignar Valor Del Tag De Un Formulario

DiabloRojo

Re: Error 91 Al Asignar Valor Del Tag De Un Formulario

Epa

Re: Error 91 Al Asignar Valor Del Tag De Un Formulario

DiabloRojo

Re: Error 91 Al Asignar Valor Del Tag De Un Formulario

Epa

Re: Error 91 Al Asignar Valor Del Tag De Un Formulario