Unir contenido de dos columnas
Buenas noches, recurro a Ud. Porque estoy muy agobidado: necesito saber cómo hago para unir el contenido de dos columnas en una tercera, en una tabla (no en una consulta). Por ejemplo columna1: jose columna2: jimenez. Entonces que en la columna3: aparecezca jose jimenez
Desde ya muchas gracias
Desde ya muchas gracias
1 Respuesta
Respuesta de lantach
1
Debes crear un formulario con un botón para ejecutar el código siguiente.
Dim UNdb As Database, UNws As Workspace, UNrs As Recordset
Dim Col1, Col2
Set UNws = DBEngine.Workspaces(0)
Set UNdb = UNws.Databases(0)
Set UNrs = UNdb.OpenRecordset("Union") 'en donde Union el el nombre de la tabla
If UNrs.EOF = False Then
UNrs.MoveFirst
While UNrs.EOF = False
Col1 = UNrs![No] 'esta columna contiene el nombre
Col2 = UNrs![Ap] 'esta columna contiene el apellido
UNrs.Edit
UNrs![NP] = Col1 & " " & Col2
UNrs.Update
UNrs. MoveNext
Wend
End If
Y Listo.
Dim UNdb As Database, UNws As Workspace, UNrs As Recordset
Dim Col1, Col2
Set UNws = DBEngine.Workspaces(0)
Set UNdb = UNws.Databases(0)
Set UNrs = UNdb.OpenRecordset("Union") 'en donde Union el el nombre de la tabla
If UNrs.EOF = False Then
UNrs.MoveFirst
While UNrs.EOF = False
Col1 = UNrs![No] 'esta columna contiene el nombre
Col2 = UNrs![Ap] 'esta columna contiene el apellido
UNrs.Edit
UNrs![NP] = Col1 & " " & Col2
UNrs.Update
UNrs. MoveNext
Wend
End If
Y Listo.
