Solucionar el Error al eliminar datos seleccionados en un ListBox, si el registro ya fue eliminado (Visual Basic - Access)

Estoy creado un formulario en visual basic (Excel) el cual contiene 2 ListBox cada ListBox corresponde a una tabla en access.

La idea es pasar los datos de una tabla a otra, haciendo clic en el boton obtener me pasa el registro de la tabla 1 a la 2 y luego elimina el registro en la tabla 1, el problema es que esto va ser utilizado por varias personas a la vez y he comprobado que si selecciono un ejemplio en registro 1 y al momento de obtenerlo ya otra persona lo obtuvo me sale un error en donde me dice que el registro fue eliminado.

Quiero que en vez de aparecer el error. Salga un mensaje que diga "El registro ya fue obtenido" y tenga que elegir otro.

Respuesta
1

Te dejo un Link donde te explica bien la función On Error que te permite hacer lo que quieres

https://blogs.itpro.es/exceleinfo/2013/11/05/implementar-controlador-de-errores-en-excel-vba/ 

Muchas gracias! 

Si todavía no resolviste el problema te dejo estas 2 líneas quizás te sean de utilidad...

On Error GoTo errores:
    'Aqui tu codigo
Errores:
    MsgBox "El registro ya fue obtenido", vbInformation

Colose ve arriba, coloca la lina "On Error Goto Errores:" despues del Sub de tu macro  y la linea "Msgbox "El registro ya fue obtenido" , Vbinformation " antes del End sub

Espero te sea de utilidad =)

El correcto aveces escribe lo que quiere ja ja era "Como se ve arriba, coloca la línea"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas