Access - Validar si existe campo en tabla

Validar si existe campo en tabla

Publicado por Arturo (28 intervenciones) el 22/10/2019 00:01:43

Buen dia.

Me pueden apoyar con una la siguiente consulta,
Necesito saber si existe un campo en una tabla validandolo desde un formulario al dar clik con un boton.

La tabla es clientes
Campo id_cliente

Al dar clik en el boton validar requiero que me envie un mensaje si el campo id_cliente ya existe o en su caso me indique que no existe.

Gracias.

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 7

Val: 467

Validar si existe campo en tabla

Publicado por Francisco (211 intervenciones) el 22/10/2019 00:24:34

Hola

Lo puedes hacer usando la sentencia on error

Sub Validar_Campo(ByVal mi_campo As String, ByVal mi_tabla As String)

On Error GoTo Error_Campo

    DoCmd.SetWarnings = false

    DoCmd.RunSQL "SELECT TOP 1 " & mi_campo & " FROM " & mi_tabla

Salir_Valida_Campo:

    DoCmd.SetWarnings = true

    Exit Sub

Error_Campo:

    MessageBox "El campo " & mi_campo & " no existe en la tabla " & mi_tabla, vbCritical, "Error"

    Resume Salir_ValidaCampo

End Sub

Saludos

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar

Validar si existe campo en tabla

Publicado por Arturo (28 intervenciones) el 22/10/2019 00:54:27

Gracias, tienes un ejemplo de como ponerlo en el boton y asi me arroje el resultado

Valora esta respuesta

Comentar

Validar si existe campo en tabla

Publicado por Anonimo (3316 intervenciones) el 22/10/2019 11:09:15

Otro método seria mediante una sub_función (el evento click de un botón, por ejemplo)

El botón se llama 'Espia', en los cuadros de texto independientes 'Una_Tabla' y 'Un_campo' la tabla y el campo a investigar, la respuesta en un mensaje emergente

.- no hay control de errores (por ejemplo que no existan datos en los campos o que no exista la tabla o que la base de datos sea externa)
.- es un código que simplemente ejecuta lo que se le solicita y solo a titulo de ejemplo
.- el que lo considere útil lo tendrá que adaptar a su entorno real.

Para añadir en el evento Click de botón (al que se le llamo 'Espia'):

Private Sub Espia_Click()

Dim Ttabla As DAO.Recordset, Mcont As Long, LRespuesta As String

Set Ttabla = CurrentDb.OpenRecordset(Me.Una_Tabla, , dbReadOnly)

For Mcont = 0 To Ttabla.Fields.Count - 1

If Ttabla.Fields(Mcont).Name = Me.Un_Campo Then LRespuesta = "SI EXISTE"

Next Mcont

Ttabla.Close

If Len(LRespuesta) = 0 Then LRespuesta = "No existe"

MsgBox LRespuesta

End Sub

Valora esta respuesta

Comentar

Busco experto en acces

biblioteca plantilla