Validacion

[molinojopiento]

Aver tengo un campo en visual que se llama txtcodigo.text esto esta en una base de datos access.

¿Pregunta?

Cuando un usuario ingresa un codigo supongamos el 2 y el codigo 2 ya existe ¿como hago la sentencia IF?

Si pruebo asi:

txtCodigo.text= txtCodigo.text then

Entonces me va a tomar todos los codigos como que ya existen.

Lo que quiero es que lo compare con el dato codigo de la base de datos.

Ejemplo


IF (txtCodigo.text= Codigo de la base de datos) then
msgbox("Ya existe")
end if


Como hago eso? me dijieron que con un select, osea crear una variable pero no puedo hacerlo. Gracias.Ouch

[Insomnia]

Hola

Crea un recordset con la select igualada al código, es decir:

Código:

Reg.open "Select Cod from tabla1 where cod=" & text1.text , bd, adOpenStatic, adLockOptimistic

Luego, comprueba si el recordset esta vacio:

Código:

if reg.eof and reg.bof then
   'El número esta libre
else
   Msgbox "El cod ya existe"
end if

--Saludos--

[molinojopiento]

Ok Muchas gracias lo consegui!!!.....


Otra cosita...


Cuando, borro, modifico, o agrego a mi bd, debo de reiniciar el form o programa para que los cambios tengan efecto, como puedo evitar esto?....

[seba123neo]

no, si tenes los datos en una grilla por ejemplo, volver a llamar a la funcion que te carga la grilla y listo...

saludos.

[vicentecamesella]

En caso de no tener grid sencillamente hace requery