Generación automática (y/o borrado automático) de registros conforme se van marcando varios check-box

Alberto: Te sugiero lo siguiente >> Trabajar con Recordsets

1.- Crear una Tabla Temporal con todas las Personas y con tres campos.

IdPersona- (Numerico), NombPersona - (Texto), AltaCurso - (Si/No)

Esta tabla debe borrarse toda y recargarse con los valores que haya en la Tabla "Personas"

Borrar con DELETE * y Cargar con una Consulta de Anexar Datos INSERT INTO ..

Tomando como Tabla Origen Personas y como destino ésta que le vamos a llamar "PersonasTemp" >> Solo insertar 2 Campos, que serán el Id y el Nombre.

2.- Para dar las altas

1 Formulario Principal con Origen de Datos en la Tabla Formacion.

1 SubFormulario Continuo sin Vinculo con el Principal que llamaremos por ejemplo "FPersonasTemp" con Origen de Datos en la Tabla >> "PersonasTemp"

Marcas todos los ChecBox que quieras añadir a la Tabla Formacion.

Llegados a éste punto Necesitaremos 2 Recorsets y éste código en un botón que voy a llamar BtnInscripciones

Private Sub BtnInscripciones_Click()
Dim QryPers As String,QryForma As String
Dim RstPers As DAO.Recorset, RstForma As DAO.Recordset
QryPers = "SELECT * FROM PersonasTemp WHERE AltaCurso = -1"
Set RstPers = Currentdb.OpenRecordset(QryPers,dbopenSnapshot)
If Not RstPers.EOF And Not RstPers.BOF Then
      QryForma = "SELECT Trabajador FROM Formacion;"
      Set RstForma = Currentdb.OpenRecordset(QryForma,dbOpenDynaset)
      Do While Not RstPers.EOf
          RstForma.AddNew
             RstForma!Trabajador = RstPers!IdPersona
             'Aquí llenas los otros Campos de la Tabla. El Id supongo que es un Auto y se genera solo
              RstForma!FechaRegistro = Date()' O lo que quieras
          RstForma.Update
          RstPers.MoveNext
          DoEvents
      Loop
      RstForma.Close
      Set RstForma = Nothing
Else
      MsgBox "No has marcado ninguna Persona",vbCritical,"DATOS NO MARCADOS"
End If
RstPers.Close
Set RstPers = Nothing
'Aqui si quieres puedes borrar la Tabla Temporal. Si decides hacerlo aquí
Dim StrSQL As String
StrSQL = "DELETE * FROM PersonasTemp;"
StrSQL = ""
Me.FPersonasTemp.Visible = False 'Para ocultar el SubFormulario Continuo
End Sub

La carga de la Tabla Temporal, la has de hacer mediante algún Botón al Efecto o en algún código que ya tengas.

No he probado ese código porque lo he ido escribiendo sobre la marcha.

Ya me contarás. Saludos >> Jacinto

Saludos de nuevo Jacinto.

He de decirte que eres un crack! Aparte de que, conceptualmente la solución es PERFECTA, escribir ese código "a pelo" sin un solo error.... impresionante. Me ha forzado a leer sobre temas que desconocía y a aprender un poquito más sobre Access, así que CHAPÓ!.

El código funciona perfecto, salvo en dos pequeñas cositas en la parte del código que asigna los valores a los registros, que paso a consultarte a continuación:

1) En los campos que extraigo del formulario que tengo abierto me sale un: "Error 3265. No se encontró el elemento en esta colección"

2) En el campo del nombre del trabajador que extraigo de RstPers me sale un: "Error 3421. Error de conversión de tipos de datos".

En ambos casos, cuando accedo al depurador y paso el ratón por encima de la línea amarilla, el valor que coge es correcto (luego todo lo anterior funciona), pero parece que falla al asignarlo (ver imagen de ejemplo con la fecha).

A ver si hay suerte y puedes ver los errores fácilmente.

Muchísimas gracias de antemano.