Duplicidad al Generar un Numero de Pedido

Espero me puedan ayudar con este tema, quisiera saber si existe alguna forma de bloquear un registro al hacer un select max(id_pedido)+1 en access. Esto debido a que estoy trabajando un proyecto en el cual genero un numero de pedido al presionar el Botón de Grabar.

La inconsistencia que tengo es que estoy trabajando access en red, entonces si 2 usuarios presionan al mismo tiempo el botón de grabar me genera el mismo # de pedido y no logro encontrar la forma para bloquearlo hasta que se grabe.

Mi código es el siguiente:

Private Sub cmdGrabar_Click()

Dim iNumeroPedido As Integer
Dim Sql As String

Dim db As Database
Dim rs As Recordset
Set db = CurrentDb

On Error GoTo error

If Me.Confirmado = False Or IsNull(Me.Confirmado) Then
Me.Monto_total = Nz(Me.txtTotal, 0)
Me.Cantidad_Productos = Nz(Me.txtCantidad, 0)
Me.Cantidad_Articulos = Nz(Me.txtArticulos, 0)
If Me.Cantidad_Productos > 0 And Me.Monto_total > 0 Then
Set rs = db.OpenRecordset("select max(id_pedido)+1 from pedidos_enca")

Do While Not rs.EOF
Me.Id_Pedido = rs(0)
rs.MoveNext
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Me.Confirmado = True

DoCmd.RunCommand acCmdSaveRecord

MsgBox "Pedido Guardado Y Confirmado !!!", vbInformation, "Ingreso de Pedidos"

Me.CmdNuevo.Enabled = True
Me.Refresh
Form_Current
Else
MsgBox "El pedido esta mal ingresado o le faltan datos!!!", vbCritical
Err.Clear
End If
Else
MsgBox "El Pedido ya Fue Grabado!!!", vbInformation
End If
Error:
'MsgBox "Existio Un error!!!" & Err. Description, vbCritical, "Error"
'MsgBox Err. Description

End Sub

1 respuesta

Respuesta

Si el campo id_pedido es Autonumérico no debe tener problema, en caso contrario pruebe con este código:

Private Sub cmdGrabar_Click()
Dim iNumeroPedido As Integer
Dim Sql As String
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
On Error GoTo error
If Me.Confirmado = False Or IsNull(Me.Confirmado) Then
Me.Monto_total = Nz(Me.txtTotal, 0)
Me.Cantidad_Productos = Nz(Me.txtCantidad, 0)
Me.Cantidad_Articulos = Nz(Me.txtArticulos, 0)
If Me.Cantidad_Productos > 0 And Me.Monto_total > 0 Then
regrabar:
Err.Clear
Set rs = db.OpenRecordset("select max(id_pedido)+1 from pedidos_enca")
Do While Not rs.EOF
Me.Id_Pedido = rs(0)
rs.MoveNext
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
Me.Confirmado = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Pedido Guardado Y Confirmado !!!", vbInformation, "Ingreso de Pedidos"
Me.CmdNuevo.Enabled = True
Me.Refresh
Form_Current
Else
MsgBox "El pedido esta mal ingresado o le faltan datos!!!", vbCritical
Err.Clear
End If
Else
MsgBox "El Pedido ya Fue Grabado!!!", vbInformation
End If
Error:
If Err.Number = 3022 Then
   Err.Clear
   Resume regrabar
Else
   MsgBox "Existió Un error!!!" & Err. Description, vbCritical, "Error"
End If
End Sub

El código es el que está en negrita y letra Itálica.

Se me olvidó decirle el campo id_pedido debe ser indexado y SIN REPETIDOS.

Muchas gracias, fíjate que no me funciona, debido a que al cargar inicialmente el formulario, arranca con #pedido 0, y si abren los 2 usuarios me dice que hay un error por el índice. Se podrá hacer de otra forma ??

Tendría que mirar su base de datos si puede envíemela a [email protected]. Yo utilizo una función para obtener el último registro, algo como:

En Módulos creo la siguiente función

Public Function siguientepedido() as Long

  siguientepedido=Nz(DMax("[id_pedido]","pedidos_enca")+1,0)

End Function

La función se asegura que el primer pedido comience con 1

En este caso el código cambiaría a:

