SoloCodigo

Puedes ejecutar para un recordset una sentencia SQL de este estilo:

"SELECT SUM(Campo1) FROM Tabla
WHERE FECHA1>=" & Text1.Text & " AND FECHA1<=" & Text1.Text

Suerte.

Veo que llevas dos días sin que Brroz te responda, y me meto quizás donde nadie me llama, pero prefiero echarte una mano aunque para alguien pueda quedar mal...

Mira, la respuesta que te da Brroz creo que cumple totalmente tu necesidad, porque con esa instrucción "NO CUENTAS LOS REGISTROS QUE HAY ENTRE DOS FECHAS", como tú crees sino que "TE CALCULA EL TOTAL DE LA COLUMNA CORRESPONDIENTE AL IMPORTE" (SUM(Campo1)), que sería en tu caso SUM(Importe).

Para que lo comprendas mejor, puedes sustituir la fórmula que te dió Brroz por esta otra (que es lo mismo, pero quizás más didáctica):

"SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"

De esta forma luego podrás tratar el campo Total, que será el resultado de sumar todos los importes de fecha "comprendida entre" (BETWEEN) las dos indicadas en tus textboxes.

Saludos

Disculpas por el despiste en la respuesta del mensaje...

Lo que dice J.M.Movilla es correctísimo.

Necesitarás definir en tu aplicación los siguientes objetos:

Objeto conexión (ADODB.Connection). Utiliza su método 'Open' con la cadena de conexión adecuada a tu caso.

Objeto comando(ADODB.Command). Establece su propiedad 'ActiveConnection' con el valor del objeto conexión anterior (con SET, ojo,  es un objeto) .   Establece la propiedad 'CommandType' igual 'adCmdText'.

Objeto recordset (ADODB.Recordset). Este contendrá los registros seleccionados obtenidos de la siguiente forma:

   set rs1 = cmd1.Execute "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"

Donde rs1 sería el objeto recordset y cmd1 el comando.

Una vez ejecutado, el resultado lo obtendrías así:

Total = Iff(Not IsNull(rs1.Fields(0).Value) , rs1.Fields(0).Value, 0)

Todo esto así a grandes rasgos. Si quieres más detalle o ejemplos, creo que en mensajes anteriores de este foro podrás encontrar lo que buscas.

Si te acostumbras a trabajar con este tipo de objetos, pronto dejarás de usar controles data

Suerte.

Otra forma de utilizar la sentencia SQL, usando controles, es asignándola a la propiedad RecordSource de un control data.

Adodc1.RecordSource = "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"

Y Luego:

Adodc1.Refresh  
DataGrid1.ReBind

Espero que esto te resulte más sencillo. De todas formas te recomiendo que busques información y ejemplos (en este foro mismo) sobre la utilización de objetos para acceso a datos.


Por cierto, en el mensaje anterior hay un error. Donde dice:

set rs1 = cmd1.Execute "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"

Debería decir:

cmd1.CommandText = "SELECT SUM(Importe) AS Total FROM Tabla WHERE Fecha BETWEEN #" & Text1.Text & "# AND #" & Text2.Text & "#"
Set rs1 = cmd1.Execute

Suerte.

Espero que el programita que te he preparado te sirva mejor que todas las palabras que puedan decirse..., puesto que hablas de estar comenzando a programar en Visual.

Y ya sabes... espero también que termines confirmando el resultado, COMO DEBE SER...

Saludos y suerte

Hola buenas tardes, alguien me puede ayudar con toda la sentencia en vba para poder sumar una columna. Desde ya muchas gracis