tabla con una columna pasar sus registros a otra t
Publicado por Omar (3 intervenciones) el 25/02/2005 17:58:18
Hola, mi duda es como pasar de la TablaA de una sola columna, sus 3 registros, a TablaB con 3 columnas,
Dim mCad As String 'VAR TIPO STRING
Dim mRs As Recordset 'VAR TIPO RECORDSET
Dim k As Long 'VAR PARA CONTADOR
'ASIGNAMOS A LA CADENA
mCad = "SELECT TBLINTCOSTOESTAMPADO.D1 FROM TBLINTCOSTOESTAMPADO WHERE TBLINTCOSTOESTAMPADO.A1 IN ('6-1-02-01-11-000-000-000');"
'ASIGNAMOS LA CADENA AL RECORDSET
Set mRs = CurrentDb.OpendRecordset(mCad)
'For k = 1 To mRs.RecordCount
'AÑADIMOS UN REGISTRO A LA TABLA
mRs.AddNew
'PASAMOS DATOS DEL FORM AL RECORDSET
mRs!F7S = Me.TBLINTCOSTOESTAMPADO.D1
'GUARDAMOS EN LA TABLA
mRs.Update
'Next k
'CERRAMOS EL RECORDSET
mRs.Close
End Function
Dim mCad As String 'VAR TIPO STRING
Dim mRs As Recordset 'VAR TIPO RECORDSET
Dim k As Long 'VAR PARA CONTADOR
'ASIGNAMOS A LA CADENA
mCad = "SELECT TBLINTCOSTOESTAMPADO.D1 FROM TBLINTCOSTOESTAMPADO WHERE TBLINTCOSTOESTAMPADO.A1 IN ('6-1-02-01-11-000-000-000');"
'ASIGNAMOS LA CADENA AL RECORDSET
Set mRs = CurrentDb.OpendRecordset(mCad)
'For k = 1 To mRs.RecordCount
'AÑADIMOS UN REGISTRO A LA TABLA
mRs.AddNew
'PASAMOS DATOS DEL FORM AL RECORDSET
mRs!F7S = Me.TBLINTCOSTOESTAMPADO.D1
'GUARDAMOS EN LA TABLA
mRs.Update
'Next k
'CERRAMOS EL RECORDSET
mRs.Close
End Function
Valora esta pregunta
0