ayuda en formato condicional con código

[azul_18]

Hola de nuevo,necesito de su ayuda para hacer lo siguiente ya que tengo:
If Me![zona1] < [zona2] Then
Me![zona1].FontBold = True
Me![zona1].ForeColor = vbRed
Else
Me![zona1].FontBold = False
Me![zona1].ForeColor = vbBlack
Me![zona1].Visible = False
End If
*con esto hago la comparación entre 2 campos de texto del mismo form y asi se resalta de "color" según el caso ,pero ahora necesito compararlo con el dato que hay en un subformulario es decir zona1 con el zona3 que aparece en el subform, gracias!!

[RastaMart]

le puedes poner asi...

zona3.text3.backcolor etc etc

espero y sirva

[azul_18]

Rasta Mart gracias!!!
Algo asi quedo... es que anteriormente que habia probado ya de esa manera lo hacia bien pero despues marcaba un tipo de error pero ya no y quedó asi .....
If Me![zona1] = subform![zona3] Then
Me![zona1].FontBold = True
Me![zona1].ForeColor = vbBlack
Me![zona1].BackColor = vbWhite
Else
Me![zona1].FontBold = False
Me![zona1].ForeColor = vbYellow
Me![zona1].BackColor = vbRed
End If

*pero ahora tengo otra duda para poder ahorrar código, porque como tengo 15 campos de textos los cuales tengo que comparar hice 1 para cada uno, entonces podria ser de otra manera de tal modo que fuera... que todos los campos de form1 que sean = a los campos de sub_form fueran tal color y si no de "otro color" en general?....

[David]

Bueno, no sé si funcionará, pero puedes intentar así:

Código:

 
Private Sub txtCompare(Text1 As TextBox, Text2 As TextBox)
If Text1 = Text2 Then
Text1.FontBold = True
Text1.ForeColor = vbBlack
Text1.BackColor = vbWhite
Else
Text1.FontBold = False
Text1.ForeColor = vbYellow
Text1.BackColor = vbRed
End If

Y para llamarlo así:

Código:

 
txtCompare Me![zona1], subform![zona3]
' y así sucesivamente

Espero haber ayudado. Saludos

[azul_18]

"David" gracias!!!!
lo intentaré......

[azul_18]

Hola foreros !!!.Siguiendo con este mismo tema necesito que me ayuden de nuevo ya que el código funciona gracias a la consulta anterior que hice aqui pero he agregado un campo más zona2 entonces probé sustituyendo la línea de código siguiente con la anterior pero hay un error de sintaxis:

' If Me![zona1] >= subform![zona2] And <= subform![zona3] Then
---------------------
Private Sub zona1_Exit(Cancel As Integer)
If Me![zona1] = subform![zona3] Then
.
.
-----------------------
me faltan corchetes o algo así???
Gracias.

[David]

Código:

' If Me![zona1] >= subform![zona2] And <= subform![zona3] Then

Esto está mal. Debe ser

Código:

' If Me![zona1] >= subform![zona2] And Me![zona1] <= subform![zona3] Then

[azul_18]

Hola!
If Me![zona1] >= subform![zona2] AND <= subform![zona3]" Then

No especifique bien en el anterior la idea era asi: zona1 está en el form y zona2 y 3 en el subform

[David]

Iniciado por azul_18

Hola!
If Me![zona1] >= subform![zona2] AND <= subform![zona3]" Then

No especifique bien en el anterior la idea era asi: zona1 está en el form y zona2 y 3 en el subform

Pero no entiendo qué es lo que quieres comparar, ¿cuál tiene que ser mayor que cual?

[azul_18]

marca error de sintaxis:

If Me![zona1] >= subform![zona2] AND Me! [zona1] <= subform![zona3] Then

zona2 = "5" y zona3 = "7"
zona1 debe estar dentro de ese rango de zona2 y zona3

[David]

Iniciado por azul_18

marca error de sintaxis:

If Me![zona1] >= subform![zona2] AND Me! [zona1] <= subform![zona3] Then

zona2 = "5" y zona3 = "7"
zona1 debe estar dentro de ese rango de zona2 y zona3

El único error de sintaxis que veo es el espacio que estás dejando entre Me! y [zona1]...

[azul_18]

Eres grande!!

Era exactamente eso el espacio :
If Me![zona1] >= subform![zona2] And Me![zona1] <= subform![zona3] Then

De nuevo gracias.