Función para dar de baja registros

Hola a todos

Querría usar una función para dar de baja registros, sin eliminarlos de la Bd, mediante los valores si/no de un campo de nombre “EXISTEN” en el Formulario "FormLibros".
Si se da de baja (valor "NO" en campo "EXISTEN") el registro, deben aparecer en color rojo, solo los controles cuyo origen es un campo de la tabla, y si está el registro activo (valor "SI" en campo "EXISTEN")se deja en blanco.

Me gustaría hacerlo esto con VBA sin usar el formato condicional y se aplicaría a la vista "Un único formulario", usando una función que llamaría desde un botón.


Había pensado llamar a una función del tipo:
Public Function RegistrosBaja (Frm as form, cancel as integer) as boolean
For each Ctrl in Frm.Controls
if Typeof Ctrl is textbox or Typeof Ctrl is ComboBox then

IF Ctrl.Controlsource = "Select * From Libros Then

Ctrl.BackColor =vbRed

En la claúsula IF... (la que me da problemas)
Me gustaría indicar que no se ponen en rojo todos los controles tipo textbox o combobox sino solo aquellos controles que tengan como origen del control el campo de la tabla.
Ésta sería la clave que solo se coloren en rojo los controles, que sean los campos de la tabla.


Se quiere realizar una acción x en controles de tipo textbox o combobox pero solo en aquéllos que tengan como origen del control el campo de la tabla, origen del formualrio. Claro... Esto pasado a VBA que es lo que no me sale.
Tendría que cambiar la línea del IF para conseguirlo pero no acierto:
IF Ctrl.Controlsource = "Select * From Libros Then

Si alguien pudiera ayudarme, gracias de antemano

Hola MexMan70

Lo de cerrar las comillas lo tenía bien en la Bd, ha sido un error al escribirlo aquí, lo de no cerrarlas.

Lo que me indicas no me funciona,creo que falta el "End Select" en vez de "End Case"... En todo caso aunque se corrigiera eso, no colorea los controles que tienen como origen un campo de la tabla:

   If Ctrl.Controlsource = "Select * From Libros" Then

En esta línea está el principal problema creo. Necesitaría que colorease solo los controles cuyo origen es un campo de la tabla LIBROS. y no todos los controles, textbox, combos que hay en el form y que algunos no tienen como origen esos campos.

Un saludo y gracias por la ayuda

Hola MexMan70
Gracias por la ayuda

No se trata solo de combos... por eso no vale Rowsource.
Se trata de textbox y combos por eso pongo Ctrl.Controlsource.
De todas formas sigue sin funcionar lo que me propones de:

... Like "* From LIBROS *" Then

Un saludo y ya me cuentas

Hola,
Segun entiendo, lo que quieres es que los controles (todos los textBox y comboBox)de un formulario que no sean independientes, osea que el origen del control dependa de un campo del origen de datos del formulario. Esto quiere decir que cualquier control del formulario que no dependa de un campo del origen de datos del formulario, en su propiedad 'Origen del control' estará vacio. Entonces ....
Esto te deberia funcionar. Ya comentaras.

Sub PonerFondoRojo()    '109=TextBox '111=ComboBox    For Each ctl In Me.Controls       If ctl.ControlType = 109 Or ctl.ControlType = 111 Then          If Len(ctl.ControlSource) > 0 Then             ctl.BackColor = vbRed          End If       End If    Next End sub

Editado por jilo - 19/Enero/2016 a las 12:13