none
Avisar si el campo está duplicao RRS feed

  • Pregunta

  • Hola Buenos días.

    Tengo esta fundción para que me avise al salir del campo si está duplicado o no pero no me funciona, ¿podéis ayudarme?

    Me dice: se esperaba =

    Private Sub NombreDelCampodelForm_AfterUpdate()
    Dim variable As Variant
    DLookup ("[CampoDeLaTabla]", "NombredeLaTabla", "[NombreDelCampoAVerif] = " _
    & Forms!FormularioActivo!NombreDelCampoQUeACtualizaste)
    Else
    MsgBox ("los datos no deberian repetirse")
    End If
    End Sub

    Si esto no es correcto me podríais decer como hacerlo

    Gracias


    José JFG
    • Editado José JFG sábado, 2 de abril de 2011 11:18 Faltas de ortigrafía
    sábado, 2 de abril de 2011 11:17

Respuestas

  • Gracias José María,

    Esto si me ha servido de ayuda inmediata, lo del cuarderno lo tengo más complicado.

    Saludos y muy agradecido.


    José JFG
    • Marcado como respuesta José JFG miércoles, 6 de abril de 2011 20:01
    lunes, 4 de abril de 2011 20:02

Todas las respuestas

  • Hola

    Yo utilizaría otro tipo de función como por ejemlo DCount. Muy parecida, pero te devolverá un entero.

      Dim iCuenta As Integer
      iCuenta = DCount("Campo", "Tabla", "ValorABuscar='" & ValorAComparar & "'")
      
      If iCuenta > 0 Then
        MsgBox "Hay " & iCuenta & " Valores    Cancel = True
      Else
        MsgBox "PERFECTO!!!"
      End If
    

    Fíjate, que los valores que son texto tienen que ir entre comillas simples dentro de la cadena.

    Espero te sirva.

    Salu2,


    José Mª Fueyo [MS MVP Access]
    • Propuesto como respuesta José Mª Fueyo martes, 5 de abril de 2011 12:14
    lunes, 4 de abril de 2011 12:04
  • Gracias José María,

    Esto si me ha servido de ayuda inmediata, lo del cuarderno lo tengo más complicado.

    Saludos y muy agradecido.


    José JFG
    • Marcado como respuesta José JFG miércoles, 6 de abril de 2011 20:01
    lunes, 4 de abril de 2011 20:02