Access. Duda sobre la relación de tablas varios a varios en BD con pacientes de un hospital

Jordi: Supongo que tu estructura de Formularios es "FPacientes" como Formulario principal y

"FPacientesPruebasSunF", como subformulario en el que tienes un Vinculo por PATNO.

Si eso es así en Form_Current del SubFormulario, pones éste código

Private Sub Form_Current()
If Me.NewRecord Then
    Me.PRUEBANO = Nz(DCount("PRUEBANO","TblPruebas","PATNO = " & Me.Parent.PATNO),0)+1
End IF
End Sub

Con ésto, en la Tabla Pruebas, te debe de aparecer en cada Paciente un Correlativo, que comience por 1. Un saludo >> Jacinto

Jacinto: Mi estructura de formularios es un formulario principal "FPacientes" y Subformularios separados en pestañas (de los cuales uno es "FPruebas"). No he creado ningún subformulario de la tabla auxiliar "tblAUXILIARFILPRU" porque no se como llegar a estructurarlo (ya que únicamente tiene dos variables, que son las claves principales vinculadas a las otras dos tablas). 

-Sugieres que cree ese subformulario y que el vínculo, principal y secundario, sea únicamente PATNO? Y todos los datos recogidos en el subformulario "FPruebas" como puedo introducirlos mediante formulario si tengo que usar sólo "FPacientesPruebasSunF" que tiene únicamente PATNO y PRUEBANO?

-No soy demasiado experto a la hora de usar VBA y códigos como el que me comentas es la primera vez que lo escucho. Lo probaré a ver si puedo solucionar algo independientemente de la solución que me das sobre añadir el otro Subformulario.

-Por último una pregunta que seguramente os parezca ridícula. Es necesario crear siempre el Form_current ( ) para cada uno de los subformularios? Porque en algunos subformularios trabajo sin ellos y me va a la perfección.

Gracias 

Saludos

Jacinto: Mi estructura de formularios es un formulario principal "FPacientes" y Subformularios separados en pestañas (de los cuales uno es "FPruebas"). No he creado ningún subformulario de la tabla auxiliar "tblAUXILIARFILPRU" porque no se como llegar a estructurarlo (ya que únicamente tiene dos variables, que son las claves principales vinculadas a las otras dos tablas). 

-Sugieres que cree ese subformulario y que el vínculo, principal y secundario, sea únicamente PATNO? Y todos los datos recogidos en el subformulario "FPruebas" como puedo introducirlos mediante formulario si tengo que usar sólo "FPacientesPruebasSunF" que tiene únicamente PATNO y PRUEBANO?

-No soy demasiado experto a la hora de usar VBA y códigos como el que me comentas es la primera vez que lo escucho. Lo probaré a ver si puedo solucionar algo independientemente de la solución que me das sobre añadir el otro Subformulario.

-Por último una pregunta que seguramente os parezca ridícula. Es necesario crear siempre el Form_current ( ) para cada uno de los subformularios? Porque en algunos subformularios trabajo sin ellos y me va a la perfección.

Gracias 

Saludos

Jordi: No siempre es necesario el Procedimiento Form_Current (Al activar Registro) en Formularios y/o SubFormularios. De hecho no es necesario, salvo que tenga que hacer una acción.

En tu caso concreto y según me cuentas el Evento lo has de programar en el SubFormulario FPruebas. No necesitas ninguna Tabla auxiliar ni Otro SubFormulario.

Con mis nombres, lo único que pretendía resaltar era que la estructura fuera esa, pero ya veo que la tienes. En síntesis el código lo "dice" es >> Si me estás añadiendo un Nuevo Registro (una nueva prueba), he de calcular el Número que corresponda, teniendo en cuenta que será, las pruebas que ya tiene éste paciente (Me. Parent. PATNO) y añadirle 1.

Ejemplo >> Jacinto: Paciente 528 ya tenía 2 Pruebas anteriores en TblPruebas ( da igual cuales fueran). Viene a solicitar una, con lo que el SubFormulario FPruebas ya interpreta que lo es (If Me. NewRecord) En el "Formulario padre" estará el Numero 528 con lo cual al contar >> 2+1

No te olvides de Activar el Código en Propiedades del SubFormulario >> Eventos >> Al activar Registro >> [Procedimiento de Evento]

Mis saludos >> Jacinto

Muchas gracias Jacinto! Mañana intentaré probarlo en la oficina porque tengo la sensación de que la solución que me das es exactamente lo que me faltaba para eliminar esos errores mediante el contador y eliminando la tabla y formularios auxiliares.

Saludos

Después de probar el código me funciona a la perfección, gracias!

Saludos

Llevo unos días encontrándome con este error: 

Me ocurre cuando quiero añadir un paciente nuevo a esa base y me deriva a esta línea:

(Está dentro del Form_current)

Sabríais decirme donde está el error?

Jordi: No sé si la estructura con la que pretendes trabajar es la misma de la Pregunta Original que hiciste de Formulario/SubFormulario, por lo que no tengo base para darte una solución.

Lo que si parece claro es que el Me.Parent... no devuelve ningún valor.

Aprovechando que tienes que hacer esas aclaraciones, y dado que el texto de ésta pregunta ya es muy largo y me temo que nadie lo va a leer, mi sugerencia es que generes una pregunta nueva, para así poder beneficiarte de más de una respuesta y adoptar la solución que más se adapte a tus necesidades. Un saludo >> Jacinto

Si Jacinto, es la misma estructura que usaba para el ejemplo original. 

Si que es verdad que si desde el subformulario le doy al botón de "Añadir exploración" todo funciona tal y como me comentaste y sin problemas. 

El error viene cuando desde el formulario principal intento añadir un paciente nuevo (No una EXPLORACIÓN) me aparece ese error.

Gracias Jacinto, voy a generar esa pregunta de nuevo a ver si obtengo soluciones. No sé si con lo que he puesto arriba es suficiente para entender el causante del error.

Saludos