Como generar autonuméricos alfanuméricos.

Podría estar en un botón, o en el ventó del formulario después de insertar; faltaba un detalle en la fórmula
NUEVOCOD= Empresa & right("0000" & DMAX("Val(Mid(Llave,10,4))","TuTabla","Left(Llave,9)=" & Empresa) +1,4)

¿Dónde debo de insertar esta fórmula?

Me da error de compilacion en --Empresa = "1B1913FCO"--. Lo que no entiendo como le digo que me inserte el código resultante en la columna de la tabla que yo quiero que en este caso se llama "Nº Pedido" (la tabla de llama "PEDIDO CABECERA")

Poniendo la fórmula en el botón de tal modo que queda así:
EMPRESA = "1B1913FCO"
Nombre = EMPRESA & Right("0000" & DMax("Val(Mid(Llave,10,4))", "PEDIDO CABECERA", "Left(Llave,9)=" & EMPRESA) + 1, 4)
Nombre es un campo de la tabla que he utilizado en vez de Nº Pedido ya que existe un espacio entre Nº y Pedido pero aún así me da el siguiente error: ERROR 3075 error de sintaxis en la expresión de la consulta 'Left(Llave, 9)=1B1913FCO'

Empresa es una variable auxiliar que debe almacenar la característica de la llave de cada empresa
En el ej. Llave es el campo donde se almacenan las llaves primarias de la tabla, según entiendo en tu caso se llama NOMBRE
Algo más, si los nombres de campo o tabla tienen caracteres especiales o espacios en blanco deben ir entre []
...,"[pedido cabecera]",...
Fe de erratas: como se trata de un alfanumérico el criterio debe estar entre comillas
... "Left(Llave,9)=""" & EMPRESA & """")........

He escrito este código y el programa me dice que ""error de compilación error de sintaxis""
La tabla donde se tiene que grabar el nuevo código se llama PEDIDO CABECERA y el campo donde se tiene que insertar en nuevo código generado Nº Pedido. ¿Está bien escrito el código como lo he hecho a continuación?
EMPRESA = "1B1913FCO"
[Nº Pedido] = EMPRESA & Right("0000" & DMax("Val(Mid(LLAVE,10,4))", "[PEDIDO CABECERA]", "Left(LLAVE,9)="" & EMPRESA & "")+1,4)

Prueba los siguiente, en vez de llave se debe usar el campo donde se almacenas las llaves
EMPRESA = "1B1913FCO"
msgbox EMPRESA & Right("0000" & DMax("Val(Mid([Nº Pedido],10,4))", "[PEDIDO CABECERA]", "Left([Nº Pedido],9)="" & EMPRESA & "")+1,4)
' aqui deberia mostrarte el codigo y si te muestra el codigo, porque creo que hay un error en el nombre del campo que recibe el codigo y como es un objeto no acepta nombres con espacios, si te muestra el codigo entonces tienes que asignarle al campo correcto de tu formulario, itenta digitar: Me.     y luego de deberia mostrar como opcion el campo donde tienes que asignar

He escrito el código: msgbox EMPRESA & Right("0000" & Dmax("Val(Mid([Nº Pedido], 10, 4))","[PEDIDO CABECERA]","Left([Nº Pedido], 9)="" & EMPRESA & "") +1, 4) y me sigue diciendo error de compilacion se esperaba: separador de listas o )