Comparar valores 2 cuadros de Texto en Formulario sin origen de tabla.

Hola, me gustaría poder solucionar lo siguiente:

Tengo un formulario que he creado sin relación con ninguna tabla. En el tengo 2 cuadros de texto. 1 y 2.

Cuadro de texto 1 recibe un numero cuando se actualiza un Cuadro combinado mediante la instrucción:

Me.Texto1 = Me.cc6.Column(1)

Y el cuadro de texto 2 lo recibe de otro cuadro de texto mediante:

Me.Texto2 = Me.Texto19

Ahora lo quisiera es comparar los valores de Cuadro de texto 1 y 2 para mediante la instrucción IF poder ejecutar otra instrucción, algo así:

If Me.Texto1.Value > Me.Texto2.Value Then
MsgBox "balabalaba"

End If

Lo he probado en todos los eventos, posibles, pero no me funciona.

Agradezco la ayuda.

Un saludo.

1 respuesta

1
Respuesta de

Hola!

Coge las propiedades del cuadro combinado que tú llamas cc6 y en el evento "Después de actualizar le generas este código:

...

Private Sub...

Dim t1 as variant, t2 as variant

If isnull(me.cc6,value) then exit sub

If insull(me.Texto2.value) then exit sub

me.Texto1.value=me.cc6.Column(1)

t1=meTexto1.value

t2=me.Texto2.value

If t1>t2 then

msgbox "Blabla"

End if

End sub

...

Ahora coges las propiedades del control que tú llamas Texto19 y en el mismo evento, "Después de actualizar", le generas un código muy parecido

....

Private Sub...
Dim t1 as variant, t2 as variant
If insull(me.Texto19.value) then exit sub
me.Texto2.value=me.texto19.value
t1=meTexto1.value
t2=me.Texto2.value

If isnull(t1) then exit sub
If t1>t2 then
msgbox "Blabla"
End if
End sub

...

A ver si te funciona bien.

Saludos,

http://neckkito.siliconproject.com.ar

Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje