Access - Buscar quién está vacío

Buscar quién está vacío

Publicado por CyRuS (127 intervenciones) el 14/11/2006 17:25:53

estando en access tengo una tabla con 10 columnas.

A mí me interesa saber por cada registro ,entre la columna 3 y la 8 , qué
columnas están llenas (is not null)

cómo puedo saber eso ?

para todos los registros supongo que será con un For, por lo que con
saberlo para un registro ya me valdría.

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

Verificar campos llenos en un rango específico de columnas

Publicado por Alejandro (4142 intervenciones) el 28/07/2023 16:49:45

Para determinar qué columnas están llenas (no son nulas) entre la columna 3 y la columna 8 para un registro específico en una tabla de Access, puedes utilizar un bucle "For" en VBA para recorrer las columnas y verificar el valor de cada una. A continuación, te proporciono un ejemplo de cómo hacerlo:

Supongamos que tienes una tabla llamada "MiTabla" con los campos "Campo1" hasta "Campo10". Y quieres verificar los campos desde "Campo3" hasta "Campo8" para un registro específico con un valor de identificación "ID".

Public Sub VerificarCamposLlenos(ID As Long)

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim i As Integer

    Dim camposLlenos As String

    On Error GoTo ErrorHandler

    Set db = CurrentDb

    Set rs = db.OpenRecordset("SELECT * FROM MiTabla WHERE ID = " & ID)

    If Not rs.EOF Then

        camposLlenos = "Campos Llenos para el registro con ID " & ID & ": "

        For i = 3 To 8 ' Verificar desde Campo3 hasta Campo8

            If Not IsNull(rs(i)) Then

                camposLlenos = camposLlenos & "Campo" & i & ", "

            End If

        Next i

        ' Quitar la última coma y espacio

        camposLlenos = Left(camposLlenos, Len(camposLlenos) - 2)

        MsgBox camposLlenos, vbInformation

    Else

        MsgBox "No se encontró ningún registro con el ID " & ID, vbExclamation

    End If

    rs.Close

    Set rs = Nothing

    Set db = Nothing

    Exit Sub

ErrorHandler:

    MsgBox "Error al verificar campos llenos: " & Err.Description, vbExclamation

End Sub

Puedes llamar a esta función "VerificarCamposLlenos" pasando el valor del ID del registro que deseas verificar. La función recorrerá las columnas desde "Campo3" hasta "Campo8" y mostrará un mensaje con los nombres de los campos que están llenos (no son nulos) para ese registro específico.

Por ejemplo, para verificar los campos para el registro con ID 1, llamarías a la función de esta manera:

VerificarCamposLlenos 1

Espero que esta solución te ayude a verificar qué columnas están llenas para un registro específico en tu tabla de Access. ¡Buena suerte!

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