Access - RECUPERAR CAMPOS MEMO CON UN RECORDSET

 
Vista:

RECUPERAR CAMPOS MEMO CON UN RECORDSET

Publicado por RAMON 3WAR (1 intervención) el 09/12/2016 09:59:14
Buenos días:
Tengo una tabla que tiene dos campos memo y quiero incorporar todos los registros de la tabla a un formulario. Lo intendo con recordset y lo hace bien con todos los campos, excepto con los memo (fields 3 y fields 6) que no los traslada y no sé por qué.
El codígo es el siguiente:
Private Sub CmdGeneraAccionesGen_Click()
Dim nMAQ As Integer
nMAQ = Me.IdMaquina
Dim dbsgen As DAO.Database
Dim rstgen As DAO.Recordset
Dim dbs As DAO.Database
Dim rst As DAO.Recordset
Set dbsgen = CurrentDb
Set rstgen = dbsgen.OpenRecordset("TAccionesGen", dbOpenTable)

rstgen.MoveFirst
Do Until rstgen.EOF
Dim nAccionGen As Integer
Dim vAccion As String
Dim vZona As String
Dim Descripcion As String
Dim vFamilia As Integer
Dim Detalle As String
nAccionGen = rstgen.Fields(0).Value
vZona = rstgen.Fields(1).Value
vAccion = rstgen.Fields(2).Value
If IsEmpty(rstgen.Fields(3).Value = False) Then
Descripcion = rstgen.Fields(3).Value
End If
vFamilia = rstgen.Fields(4).Value
If IsEmpty(rstgen.Fields(6).Value = False) Then
Detalle = rstgen.Fields(6).Value
End If
DoCmd.OpenForm "FAcciones", acNormal, , , , acHidden
DoCmd.GoToRecord acDataForm, "FAcciones", acNewRec
Forms![FAcciones].[AccionDeMaq] = nMAQ
Forms![FAcciones].[CboZonaAccionFAccioes] = vZona
Forms![FAcciones].[CboFamiliaAccion] = vFamilia
Forms![FAcciones].[TituloAccion] = vAccion
Forms![FAcciones].[DescrAccion] = Descripcion
Forms![FAcciones].[DetalleAccion] = Detalle
Dim nAccion As Integer
nAccion = Forms![FAcciones].[IdAccion]
DoCmd.Close acForm, "FAcciones", acSaveYes
rstgen.MoveNext
Loop
rstgen.Close
dbsgen.Close
Set rstgen = Nothing
Set dbsgen = Nothing
Me.Refresh
End Sub
¿Me pueden echar una mano con esto o indicarme modo alternativo?. Estoy con Access 2010.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder