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

Cómo puedo cerrar una consulta en ACCESS??. Ayuda.

Estas en el tema de Cómo puedo cerrar una consulta en ACCESS??. Ayuda. en el foro de Bases de Datos General en Foros del Web. Hola a todos! El problema es el siguiente, tengo hecho un informe basado en una consulta que se ejecuta al hacer click en un botón, ...
  #1 (permalink)  
Antiguo 25/08/2008, 01:48
 
Fecha de Ingreso: mayo-2008
Mensajes: 80
Antigüedad: 15 años, 11 meses
Puntos: 0
Pregunta Cómo puedo cerrar una consulta en ACCESS??. Ayuda.

Hola a todos!

El problema es el siguiente, tengo hecho un informe basado en una consulta que se ejecuta al hacer click en un botón, pero claro, al hacer click en el boton, me genera la consulta, me genera el informe sobre la consulta y me los deja los dos abiertos. Lo que yo quiero es que una vez que me saque el informe, que es lo que realmente necesito, me cierre la consulta. Si no es así, el usuario (además de ver una consulta que no necesita ver) tendría que cerrar la consulta manualmente haciendo click en la "X" cada vez que la ejecuta.
¿Cómo puedo hacerlo?
El código del botón es el siguiente:
Cita:
Private Sub Comando5_Click()
Dim Filtro As String
Dim qdf As DAO.QueryDef
Dim sSql As String

sSql = "SELECT * FROM Ofertas_Cursos "


If Nz(Me.nom_curso, "") <> "" Then
Filtro = Filtro & " nom_curso='" & Me.nom_curso & "' AND "
End If
If Nz(Me.nom_cliente, "") <> "" Then
Filtro = Filtro & " nom_cliente='" & Me.nom_cliente & "' AND "
End If
If Nz(Me.provincia_curso, "") <> "" Then
Filtro = Filtro & " provincia_curso='" & Me.provincia_curso & "' AND "
End If
If Nz(Me.monitor, "") <> "" Then
Filtro = Filtro & " monitor='" & Me.monitor & "' AND "
End If
If Not IsNull(Me.horario_mañana) Then
Filtro = Filtro & " monitor=" & Me.monitor & " AND "
End If


If Nz(Filtro, "") <> "" Then
Filtro = Left(Filtro, Len(Filtro) - 4)
Set qdf = CurrentDb.QueryDefs("ConsultaInteractiva")
qdf.SQL = sSql & " Where " & Filtro
DoCmd.OpenQuery "ConsultaInteractiva"

DoCmd.OpenReport "inf_ConsultaInteractiva", acViewPreview

Else
MsgBox "Ninguno de los controles ha sido rellenado", vbInformation
End If
End Sub
Debería ser algo parecido al DoCmd.CloseQuery pero esto no funciona bien, supongo que porque no existe, pero esa sería la idea.

P.D. A primeros de agosto, me fui precipitadamente de vacaciones y puede que se me olvidara darle las gracias a alguno de los que me estábais echando un cable. GRACIAS A TODOS y espero seguir contando con vosotros ahora para terminar mi aplicación.
  #2 (permalink)  
Antiguo 26/08/2008, 05:07
 
Fecha de Ingreso: mayo-2008
Mensajes: 80
Antigüedad: 15 años, 11 meses
Puntos: 0
Pregunta Respuesta: Cómo puedo cerrar una consulta en ACCESS??. Ayuda.

Hola??

Nadie sabe cómo puedo cerrar esa consulta? o que se ejecute en segundo plano o algo así?

Por favor Ayuda!!

Gracias.
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 08:19.