Limitar a 1 usuario a la vez
Publicado por Lluís (5 intervenciones) el 02/05/2013 18:30:33
Buenas tardes,
Tengo una base de datos compartida con sólo las tablas y otra en cada pc con el resto y tablas vinculadas.
Uso el formulario "Ventas" para seleccionar los registros que se van a vender y para guardar los datos del albarán en la tabla "Albaranes". Una vez rellenado, clicando un botón, doy de alta nuevo albarán en "Albaranes" y actualizo en los registros seleccionados el núm de albarán.
Funciona perfectamente si lo usa un solo usuario pero si són mas de uno a la vez, da error porque intentan guardar en tabla "Albaranes" con el mismo número de albarán (no puede ser autonumérico)
Lo he solucionado a medias, he creado la tabla "Frmventas" en la bd compartida, tiene valor "cerrado". El código del botón de "Ventas" hace lo siguiente:
do
doevents
loop while forms![Frmventas]![Frmventas] = "abierto" 'Hago un bucle mientras "Frmventas" = abierto
DoCmd.OpenQuery "VENTA ABIERTO", acViewNormal, acEdit 'actualizo "Frmventas" a abierto mediante consulta de actualización
Me.TXTULTALBARAN.Requery 'calculo el núm de albarán según el último guardado
DoCmd.OpenQuery "ALTA ALBARAN", acViewNormal, acEdit 'guardo el nuevo albaran
.....
DoCmd.OpenQuery "VENTA CERRADO", acViewNormal, acEdit 'actualizo "Frmventas" a cerrado
El problema surge cuando, desde dos pcs, clican el botón a la vez. Deben de tardar un poco las consultas porque ocurre más a menudo de lo que esperaba.
¿Cómo puedo solucionarlo?
Saludos y gracias de antemano.
Lluís.
Tengo una base de datos compartida con sólo las tablas y otra en cada pc con el resto y tablas vinculadas.
Uso el formulario "Ventas" para seleccionar los registros que se van a vender y para guardar los datos del albarán en la tabla "Albaranes". Una vez rellenado, clicando un botón, doy de alta nuevo albarán en "Albaranes" y actualizo en los registros seleccionados el núm de albarán.
Funciona perfectamente si lo usa un solo usuario pero si són mas de uno a la vez, da error porque intentan guardar en tabla "Albaranes" con el mismo número de albarán (no puede ser autonumérico)
Lo he solucionado a medias, he creado la tabla "Frmventas" en la bd compartida, tiene valor "cerrado". El código del botón de "Ventas" hace lo siguiente:
do
doevents
loop while forms![Frmventas]![Frmventas] = "abierto" 'Hago un bucle mientras "Frmventas" = abierto
DoCmd.OpenQuery "VENTA ABIERTO", acViewNormal, acEdit 'actualizo "Frmventas" a abierto mediante consulta de actualización
Me.TXTULTALBARAN.Requery 'calculo el núm de albarán según el último guardado
DoCmd.OpenQuery "ALTA ALBARAN", acViewNormal, acEdit 'guardo el nuevo albaran
.....
DoCmd.OpenQuery "VENTA CERRADO", acViewNormal, acEdit 'actualizo "Frmventas" a cerrado
El problema surge cuando, desde dos pcs, clican el botón a la vez. Deben de tardar un poco las consultas porque ocurre más a menudo de lo que esperaba.
¿Cómo puedo solucionarlo?
Saludos y gracias de antemano.
Lluís.
Valora esta pregunta
0