Hola a todos.
Tengo el siguiente código en un botón de un formulario:
Código:
Private Sub Comando2_Click()
Dim Filtro As String
Dim qdf As DAO.QueryDef
Dim sSql As String
sSql = "SELECT * FROM nominas "
If Nz(Me.monitor, "") <> "" Then
Filtro = Filtro & " monitor='" & Me.monitor & "' AND "
End If
If Nz(Me.Cuadro_combinado7, "") <> "" Then
Filtro = Filtro & " [fecha_fin_curso Por mes]='" & Me.Cuadro_combinado7 & "' AND "
End If
If Nz(Filtro, "") <> "" Then
Filtro = Left(Filtro, Len(Filtro) - 4)
Set qdf = CurrentDb.QueryDefs("nominas2")
qdf.SQL = sSql & " Where " & Filtro
DoCmd.OpenQuery "nominas2"
Else
MsgBox "Es necesario escoger al menos un factor de búsqueda", vbInformation
End If
End Sub
Con él, selecciono un monitor y un mes (Cuadro_combinado7) y me saca los datos correspondientes.
La pregunta es, cómo modifico esto, para que me devuelva los datos correspondientes al mes de búsqueda (el que aparece en Cuadro_combinado7) y al mes anterior.
Es decir, si en el form tengo
Monitor = Antonio Rodríguez
Cuandro_combinado7 = Febrero
que al hacer clic en el botón me devuelva los datos correspondientes a Antonio Rodríguez del mes de Febrero y del de Enero.
Por favor, agradezco cualquier idea.
Gracias.