-Tengo creada una macro que hace una consulta Sql sobre una tabla Access con un Where donde le pongo los parámetros de fecha.
Ahora estoy intentado cambiar los parámetros de fecha (DD/MM/AAAA) por solo año (AAAA).
Lo que he añadido a mayores al formulario son dos SpinButton que insertan los años en cuestión.
Private Sub btn_Buscar_Click(): On Error Resume Next
Dim vConsulta, where As String
Dim Fecha1, Fecha2 As Date
'<<<Dim Año As Variant
Dim i As Integer
Conectar
Application.ScreenUpdating = False
Application.DisplayAlerts = False
vConsulta = "sql_Resumen"
Fecha1 = Format(Me.TextBox100, "DD/MM/YYYY")
'<<<<<Fecha1 = Year(Format(Me.TextBox100, "YYYY"))
MsgBox Fecha1
Fecha2 = Format(Me.TextBox200, "DD/MM/YYYY")
'<<<<Fecha2=Year(Format(Me.TextBox100,"YYYY"))
MsgBoxFecha2IfIsNull(TextBox100) OrTextBox100=""AndIsNull(TextBox200) OrTextBox200=""ThenMsgBox"No ha seleccionado ninguna fecha"TextBox100.SetFocusExitSubEndIfwhere="fecha >= #" & Fecha1 & "# AND fecha <= #" & Fecha2 & "#"
Sql = "SELECT *"
Sql = Sql & " FROM " & vConsulta & ""
Sql = Sql & " WHERE " & where & ""
rs.Open Sql, cnn, 3, 3, 1
With Sheets("Informes")
.Cells.Delete
For i = 0 To rs.Fields.Count - 1
.Cells(1, i + 1) = rs.Fields(i).Name
Next i
.Range("A2").CopyFromRecordset rs
If rs.RecordCount > 0 Then
Else
MsgBox "No hay ventas para mostrar"
Exit Sub
End If
End With
rs.Close
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Buenos días a todos;
-Tengo creada una macro que hace una consulta Sql sobre una tabla Access con un Where donde le pongo los parámetros de fecha.
Ahora estoy intentado cambiar los parámetros de fecha (DD/MM/AAAA) por solo año (AAAA).
Lo que he añadido a mayores al formulario son dos SpinButton que insertan los años en cuestión.
MAño.zip