Como generar autocodigo en tabla artículos
Tengo una tabla llamada "Articulos" la cual tiene campos "categorias", "subcategorias" " codinterno", además tengo un formulario F_Articulos basado en la tabla anterior, Necesito que cuando el usuario seleccione la catergoria y la subcategoría correspondiente al articulo se genere un prefijo y después un autonumérico y este lo guarde en el campo "codinterno": es decir
Private sub f_categoria_AfterUpdate()
Dim num 1 as string
Dim num 2 as string
Dim prefijo as string
Dim numeral as string
num1 = Me.F_categoria.value
num2= Me.F_scategoria.value
prefijo = num1 & num2
Numeral = buscar dentro de los prefijos el ultimo valor de numeral y agregar 1
codinterno = prefijo + numeral
Me.F_codinterno= codinterno
MsgBox "Se creo el siguiente codigo " & codinterno
End sub
Ruego me puedan ayudar