Access - Autosuma

Autosuma

Publicado por luisillo (1 intervención) el 06/02/2007 19:37:17

Como puedo hacer una autosuma de una columna completa en una consulta (query) que hice, o con codigo vb que me de en un textbox la suma de esa columna.
Gracias de antemano!!!!!!

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

Cómo realizar la autosuma de una columna en una consulta o en un formulario con VBA

Publicado por Alejandro (4142 intervenciones) el 02/08/2023 20:14:46

Para realizar la autosuma de una columna completa en una consulta de Access o mediante código VBA, puedes seguir estas opciones:

Opción 1: Autosuma en una consulta de Access:

1. Abre la consulta que has creado y deseas sumar.

2. Haz clic en la barra de títulos de la columna que deseas sumar para seleccionar toda la columna.

3. En la barra de menús, selecciona "Totales" en la pestaña "Diseño" para agregar una fila de totales.

4. En la fila de totales, selecciona "Suma" en la columna que deseas sumar.

5. Ejecuta la consulta y verás el resultado de la suma en la fila de totales.

Opción 2: Autosuma mediante código VBA en un formulario:

Supongamos que deseas mostrar la suma de una columna en un formulario en un control de texto llamado "txtSuma".

1. Abre el formulario en modo de diseño.

2. Haz clic derecho en el formulario y selecciona "Generador de eventos" o "Build Event".

3. Se abrirá el editor de código VBA. Selecciona "Código" y luego el evento "Al cargar" (Event: On Load) del formulario.

4. Agrega el siguiente código VBA en el evento "Al cargar" del formulario:

Private Sub Form_Load()

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim strSQL As String

    Dim suma As Double

    ' Establece la consulta SQL que selecciona la columna a sumar

    strSQL = "SELECT SUM(NombreDeLaColumna) AS Total FROM NombreDeLaTabla;"

    ' Abre la base de datos

    Set db = CurrentDb

    ' Ejecuta la consulta y obtén el resultado en un Recordset

    Set rs = db.OpenRecordset(strSQL)

    ' Verifica si hay registros y obtén la suma

    If Not (rs.EOF And rs.BOF) Then

        suma = rs("Total")

    End If

    ' Cierra el Recordset y la base de datos

    rs.Close

    Set rs = Nothing

    db.Close

    Set db = Nothing

    ' Muestra la suma en el control de texto

    Me.txtSuma = suma

End Sub

Reemplaza "NombreDeLaColumna" con el nombre de la columna que deseas sumar y "NombreDeLaTabla" con el nombre de la tabla donde se encuentra la columna.

Con esta opción, al cargar el formulario, el código calculará la suma de la columna y la mostrará en el control de texto "txtSuma".

Espero que estas opciones te sean útiles.

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