Duplicación de tablas

Tengo una tabla llamada equipos. Y bien a partir de esta tengo dos formularios que tienen esta tabla: "InsertarEquipos", y "Listado de equipos". Dentro de el formulario Listado de Equipos hay un botón (nuevo) que lleva al formulario de insertar equipos. Y dentro de insertar equipos hay un botón "Volver ha Listado de equipos".
Pues cuando le doy clic al botón Nuevo de el formulario Listado de Equipos me envía el mensaje siguiente:
- La tabla equipos ya esta abierta en modo exclusivo o ya esta abierta mediante la interfaz de usuario y no se puede manipular mediante código.
Pero si estoy dentro de el formulario "InsertarEquipos" y clico al botón de "Volver ha listado de equipos", me llega sin problemas. Siempre y cuando el formulario "InsertarEquipos" siga abierto, sino me da error.
¿Hay alguna solución posible sin necesidad borrar alguno de los formularios? Es que si fuese así, tendría un problema, porque podría crear un botón de agregar nuevo registro a la tabla equipos, pero dentro de estos formularios, están los subformularios de las tablas MACROLAN y VPN-IP y me supondría el tener que crear 3 botones para cada tabla, porque no se puede crear (por lo menos es lo que creo) un botón que active los registros de 3 tablas a la vez para insertar nuevos registros de todas estas.
Y yo lo que hice fue crear formularios separados.
Los de listado que simplemente mostrasen la información que tienen las tablas.
Y los de insertar que los hice semejantes pero con las propiedades distintas como ahora el derecho a la entrada de datos.
Espero tu respuesta... ;).
RE: Subformulario 14/12/2007
14/12/2007
Usuario Para solucionar el ultimo punto he puesto este código que he deducido y modificando un poco los preedefinidos para ver si lo solucionaba cerrando el formulario "Listado de Equipos" (AEquipos) y una vez cerrado abriendo el "InsertarEquipo pero me sigue dando el mismo error:
Codigo insertado:
Private Sub Comando8_Click()
On Error GoTo Err_Comando8_Click
DoCmd.Close
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "AInsertarEquipos"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Comando8_Click:
Exit Sub
Err_Comando8_Click:
MsgBox Err.Description
Resume Exit_Comando8_Click
On Error GoTo Err_Comando8_Click
End Sub
He pensado que quizás en el código, antes de volver a abrir el archivo, después de salir debería de actualizar, para borrar todo lo que queda en memoria cargado, y así ver que no existe ninguna tabla abierta en ese momento y ejecutar la mía.
Si ves muchos errores dímelo.