Hola amigos,
Me gustaría saber como puedo recibir mensaje cuando, después de salir de un
campo, éste ya exista,  (ej,  0021/02), sin necesidad de completar todo el
formulario como me ocurre actualmente ya que en el diseño de la tabla  dicho
campo no admite duplicados.


Hola Raimundo, un ejemplo usando DAO sería el siguiente:

Private Sub CodigoGanadero_BeforeUpdate(Cancel As Integer)
    Dim rsRst as DAO.Recordset

    ' Comprueba que se rellenó el campo...
    If IsNull(Me.CodigoGanadero) = True Then
        MsgBox "Debe introducir un CÓDIGO de GANADERO/RÍA válido...",
vbInformation + vbOKOnly, Caption
        Cancel = -1
    Else
        Set rsRst = Me.RecordsetClone
        rsRst.FindFirst "[CodigoGanadero]= '" & Me.CodigoGanadero & "'"
        If rsRst.NoMatch = False Then
            MsgBox "Atención, Código GANADERO/RÍA EXISTE !!!", vbExclamation
+ vbOKOnly, Caption
            Cancel = -1
        End If
    End If

End Sub

--

Javier Muñoz

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)