Hola gente,

Yo quisiera saber si se puede comprobar desde un form si otro form ya está cargado en memoria, si es así comprobar si está visible y dar mensaje de error. He probado poniendo:

if frm1.visible = true then ...

pero me da el siguiente error en frm1.visible "La variable de tipo Object o la variable de bloque With no está establecida", cuando frm1 no está visible, es decir cuando me tendría que dar frm1.visible = false.

Si alguien puede ayudarme se lo agradecería.

Gracias

He probado en mi proyecto poniendo esto desde form9:
Private Sub Command1_Click()
If Form1.Visible = True Then
MsgBox "si"
Else
MsgBox "no"
End If
End Sub


y si que me funciona

Hola pertxina, creo que deberías poner el código completo de la llamada, porque me dá la impresión que el error no está en esa instrucción.

Saludos

Hola Mahoni, gracias por responder tan pronto.

Yo lo intento y lo que me hace es ponerme visible el form1 y no quiero que se ponga visible form1, lo que quiero es comprobar que si form1 está visible entonces me ejecute una consulta y si no lo está me ejecute otra consulta distinta.

Así no me funciona

Por favor compruébame que al poner un punto de interrupción en el

If Form1.Visible = True Then...

y al pasar en ratón por encima de "Form1.Visible" no te dice "La variable de tipo object o la variable de with..." Es que no sé, ¿¿ puede que me falte alguna referencia o componente por instalar??

Gracias

He hecho la prueba y no me da ningún error.
Te digo lo que hago:
Estoy en form1, doy a un boton y carga form9(form9.show)
Me carga form9.
En form 9 he puesto el codigo que te he dicho antes y si le doy me sale un msgbox diciendome si, y si cierro el form1 y pincho en el boton de form9, me sale un msgbox diciendo no.
Anibal tiene razon, pon aqui todo el código completo y como cargas los formularios
Saludos

Hola Anibal, hay te va el código completo de la llamada:
Tengo lo siguiente haber si me pudes ayudar:

Desde frmTienda llamo a frmMantTienda

Private Sub cmd_Tienda_Click()
If frmMantTienda.Visible = False Then
frmMantTienda.Show
Set frmMantTienda.caja_codigo_origen = txt_codTienda
Set frmMantTienda.caja_nombre_origen = txt_tienda
frmMantTienda.SetFocus
Else
MsgBox "Otra ventana está usando la transferencia de información, termine esa operación antes de continuar", vbInformation, "Información..."
End If
End Sub

Y en frmMantTienda quiero poner:

Private Sub carga_rejilla()

if frmTienda.Visible = False then
comando = "SELECT * FROM Tienda ORDER BY nombre"

else
comando = "SELECT * FROM Tienda WHERE productos = 'drogueria' ORDER BY nombre "
end if

ado_principal.ConnectionString = CN
ado_principal.RecordSource = comando
ado_principal.Refresh
ado_principal.Recordset.Filter = adFilterNone
End Sub

Si solo quiero mostrar el listado desde frmMantTienda y, evidentemente, no está visible frmTienda me lo muestra, y no quiero eso

Gracias por responder

Creo que anibal tiene razón, yo creo que el fallo está aquí
ado_principal.ConnectionString = CN
ado_principal.RecordSource = comando
ado_principal.Refresh
ado_principal.Recordset.Filter = adFilterNone

asegurate de que en frmMantTienda tengas todas las conexiones de la base de datos bieb hechas y no esten en frmTienda

Según lo veo yo, además de las comprobaciones que te indica mahoni, frmTienda sigue estando visible aunque no lo veas en pantalla (quizá porque el tamaño de frmMantTienda es superior y lo tapa) por lo que la condición If siempre será True.
Antes (o después) de mostrar frmMantTienda, puedes poner cualquiera de estras tres instrucciones:

Me.Visible = False
Unload Me
Me.Hide

Y hacer un frmTienda.Show cuando quieras retornar a él.
Esto en cuanto a la visibilidad del formulario, en cuanto al error que dices seguramente será por lo que te indica mahoni y no creo que el error lo dé en la linea de If...

SaludosEdited by: Anibal

Que tal si checas que el form sea Not Nothing

If ObjForm <> Nothing

Creo que se debe poder
la verdad no sé porque estoy trabajando en linux