Unir contenido de dos columnas

Respuesta de
a
Usuario
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
Avatar
Experto
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.