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.