Buscando como insertar registros desde un subformulario encontre este en internet y lo ajuste a mi manera y funciono perfectamente, ahora lo que necesito hacer es incrementar un valor cada vez que se inserte el registro en la tabla MINVE03, esta tabla tiene un campo llamado NUM_REG que es el que necesito incrementar con cada registro agregado, como le puedo hacer en la misma sentencia SQL
Dim ALMACEN As Variant
DoCmd.SetWarnings False
ALMACEN = "INSERT INTO MINVE03 SELECT * FROM Detallepartidas where refer = [Forms]![Lotesproduccionagregar]![agregasaemovimientos].Form![refer]"
If MsgBox("Al guardar estos datos no podra deshacer la opción. Esta seguro de guardar estos datos", vbQuestion + vbYesNo, "Aviso") = vbYes Then
DoCmd.RunSQL ALMACEN
DoCmd.SetWarnings True
End If
Agradezco me puedan apoyar ya que llevo varios días con este y no he podido solucionarlo.
Saludos
Gracias