Como definir el nombre de un campo mediante concatenación de variables.

Iker sin profundizar mucho, creo que la línea:

Set mirecordset!(s)= True

Debería ser

Mirecordset. Edit

mirecordset!(s) = True ' o mirecordset!(s) = -1

mirecrdset.Update

Ya me contarás . Saludos >> Jacinto

Muchas gracias. Ahora no me sale el error, pero no me actualiza la tabla. No sé si será porque la tabla es una tabla vinculada de otra base de datos.

Iker: Si la tabla tiene una vinculación correcta no debe ser obstaculo.

Dices que quieres hacer un bucle o eso me parece entender y le das la instrucción de:

Mirecordset. MoveLast

Con esto le dices que se vaya al final del recordset y provocas la salida.

Para dejar que el bucle se ejecute deberías poner

Mirecordset. MoveNext

Hecho ésto, ejecuta el Código paso a paso y mira que valores van tomando las variables, y cada dos otres recorridos puedes mirar la tabla si la va actualizando.

Si esto no te funciona, ya ahondaremos más. Saludos >> Jacinto

Iker: Te escribo unas líneas de código que yo normalmente utilizo para recorrer y

Hacer acciones en un Recordset. Utilizo DAO

Dim StrSQL As String
Dim Rst As DAO.Recordset
StrSQL = “ SELECT * FROM GAMAS;”

Set Rst = CurrentDB.OpenRecordset(StrSQL, dbOpenDynaset)

If Not (Rst.EOF And Rst.BOF) Then ' Si el Registro tiene Datos
         Do While Not Rst.EOF

                    ‘Instrucciones………

                     Rst.MoveNext
                     DoEvents
         Loop
Else
           MsgBox “Este Recordset no tiene Registros”,vbcritical;”FALTAN DATOS”
End If

Rst.Close
Set Rst = Nothing

Espero que te ayude. Saludos >> Jacinto

Iker un despiste: La terminación >>

... Vbcritical;”FALTAN DATOS” debe ser ... vbCritical,"FALTAN DATOS" o sea con una coma en lugar de punto y coma. Saludos >> Jacinto

Muchas gracias. Voy a probar eso y ya os contaré. Con movelast lo que quiero es ir a la última línea para grabar todo en un registro nuevo y no sobreescribir en uno ya programado.