Poner un control de valor en un campo

[NazCarLpa]

Hola a todos, estoy intentando poner un valor en un campo requerido pero no logro que me salga como quiero a ver si me podéis ayuda.

Quiero que en un campo al perder el foco de ese textbox compruebe si el valor es el que debe tener o no.

Para ello tengo puesto esto así.

If CDbl(FormAgregaValor.TbNum.Text) > 110.000 Or CDbl(FormAgregaValor.TbNum.Text) < 199.000 Then
MsgBox("El rango es diferente a la banda que está guardando")
FormAgregaValor.TbNum.Clear()
FormAgregaValor.TbNum.Focus()
End if

Pero al guardar siempre me quita ceros, dejándomelo así.

If CDbl(FormAgregaValor.TbNum.Text) > 110.0 Or CDbl(FormAgregaValor.TbNum.Text) < 199.0 Then
MsgBox("El rango es diferente a la banda que está guardando")
FormAgregaValor.TbNum.Clear()
FormAgregaValor.TbNum.Focus()

Alguien podría ayudarme y decírme como poder hacer para que no me quite esos ceros.

Muchas gracias.

Un saludo.

[NazCarLpa]

Ya lo solucioné, muchas gracias de todas formas a todos.

Saludos.

[Aquaventus]

Hola NazCarLpa, podrías comentarnos la solución? Puede servir en un futuro a alguien que se tope con el mismo problema... Saludos!.

[NazCarLpa]

Pues la verdad que al final era una tontería y mirando el código detenidamente me di cuenta de que yo mismo estába comentiendo el error.

El código que tenía que ir correctamente era este que les dejo aquí.

If CDbl(FormAgregaValor.TbNum.Text) < 110000 Or CDbl(FormAgregaValor.TbNum.Text) > 199000 Then
MsgBox("El rango es diferente a la banda que está guardando")
FormAgregaValor.TbNum.Clear()
FormAgregaValor.TbNum.Focus()
End if

Si se fijan sólo había que quitar los puntos de miles y cambiar el > por < y el < por >

Y listo ya trabaja correctamente.

Saludos y gracias a todos.

[drako_darpan]

Hola que tal, bueno un pequeño detalle.

Valida si son nulos o no, de lo contrario te puede causar algun problema

[cristiantorres]

En este tipo de casos(validaciones) seria mejor usar el evento Control.Validating (Evento)

Saludos.

[NazCarLpa]

Ok de momento lo que hice funciona perfectamente, ahora tengo otro problema que no doy con la solución. Quiero cargar unos Textbox con la búsqueda de uno de ellos pero me da siempre el mismo error.

El error que me da es

No coinciden los tipos de datos en la expresión de criterios.

He mirado y todos los campos están correctos, no entiendo donde está el problema

BD.Rellena("SELECT * FROM VHF WHERE Id = '" & TbId.Text & "'", "BS")

With BD.Dt.Tables("BS")
If .Rows.Count <> 0 Then
'TbId.Text = CStr(.Rows(0).Item(0))
'TbFrecuencia.Text = CStr(.Rows(0).Item(1))
'TbDesplazamiento.Text = CStr(.Rows(0).Item(2))
'TbTono.Text = CStr(.Rows(0).Item(3))
'TbPertenece.Text = CStr(.Rows(0).Item(4))
'TbZona.Text = CStr(.Rows(0).Item(5))
'TbHoraEscucha.Text = CStr(.Rows(0).Item(6))
End If
End With

[NazCarLpa]

Nadie sabría decirme?

[Aquaventus]

Hola NazCarLpa, si tienes otro problema lo recomendable es que crees otro tema para mantener el orden en el Foro. Saludos!.

[NazCarLpa]

Ok así lo haré. Gracias.