** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Validar si existe registro
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoValidar si existe registro

 Responder Responder
Autor
Mensaje
lauralane Ver desplegable
Nuevo
Nuevo


Unido: 08/Septiembre/2015
Localización: Venezuela
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Tema: Validar si existe registro
    Enviado: 08/Septiembre/2015 a las 18:34
Hola amigos, tengo un formulario que carga datos de un cliente, tiene un campo ID que me gustaria verificar si existe en la data antes de seguir colocando los diversos campos, me pueden ayudar con eso???

Gracias

Laura Lane
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5070
Enlace directo a este mensaje Enviado: 08/Septiembre/2015 a las 18:40
Hola lauralane
 
Lo puedes verificar con un DCount, o mediente recordset, el maestro Emilio Sancha tiene un ejemplo sobre ese tema, búscalo.
 
Saludos.
Arriba
lauralane Ver desplegable
Nuevo
Nuevo


Unido: 08/Septiembre/2015
Localización: Venezuela
Estado: Sin conexión
Puntos: 3
Enlace directo a este mensaje Enviado: 11/Septiembre/2015 a las 00:52
Gracias por el apoyo, lo voy a buscar.

Laura
Arriba
Fercho1309 Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 05/Marzo/2014
Localización: bogota
Estado: Sin conexión
Puntos: 22
Enlace directo a este mensaje Enviado: 11/Septiembre/2015 a las 18:59
Hola lauralane,

Lo que yo hago es utilizar un dlookup en el campo despues de actualizar asi:

    Private Sub Documento_AfterUpdate()
    Dim vvalor, vvalorb As Variant
    vvalor = Me.Id.Value
    If IsNull(vvalor) Then Exit Sub
    
    vvalorb = DLookup("[ID]", "Tabla Donde esta el ID", "[Campo Donde escribes el ID]='" & vvalor & "'")
    
    If vvalorb = vvalor Then
    
    MsgBox "El ID ya Existe", vbInformation, "aviso"
    Me.ID.Value = Null
    Me.Campo anterior a ID.SetFocus
    Me.Documento.SetFocus
    End If


End Sub
Arriba
E. Feijoo Ver desplegable
Moderador
Moderador


Unido: 16/Abril/2004
Localización: España
Estado: Sin conexión
Puntos: 19948
Enlace directo a este mensaje Enviado: 11/Septiembre/2015 a las 23:00
DLookup no es lo idóneo, comenzando porque lo que devuelve lo conoces (no buscas nada que no sepas), si no lo localiza devuelve un NULL (el elemento 'maldito' por su tendencia a propagarse) y siempre necesitaras una evaluación para el condicional.

DCount devuelve un cero (esto es: FALSE) si no lo localiza o un valor diferente de cero (diferente de cero implica: TRUE) si lo localiza ¿se puede pedir mas por menos?...

If DCount ("*", "tabla donde esta el ID", "ID = " & Id_a_Verificar) <> 0 Then Msgbox "el dato ya figura en la tabla"
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable