Problema Total Egreso y Text
Hola.
mi proble es que estoy Sacando el Total Egresos dependiendo de la fecha y tengo el siguente codigo, pero no me muestra nada en la grilla. ej:
Private Sub CmTotalEgresos_Click()
On Error Resume Next
Data2.RecordSource = "SELECT Sum(total_pagar) AS [TOTAL EGRESOS] From Egresos WHERE Month (Fecha_pago) = Month (Date)=" & (Text1.Text)
Data2.Refresh
End Sub
me pueden escribir ami correo o conectarse con mi msn [email protected]
mi proble es que estoy Sacando el Total Egresos dependiendo de la fecha y tengo el siguente codigo, pero no me muestra nada en la grilla. ej:
Private Sub CmTotalEgresos_Click()
On Error Resume Next
Data2.RecordSource = "SELECT Sum(total_pagar) AS [TOTAL EGRESOS] From Egresos WHERE Month (Fecha_pago) = Month (Date)=" & (Text1.Text)
Data2.Refresh
End Sub
me pueden escribir ami correo o conectarse con mi msn [email protected]
primero: si usas funciones agregadas, tenes que agrupar registros.
segundo: no entiendo la parte del where, que es lo que queres poner como condicion?, ademas en la ultima parte deberias usar comillas simples para que te reconozca text1.text como texto, sino lo toma como numero.
Es decir ='" & (Text1.Text) & "'"
de todas formas si lo q queres es q el mes de fecha_pago sea como el mes del text1.text entonces usa:
Month (Fecha_pago) = '" & Month(Text1.Text) & "'"
o format para el text1.text.
segundo: no entiendo la parte del where, que es lo que queres poner como condicion?, ademas en la ultima parte deberias usar comillas simples para que te reconozca text1.text como texto, sino lo toma como numero.
Es decir ='" & (Text1.Text) & "'"
de todas formas si lo q queres es q el mes de fecha_pago sea como el mes del text1.text entonces usa:
Month (Fecha_pago) = '" & Month(Text1.Text) & "'"
o format para el text1.text.
