Foros del Web » Programación para mayores de 30 ;) » Bases de Datos General »

consulta extraña que no se qué título poner...

Estas en el tema de consulta extraña que no se qué título poner... en el foro de Bases de Datos General en Foros del Web. Hola a todos. Mi problema es el siguiente: Tengo una tabla "Arrastres" con la siguiente estructura: [monitor, mes, pagado, arrastre] donde se guardan por el ...
  #1 (permalink)  
Antiguo 30/05/2010, 09:41
 
Fecha de Ingreso: enero-2010
Mensajes: 52
Antigüedad: 14 años, 3 meses
Puntos: 0
Pregunta consulta extraña que no se qué título poner...

Hola a todos.

Mi problema es el siguiente:
Tengo una tabla "Arrastres" con la siguiente estructura:
[monitor, mes, pagado, arrastre] donde se guardan por el mismo orden:
nombre del monitor
mes del año
cantidad que se le ha pagado
y cantidad que se acumula para pagarla al mes siguiente (por ej. porque no se tenga dinero suficiente este mes para pagarle)

Pues desde un formulario con un combo con un determinado mes, necesito sacar de esta tabla el arrastre correspondiente a ese mes y sl mes anterior.

Es decir, si lo llamo desde el formulario con el mes de mayo, por ejemplo, que me devuelva el arrastre de Abril y el de Mayo.

Se os ocurre cómo puedo resolverlo?
Gracias.
  #2 (permalink)  
Antiguo 01/06/2010, 01:06
 
Fecha de Ingreso: enero-2010
Mensajes: 52
Antigüedad: 14 años, 3 meses
Puntos: 0
Respuesta: consulta extraña que no se qué título poner...

Parece que no puede hacerse lo que yo quería, intento plantearlo de otra forma a ver si a alguien se le ocurre algo.

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.

Etiquetas: poner
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 04:39.