Como agregaría la función a mi codifo
private sub misguarda_click()
'define variable:
dim myrecordset as recordset
dim mysql as string
'crea consulta sql para agregar la nueva requisicion:
mysql = "select [requisicion].id, [requisicion].procede, [requisicion].[tiprocede], [requisicion].municipio, " _
& "[requisicion].fecharec, [requisicion].codigo, [requisicion].nombre, [requisicion].motivo, " _
& "[requisicion].cct, [requisicion].areatraja, [requisicion].areacorre, [requisicion].inicia, [requisicion].requisicion, " _
& "[requisicion].termina, [requisicion].clave, [requisicion].sustituye, [requisicion].estudios, [requisicion].observaciones " _
& "from [requisicion];"
'ejecuta el recordset a la tabla historial_plaza:
set myrecordset = currentdb.openrecordset(mysql)
'ingresa datos
with myrecordset
.addnew
![procede] = me!procede
![tiprocede] = me!tipopro
![municipio] = me!municipio
![fecharec] = me!fecharecibe
![codigo] = me!codigo
![nombre] = me!nombre
![motivo] = me!motivo
![cct] = me!cct
![areatraja] = me!areatrabajo
![areacorre] = me!areacorre
![inicia] = me!inicia
![requisicion] = me!requisicion
![termina] = me!termina
![clave] = me!plazam
![sustituye] = me!sustituyem
![estudios] = me!estudio
![observaciones] = me!observaciones
.update
.close
end with