RE:Verificar la existencia de un campo
hola aldeano
intenta con esto a ver si resuelves
Private Sub campo_ref Enter()
Dim ref_tabla As String
Dim ref_busc As String
'En caso de no indicar referencia a buscar, muestra mensaje
If IsNull(Me!campo_ref) Or (Me!campo_ref) = "" Then
MsgBox "Seleccione un numero de Referencia !!!", vbOKCancel, "Criterio de busqueda no valido!"
Me!campo_ref.SetFocus
End If
' Busca la referencia indicada
If (Me!campo_reft) <> "" Then
DoCmd.ShowAllRecords
DoCmd.GotoControl ( " campo_ref_tabla ")
DoCmd.FindRecord Me!campo_ref
campo_ref_tabla.SetFocus
ref_tabla = campo_ref_tabla.value
campo_ref.SetFocus
ref_buscar = campo_ref.Value
If ref_tabla = ref_buscar Then
MsgBox "La Referencia " & campo_ref & " Existe", , "Datos correctos"
campo_ref.SetFocus
campo_reft.Value = ""
End If
If ref_tabla <> ref_buscar Then
MsgBox "La Referencia " & campo_ref & " no existe", , "!!!Busqueda no válida!!!"
campo_ref.SetFocus
campo_ref.Value = ""
End If
End if
End Sub
si no me he equivocado esto te debe funcionar
campo_ref es el control en el formulario donde tu introduces la referencia que quieres buscar en la tabla
ref_tabla es el control en el formulario donde te aparecera la referencia que quieres buscar si existe.
lo demas es codigo.
esto debe hacer lo siguiente, me imagino que en el formulario debes tener un cuadro de texto independiente donde teclearas la referencia que deses buscar en tu tabla, una vez que introduzcas tu referencia y des enter, te mostrara los datos si existen, sino te mostrara un mensaje indicando que esa referencia no existe, y si no pones datos ninguno en el cuadro de texto y das enter te mostrara otro mensaje, espero haberte podido ayudar y que sea esto lo que necesitabas.
Elio.