Existe en código visual algo así :
If me.form is open then
msgbox "está abierto"
end if

Porque trabajo con un archivo access en red, y quiero que si un usuario ya lo tiene abierto pues que le avise a kien vaya abrirlo. Un paso más sería, sin en vez de avisar , me bloqueara la apertura del formulario.

hola,ojala la maquina entenderia ese codigo que pusiste,jeje,bueno podes hacerlo de muchas formas a lo que queres.una facil seria:

if me.visible=true then
msgbox "ya esta abierto"
end if

otra forma que recorre todos los formularios y si encuentra uno con el nombre de ventana que le pones entonces lo detecta.por ejemplo si detecta un formualario con el caption del formulario "Socios",entonces te avisa.

Dim Frm as <b style="color: black; : rgb(160, 255, 255);">Form[/b]
For Each Frm in Forms
if Frm.Name="Socios" then msgbox "esta abierto"
DoEvents
Set Frm=Nothing
Next Frm

For i = 0 To Forms.Count - 1
If Forms(i).Caption = "Socios" Then

msgbox "esta abierto"
Exit For
End If
Next

saludos.

Hola,
El problema es que de esa forma vas a chequear si el formulario de tu aplicacion esta abierto, pero si otro usuario usando la misma aplicacion abrio ese formulario lo cual abriria la base no sabrias si esta abierto o no:

Para ver si la base esta abierta yo lo haria asi:

Código:

Public Function EstaAbierto(base) As Boolean
Dim cadena As String
cadena = Left(base, (Len(base) - 3)) & "ldb"
DoEvents
If Not Dir(cadena) = "" Then EstaAbierto = True
End Function

por ejemplo para llamarlo...

MsgBox EstaAbierto(InputBox("Indique la ruta", , "C:\base.mdb"))

Saludos

Esto puede ser posible utilizando un API de windows de la siguiente manera:

Puedes ubicar esto en un form, preferiblemente lo ubicas en un bas para ser reutilizado por todo el proyecto

'API para verificar si una Ventana esta cargada, regresa el hWnd
Public Declare Function FindWindow Lib "USER32" Alias "FindWindowA" ( _
ByVal lpszClassName As String, ByVal lpszWindow As String) As Long

en el Formulario pones esto:

If FindWindow(vbNullString, "Caption del Form") Then
'Codigo a Ejecutar
End If

Espero te funcione. Salud2

Cyrus, por casualidad no te llamaras Dani???

larry: no, no me llamo dany.

bueno, al final no he podido solucionar mi problemilla con lo que me habéis dicho. Pero gracias de todos modos.
Al final he conseguido hacerlo de esta forma:
cuando alguien abre el formulario en un campo de una tabla se escribe un 1 y cuando se cierra un 0. Por lo que este número se chequea cada vez que se quiere abrir el formulario. Si está en 1, entonces alguien lo tiene abierto y por tanto no le dejo abrir.

Saludos

En realidad, el objeto tendria que poder definirse como 'de solo lectura' o algo parecido, porque si la idea es que solo 1 usuario trabaje con el archivo, para tratar de chequear si hay un '1' o un '0' en alguna celda, todavia estas abriendo el archivo y leyendolo, cuando tal vez, esto provoque errores en las tareas que otros estan ejecutando en el archivo...
Una alternativa seria usar FileAttr y setear y des-setear el atributo 'A' del archivo (ya que estamos... 'A' para 'abierto', etc, jejeje), asi te evitas 'tocar' el archivo mientras otro lo usa.

Saludos.
Pablo Gener