Visual Basic - ayuda validar dato

Life is soft - evento anual de software empresarial
 
Vista:

ayuda validar dato

Publicado por JULIO10 (198 intervenciones) el 10/03/2002 21:18:18
Hola,mi pregunta es la siguiente : tengo una bd en access 97 enlazada con dao a vb 6.0 y en el form todos los campos estan enlazados con la bd,asi que cuando se carga el form visualizo el ultimo registro pero necesito que en este form tenga un boton de agregar y que al momento de ir agregando me valide si el campo de la Descripcion del articulo ya existe y si es asi me avise y me regrese y si no existe que me permita seguir con la alta.

gracias de antemano
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:ayuda validar dato

Publicado por alejandro (172 intervenciones) el 10/03/2002 21:40:12
Hola,
Asumo que el campo "descripcion" no es parte del indice.
Entonces el procedimiento es el siguiente:

if tblProductos.RecordCount>0 then
tblProductos.MoveFirst
Do Until tblProductos.EOF
if tblProductos!Descripcion=txtDescripcion
msgbox "Error, ya existe el Producto"
txtDescripcion.SetFocus
endif
tblProductos.MoveNext
Loop
endif

Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

Rs.Datasource...

Publicado por Jamw (120 intervenciones) el 11/03/2002 15:10:37
if accion = nuevo then
'abre un recordset con
select descripción where descripción = '" & txtdescripción & "'
if rs.recordcount>0 then
msgbox "el nombre ingresado ya existe"
exit sub
end if

elseif accion=editar then
select descripción where descripción = '" & txtdescripción & "' and codigo <>" & txtcodigo
if rs.recordcount>0 then
msgbox "el nombre cambiado ya existe"
exit sub
end if
end if
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar