Problema con access

[DeltaIdeas]

Buenas noches, son las 2 de la mañana en España y llevo toda la noche intentando resolver un problema en access. El problema es el siguiente:

Quiero crear un numero que nunca se repita formado por la cadena CMB + 5 digitos acabados en el numero de id. Ejemplo:

- Un usuario con id 5 tendra el numero "CMB00005"
- Un usuario con id 999 tendra el numero "CMB00999"
- Un usuario con id 25465 tendra el numero "CMB25465"

Esta cadena resultante se crea de manera automatica, no es modificable, simpre tiene 5 digitos y se almacena en el campo de la misma tabla donde recoge el id.

¿Como lo puedo hacer? (Estoy desesperado)

Un saludo

[pruizbc]

Son las 2:26 en España y si te esperas un instante te doy la solución.

[pruizbc]

Mete esto en [Procediento de evento] tras actualizar y me cuentas.
Replace(Right(Space(5) & Me![Id], 6), " ", "0")

[pruizbc]

Cometí tu error. ¿lo ves?
"CMB" & Replace(Right(Space(5) & Me![Id],5), " ", "0")

[DeltaIdeas]

parate, que soy principiante, explica paso a paso, por favor o añademe a tu msn y hablamos: [email protected]

Un saludo

[pruizbc]

Mira, a cada Control (u objeto de un formulario) le puedes asociar código VBA para unos determinados eventos, llamados [procedimientos de evento].
Así, marcado el objeto, sobre el boton derecho >propiedades> pestaña de eventos y encontrarás> Después de actualizar, Después de insertar etc.
Pues bien, te va a un objeto que se llama Formulario (¿Cómo?, pues bien facil en el angulo superior izquierdo de tu formulario, en modo diseño veras un cuadradito, sobre él boton derecho > propiedades), seleccionas Después de insertar y seleccionas en la desplegable [Procedimiento de Evento], pulsas los […] y allí pon lo siguiente:
' sustituye espacios por 0 ceros
If not isnull(me![id] ) then
‘ Donde clave será la cadena que quieres formar, así, esto hará que tomando como raiz "CBM", Clave tomará el valor del campo del formulario 00000 & [id].
Me![clave]= "CMB" & Replace(Right(Space(5) & Me![Id],5), " ", "0")
endif

[Icue]

Hay varias formas. Supongamos que el campo de la tabla se llama Indice. Ponlo como indexado Sí, sin duplicados. En el formulario en el que introduces los datos, en sus propiedades-eventos-Al activar registro crea un procedimiento de evento y entre Private Sub y End Sub escribe
Indice="CBA" & "" & Format([CurrentRecord], "00000")
Así el primer registro será CBA00001, etc

[pruizbc]

Tambien es válido.

[DeltaIdeas]

A ver, he hecho lo siguiente:

1. Abro el formulario.
2. Voy a eventos de formulario
3. Selecciono "Al activar registro: Procedimiento de evento"
4. Pulso "..."
5. Escribo lo siguiente:

Código:

Option Compare Database

Private Sub Form_Current()
Número de Socio = "CMB" & "" & Format([CurrentRecord], "0000")
End Sub

6. Me da un error de sintaxis y me marca en amarillo "Private Sub Form_Current()"

El cuadro de texto donde se muestra el numero de socio se llama "Número de Socio" y el nombre del registro en la tabla "Datos Personales" es tambien "Número de socio"

¿Que puede ser?

Un saludo y muchas gracias por vuestras respuestas

[DeltaIdeas]

Al final y gracias a vuestra ayuda lo consegui.

Muchisimas gracias y un saludo

[Icue]

En VB si un nombre es continuo basta con ponerlo así, sin embargo cuando el nombre no es continuo, como es este caso, tienes que ponerlo como
[numero de socio]="CMB".....
Yo siempre aconsejo que los nombres de los campos de las tablas se pongan siempre continuos, por ejemplo, NumerodeSocio, por:
1º A la hora de programar evitas tener que encerrarlo entre corchetes
2º A veces por error escribes numero de socio, y a la hora de programar te vuelves loco porque no funciona, y es que entre de y socio hay dos espacios en vez de uno
Un saludo