Macro en access o excel para auto completar un campo alfanumérico creado.
Hola, el caso es que mediante al ayuda de un experto logré crear un campo alfanumérico con el código BVA en access, dicho código se ejecuta como podrán ver después de actualizar el combobox Programa..
Private Sub Programa_AfterUpdate()
Dim ultimoAN As String
Dim ultimoANNum As Long
If Not IsNull(Me.Expe) Then Exit Sub
ultimoAN = Nz(DMax("Expe", "Colaboradores", "Año=" & Me.Año & " AND Programa ='" & Me.Programa & "'"), "")
If ultimoAN = "" Then
Me.Expe = Me.Año & " " & Me.Programa & " " & Format(1, "0000")
Exit Sub
End If
ultimoANNum = CLng(Right(ultimoAN, 4))
ultimoANNum = ultimoANNum + 1
Me.Expe = Me.Año & " " & Me.Programa & " " & Format(ultimoANNum, "0000")
End Sub
Esto me resulta de maravillas para los nuevos registros, pero tengo casi 1000 registros anteriores a los cuáles tendría que recorrer uno a uno, reseleccionandole el Programa para que me asigne el código alfanumédico que le pertenece...
Necesito autocompletar si existe alguna forma el campo para los registros ya guardados en la taba..
Me da igual si se hace en access directamente, o si exporto la tabla para Excel, lo hago y luego pego la columna creada en Access.
Se usarían los campos o columnas para ello, Año, Programa y el autonumérico resultante del código BVA..