Sumar Tabla Access desde macro excel
Después de padecer con esta macro, pido apoyo a ustedes amigos. Tengo esta macro, que quiero que me sume los monto filtrados en la consulta, pero no me funciona. La suma total, me debe pasar al Textbox6
Sub CommandButton1()
Inicio = TextBox1
final = TextBox2
Set Rs = New ADODB.Recordset
Sql = "SELECT SUM (Monto) FROM Caja WHERE Fecha BETWEEN format('" & Inicio & "','dd/mm/yyyy') AND format('" & final & "','dd/mm/yyyy') ORDER BY fecha"
Rs.Open Sql, Cnn, adOpenKeyset, adLockOptimistic, adCmdText
textbox6 = sql
Rs.Close
Set Rs = Nothing
End Sub
1 Respuesta
Respuesta de Programar Excel
1
Cuando trabajas con sql y fechas en VBA usa este carácter encerrando la fecha #
Así:
sql = SELECT SUM (Monto) FROM Caja WHERE" FechaPericia <= #" & Format(CDate((Date)), "mm/dd/yyyy") & "# AND FechaInforme IS NULL"
Mira estos ejemplos te pueden orientar
Visita http://programarexcel.com encontrarás cientos de ejemplos que te pueden ayudar
¡Gracias! Muy agradecido en verdad, voy a visitar vuestra página, ya que estoy aprendiendo a enlazar directamente mis datos con access.
Saludos
