none
Duplicar un Campo en un registro nuevo, mismo Formulario ≡ Access RRS feed

  • Pregunta

  • Tengo una base de datos con 5395 registros de personas, existe una columna númerica (NO AUTONUMERICA) en la cual cada registro tiene un numero secuencial, comenzando de 1 hasta 5395, cree un botón de nuevo registro con la propiedad VBA de +1, es decir al crear un nuevo registro toma el último número y le suma uno nuevo ejem. 5395+1=5396, y asi sucesivamente por cada registro.

    Ahora bien, esa columna que se llama CODIGONUCLEO, esta indexada CON duplicados, ya que necesito ahora, crear un boton en el mismo formulario, que al presionarlo tome el número de CODIGONUCLEO que se este mostrando en el momento y ese mismo numero lo duplique a un nuevo registro del mismo formulario, es decir, si estoy editando el registro 5395 y quiero crear un nuevo registro con ese mismo valor 5395, que se haga de forma automatica al presionar un boton, sin necesidad de introducir el mismo numero manualmente.

    Adicional a esto no puede generar conflicto con otro comando existente en un boton:

    Private Sub NUEVO_Click()
    MsgBox "AVISO: Toda persona, inclusive familia, registrada en este sistema de data, da por concentimiento y aprobación directa el uso y manejo de sus datos personales, autorizando de esta forma la recolección de la información confidencial y que sus datos sean tratado conforme a la Ley 1581 de 2012.", vbCritical, "Consentimiento de Información"

    'Me.NewRecord
    DoCmd.GoToRecord acDataForm, "TABLA", acNewRec
    Me.CODIGONUCLEO = Nz(DMax("CODIGONUCLEO", "Identidad del Migrante Mixto"), 0) + 1
    Me.LIDERFAMILIA = True
    End Sub

    jueves, 17 de diciembre de 2020 18:43