
Llamado de un campo en recordset a traves de una variable
Publicado por Leonard (15 intervenciones) el 20/02/2017 03:30:00
Buenas
Espero puedan ayudarme
Estoy trabajando un base de datos, en donde extraigo de cada tabla los nombre de los campos que contiene, hasta ahi todo va bien. Esos datos los guardo en una tabla que alimenta un combobox, el dato seleccionado en el mismo representa un campo de una tabla, mi problema viene que cuando deseo llamar al campo seleccionado como una variable dentro del recordset no me funciona.
Set rs = CurrentDb.OpenRecordset(sResult)
rs.MoveLast
x = rs.RecordCount
rs.MoveFirst
With rs
For n = 0 To x - 1
Set rs1 = CurrentDb.OpenRecordset("Tbl_Item_Destino")
rs1.AddNew
rs1!Item_Destino = "rs!" & "'" & Me.Combo536.Value & "'" Aqui tengo problema si coloco el valor contenido directamente el codigo funciona y si lo coloco una variable no
rs1!Item_Destino = rs!CampoXXX, aqui si funciona
rs1.Update
rs1.Close
Set rs1 = Nothing
rs.MoveNext
Next 'n
.Close
End With
Se agradecera cualquier recomendacion
Saludos
Lenard
Espero puedan ayudarme
Estoy trabajando un base de datos, en donde extraigo de cada tabla los nombre de los campos que contiene, hasta ahi todo va bien. Esos datos los guardo en una tabla que alimenta un combobox, el dato seleccionado en el mismo representa un campo de una tabla, mi problema viene que cuando deseo llamar al campo seleccionado como una variable dentro del recordset no me funciona.
Set rs = CurrentDb.OpenRecordset(sResult)
rs.MoveLast
x = rs.RecordCount
rs.MoveFirst
With rs
For n = 0 To x - 1
Set rs1 = CurrentDb.OpenRecordset("Tbl_Item_Destino")
rs1.AddNew
rs1!Item_Destino = "rs!" & "'" & Me.Combo536.Value & "'" Aqui tengo problema si coloco el valor contenido directamente el codigo funciona y si lo coloco una variable no
rs1!Item_Destino = rs!CampoXXX, aqui si funciona
rs1.Update
rs1.Close
Set rs1 = Nothing
rs.MoveNext
Next 'n
.Close
End With
Se agradecera cualquier recomendacion
Saludos
Lenard
Valora esta pregunta


0