Campo autonumérico compartido
Publicado por ALFREDO (2 intervenciones) el 13/01/2014 15:21:52
Hola a todos! tengo una base compartida con varias tablas vinculadas; la base de datos registra personas para un empadronamiento. Lo que quiero que haga mi base es generar un número consecutivo que no se repita para otorgar a cada persona registrada un número que correspondería a un turno único y según el turno en otro cuadro de texto le correspondería una fecha determinada, así por ejemplo; viene una persona le corresponde el Turno N° 1 debe presentarse el dia 20/02/2014. Todo esto en una base compartida con 10 usuarios cargando al mismo tiempo . He descartado por completo el campo autonumérico. He probado hacer los siguiente:
He creado un campo Turno( donde va el turno) y un campo presentación(donde va la fecha). Turno es Sin duplicados.
Al cargar el formulario he colocado:
funciona perfecto al correrlo en una base pero al compartirla si bien registra consecutivamente tiende a repetirlo generando un duplicado no dejando guardar el registro. Desde ya muchísimas gracias anticipadas por la ayuda.
He creado un campo Turno( donde va el turno) y un campo presentación(donde va la fecha). Turno es Sin duplicados.
Al cargar el formulario he colocado:
1
2
3
4
5
6
7
8
9
10
11
12
13
On Error GoTo err_Form_Current
If [Turno] < 1 Then
[Turno] = DMax("Turno", "PreInscripción") + 1
End If
exit_Form_Current:
Exit Sub
err_Form_Current:
If Err = 94 Then
Resume Next
Else
MsgBox Error$
Resume exit_Form_Current
End If
funciona perfecto al correrlo en una base pero al compartirla si bien registra consecutivamente tiende a repetirlo generando un duplicado no dejando guardar el registro. Desde ya muchísimas gracias anticipadas por la ayuda.
Valora esta pregunta
0