Private Sub cmdGrabar_Click()
Dim iNumeroPedido As Integer
Dim Sql As String
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
On Error GoTo error
If Me.Confirmado = False Or IsNull(Me.Confirmado) Then
Me.Monto_total = Nz(Me.txtTotal, 0)
Me.Cantidad_Productos = Nz(Me.txtCantidad, 0)
Me.Cantidad_Articulos = Nz(Me.txtArticulos, 0)
If Me.Cantidad_Productos > 0 And Me.Monto_total > 0 Then
regrabar:
Err.Clear
Me.Id_Pedido = siguientepedido()
Me.Confirmado = True
DoCmd.RunCommand acCmdSaveRecord
MsgBox "Pedido Guardado Y Confirmado !!!", vbInformation, "Ingreso de Pedidos"
Me.CmdNuevo.Enabled = True
Me.Refresh
Form_Current
Else
MsgBox "El pedido esta mal ingresado o le faltan datos!!!", vbCritical
Err.Clear
End If
Else
MsgBox "El Pedido ya Fue Grabado!!!", vbInformation
End If
Error:
If Err.Number = 3022 Then
   Err.Clear
   Resume regrabar
Else
   MsgBox "Existió Un error!!!" & Err. Description, vbCritical, "Error"
End If
End Sub

Si no le funciona envíeme su base de datos a [email protected]

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Listado de tablas de una base de datos

Me gustaría saber la forma de poder saber el nombre de todas las tablas de una base de datos de access que no sea la activa. Lo que intento es importar tablas, mediante código, de otra base de datos y necesitaría saber el nombre de toda las tablas de...
1 respuesta

Access no encuentra formulario (Error 2450)

Tengo una base de datos en la cual he insertado 4 formularios (FDatoshechos, FConductor, FVehiculo, FVehiculoB) en uno de los formularios tengo insertado un botón (cmdGuardarDatos) con la siguiente instrucción: Private Sub cmdGuardarDatos_Click() Dim...
1 respuesta

Error al Guardar Datos en tabla Access

Otra consulta, tengo en mi formulario el botón Guardar, me valida que los campos estén llenos antes de guardarlos, y si lo están este los guarda y me imprime un comprobante del registro que acabamos de ingresar. Ya luego se muestra en el Cuadro de...
1 respuesta

¿Cómo creo un login en access?

Tengo el siguiente código necesito que al ingresar la contraseña incorrecta vaya restando el numero de intentos que en este caso serian 3 por favor necesito repuesta a mi solicitud de Ante mano Gracias Private Sub CmdEntrar_Click() Dim auxContraseña...
2 respuestas

Calcular si hay cantidad disponible en un articulo

Tengo un formulario que esta compuesto de la siguiente manera: 1. Un Formulario principal que se llama MESAS. 2. Y un subformulario que se llama VENTAS. En el subformularo VENTAS esta compuestos por los siguientes campos: a) Código (código del...
1 respuesta

Actualizar correlativos dentro de un subformulario

Dentro de un subformulario "Dasientos" tengo el campo "cn" que al recibir en enfoque se va incrementado en 1 cada vez que se ingresa un nuevo registro, pero al borrar uno de esos registros, la numeración deja de ser correlativa. Como puedo lograr que...
2 respuestas

Descontar valores o sumarlos de tabla

El presente mensaje es para solicitar su colaboración con la siguiente pregunta: Tengo en access una tabla que me saca las diferencias de unas facturas en valores numéricos, como puedo hacer que de esa tabla de diferencias me el valor me lo descuente...
1 respuesta

Mensaje por registro Duplicado con índice compuesto

Tengo la tabla INSCRIPCIONES con un índice con 3 campos, Torneo, Fecha_Nro (que están cargados en forma oculta en el formulario), Registro (que se ingresa en un formulario), configurado como Primary key única. La tabla se carga a partir de un...
1 respuesta

Sintaxis correcta para función Dcount para fechas y números

Estoy tratando de usar la función Dcount, esto para que le alerte si en la fecha y hora seleccionadas de los cuadros de texto si ya existe otro registro al dar clic en el botón. Campos Tabla: Día: guarda la fecha de la cita, el formato del cuadro...
1 respuesta

Duplicar tabla db

Estoy realizando un programa en VB6 y necesitaba saber como puedo copiar una tabla incluyendo sus registros de una base de datos de access en otra base de datos de access. He conseguido copiar la estructura pero necesitaba tener los datos. Es decir,...
1 respuesta