Consultar código para INSERT en VBA

Balanta · Registrado: Sep 07, 2016 Mensajes: 1

Tengo este código para grabar en una tabla de auditoria los ingresos .No funciona porque me esta pidiendo un End Sub. Alguien podría ayudarme para que después de clickear ejecutara la rutina de grabación. Gracias

Private Sub BotónDeNavegación52_Click()

Sub insertarRegistro()
DoCmd.SetWarnings False 'Desactivar mensajes del sistema

Dim nombre As String
Dim fecha As String
Dim opcion As Numeric
Dim sqlInsertar As String

nombre = "Arquitectura"
fecha = Str(Now)
opcion = "1"

sqlInsertar = "insert into auditor (nombre, fecha, menu) values ('" & nombre & "', #" & fecha & "#, #" & opcion & "# )"
DoCmd.RunSQL sqlInsertar

DoCmd.SetWarnings True 'activar mensajes del sistema
End Sub
EnSub
End Sub