|
debes crear un formulario con un boton para ejecutar el codigo 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.
|
