Access - DataErr = 3101

Hola tengo esta rutina que alguien me dio aca en este forum, funciona muy bien el problema es que tengo 2 text box uno es el codigo del departamento que funciona con el codigo que esta abajo y el otro es el codigo del parking lot asignado, ambos text box mandan un error 3101 cuando cuando no se incluye el codigo o el codigo no es valido, mi pregunta es como puedo diferenciar que text box me esta mandando el error para mandar un mensaje diferente con respecto al parking lot.

Gracias

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3101 Then 'The Department code is blank or wrong
Response = MsgBox("You need to enter a valid Department ID!", vbExclamation, "Department ID id Blank")
Response = acDataErrContinue
Dept.SetFocus
End If

End Sub

Para diferenciar entre los errores que ocurren en el campo "codigo del departamento" y el campo "codigo del parking lot asignado", puedes modificar la rutina del evento "Form_Error" para que examine el valor del campo en el que ocurrió el error.

Aquí te muestro cómo hacerlo:


En este código, estamos utilizando la propiedad "ActiveControl" para obtener el nombre del control (el nombre del campo) que tenía el enfoque cuando ocurrió el error. Luego, comparamos ese nombre con los nombres de los dos campos que queremos diferenciar ("codigo_departamento" y "codigo_parking_lot"). Si el error ocurrió en el campo "codigo_departamento", mostraremos un mensaje indicando que se necesita un ID de departamento válido. Si el error ocurrió en el campo "codigo_parking_lot", mostraremos un mensaje indicando que se necesita un ID de parking lot válido.

Recuerda reemplazar "codigo_departamento" y "codigo_parking_lot" con los nombres reales de los campos en tu formulario.

Con esta modificación, ahora deberías poder diferenciar entre los errores que ocurren en cada campo y mostrar mensajes diferentes según corresponda.

Espero que esta solución te sea útil. ¡Buena suerte!