Private Sub btnEliminar_Click()
On Error GoTo Err_btnEliminar_Click

Dim strIdCtrl As String
Dim R As Long

    'Verificar si hay algún control seleccionado (resaltado)
    strIdCtrl = Nz(Me.lblIdControl.Caption, "")
    If Nz(strIdCtrl, "") = "" Then Exit Sub
    
    'Confirmar con el usuario
    R = MsgBox("¿Confirmas que deseas eliminar el control " & Me.lblTitulo.Caption & "?", _
    vbExclamation + vbYesNo, "Eliminar control")
    If R = vbNo Then Exit Sub
    
    'Eliminar control
    Me.Subformulario.SourceObject = ""
    Call EliminarControl(strIdCtrl)
    'Call ActualizarControlesEnFormulario
    Me.Subformulario.SourceObject = FormCtrls
    
    'reestablecer etiquetas
    Me.lblIdControl.Caption = ""
    Me.lblTitulo.Caption = ""
    Me.lblIngreso.Caption = ""
    Me.lblModificacion.Caption = ""

Exit_btnEliminar_Click:
    Exit Sub

Err_btnEliminar_Click:
    MsgBox Err.Description, vbCritical, "Nuevo control"
    Resume Exit_btnEliminar_Click
End Sub

Sub EliminarControl(strIdCtrl)
Dim strSQL As String
    If CurrentProject.AllForms(FormCtrls).IsLoaded Then Exit Sub
    'eliminar control
    DoCmd.OpenForm FormCtrls, acDesign, , , , acHidden
    DeleteControl FormCtrls, strIdCtrl
    'eliminar procedimientos
    Call EliminarProcedimiento("Sub " & strIdCtrl & "_MouseDown")
    Call EliminarProcedimiento("Sub " & strIdCtrl & "_MouseUp")
    DoCmd.Close acForm, FormCtrls, acSaveYes
    'eliminar registro
    strSQL = _
    "DELETE Controles.IdControl " & _
    "FROM Controles " & _
    "WHERE (((Controles.IdControl)='" & strIdCtrl & "'));"
    CurrentDb.Execute strSQL
End Sub

Sub EliminarControltot(strIdCtrl)
 Dim Ctl As Control
    If CurrentProject.AllForms(FormCtrls).IsLoaded Then Exit Sub
    'eliminar control
    DoCmd.OpenForm FormCtrls, acDesign, , , , acHidden
    For Each Ctl In Me.Controls
    DeleteControl FormCtrls, strIdCtrl
    DoCmd.Close acForm, FormCtrls, acSaveYes
    Next
End Sub