Conflicto de escritura: Access

Hola experto. Sucede que estoy utilizando actualmente unos códigos (elementales en mi base de datos) pero éstos me están generando un conflicto de escritura ya que me aparece que otro usuario ha modificado el registro antes que yo. Te explico los códigos.
Después de actualizar el campo FechaIngreso del formulario Factura, se autollenan todos los campos FechaIngreso en el subformulario disfraz con el mismo valor que el del formulario. El código es como sigue:
Private Sub FechaIngreso_AfterUpdate()
CurrentDb.Execute "update disfraz Set fechaingreso=#" & CDate(Format(Forms!Factura!FechaIngreso, "mm/dd/yyyy")) & "# Where factura=" & Forms!Factura!Factura
End Sub
Por otra parte tengo el siguiente código cuyo propósito es realizar un conteo sobre el número de registros llenos en el subformulario actual:
If IsNull(Me.factura) Then
Me.alquiler = 0
Else
SQL = "Select count(nombredisfraz) as numero from disfraz where nombredisfraz>'' and factura=" & Forms!Factura!Factura
Set rst = CurrentDb.OpenRecordset(SQL)
If Not rst.EOF Then
Me.alquiler = rst.Fields("numero")
Else
Me![Subformulario Disfraz].Form.alquiler = 0
End If
rst.Close
End If
Me pregunto en qué parte se encuentra el conflicto y cómo podría solucionarlo. Muchas gracias por tu ayuda.

Añade tu respuesta

Haz clic para o