Programación General > Visual Basic 6.0 e inferiores

 Error 91 Al Asignar Valor Del Tag De Un Formulario

<< < (2/2)

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 SelectEnd 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.

Navegación

[0] Índice de Mensajes

[*] Página Anterior