Borrar un registro y actualizar la pantalla
Publicado por maribajar (7 intervenciones) el 10/05/2010 21:00:02
Hola
Estoy realizando una pantalla donde aparecen datos de contacto. Tengo el boton de eliminar que me funciona correctamente, pero la cuestion que quiero es que cuando se cierre esta pantalla, me va a otra pantalla pero no me la actualiza y me aparecen los campos con la Etiqueta ELIMINADO, y yo lo quiero es que la lista que me aparezca actualiza sin el registro que acabo de eliminar.
El código que tengo para el botón de eliminar es el siguiente.
¿Pero como refresco la pantalla donde vuelvo.?
Private Sub Eliminar_Click()
On Error GoTo Err_eliminar_Click
If MsgBox("¿Quieres eliminar este contacto?" & Text1, 16 + 4) = 6 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
End If
Exit_eliminar_Click:
Exit Sub
Err_eliminar_Click:
MsgBox Err.Description
Resume Exit_eliminar_Click
End Sub
Estoy realizando una pantalla donde aparecen datos de contacto. Tengo el boton de eliminar que me funciona correctamente, pero la cuestion que quiero es que cuando se cierre esta pantalla, me va a otra pantalla pero no me la actualiza y me aparecen los campos con la Etiqueta ELIMINADO, y yo lo quiero es que la lista que me aparezca actualiza sin el registro que acabo de eliminar.
El código que tengo para el botón de eliminar es el siguiente.
¿Pero como refresco la pantalla donde vuelvo.?
Private Sub Eliminar_Click()
On Error GoTo Err_eliminar_Click
If MsgBox("¿Quieres eliminar este contacto?" & Text1, 16 + 4) = 6 Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.Close
End If
Exit_eliminar_Click:
Exit Sub
Err_eliminar_Click:
MsgBox Err.Description
Resume Exit_eliminar_Click
End Sub
Valora esta pregunta
0