Actualizar un objeto CONSULTA en SUBFORMULARIO

17/09/2010 - 20:46 por Wally | Informe spam
Buen día a Todos, tengo la siguiente duda, creé una consulta con un
objeto CONSULTA y la siguiente sentencia:

SELECT <campos> FROM <tabla > WHERE <condicion_inicial>

luego lo pegue en un SUBFORMULARIO dentro de mi FORM principal, hasta
aqui todo correcto.

Para actualizar la sentencia SQL de mi objeto CONSULTA utilizo la
siguiente instruccion dentro de la propiedad ON_CLICK de un botón:

Dim strSQL As String

strSQL = <campos>
strSQL = strSQL + <tabla>
strSQL = strSQL + " <condicion_modificada>" 'ESTO ES LO QUE
MODIFICO

For Each Consulta In CurrentDb.QueryDefs
If Consulta.Name = "Consulta TODOS 0" Then
Consulta.SQL = strSQL
Exit For
End If
Next Consulta

Consulta.Close
Set Consulta = Nothing

EL PROBLEMA ES QUE si modifica la consulta SQL pero solo me refresca
el contenido en el FORM hasta que lo cierro y lo vuelvo a abrir. Ya
intenté con los metodos REFRESH, REQUERY y RECALC tanto para el FORM
como para el SUBFORM y no me funciona.

¿Tiene solicuón mi problema?, ¿cuál sería?, gracias de antemano por su
atención!!!
 

Leer las respuestas

#1 Wally
17/09/2010 - 20:54 | Informe spam
REENVIANDO MI MENSAJE ORIGINAL, FE DE ERRATAS


On 17 sep, 13:46, Wally wrote:
Buen día a Todos, tengo la siguiente duda, creé una consulta con un
objeto CONSULTA y la siguiente sentencia:

   SELECT <campos> FROM <tabla > WHERE <condicion_inicial>

luego lo pegue en un SUBFORMULARIO dentro de mi FORM principal, hasta
aqui todo correcto.

Para actualizar la sentencia SQL de mi objeto CONSULTA utilizo la
siguiente instruccion dentro de la propiedad ON_CLICK de un botón:

    Dim strSQL As String

    strSQL = SELECT <campos>
    strSQL = strSQL + FROM <tabla>
    strSQL = strSQL + WHERE <condicion_modificada>   'ESTO ES LO QUE
MODIFICO

    For Each Consulta In CurrentDb.QueryDefs
        If Consulta.Name = "Consulta TODOS 0" Then
            Consulta.SQL = strSQL
            Exit For
        End If
    Next Consulta

    Consulta.Close
    Set Consulta = Nothing

EL PROBLEMA ES QUE si modifica la consulta SQL pero solo me refresca
el contenido en el FORM hasta que lo cierro y lo vuelvo a abrir. Ya
intenté con los metodos REFRESH, REQUERY y RECALC tanto para el FORM
como para el SUBFORM y no me funciona.

¿Tiene solicuón mi problema?, ¿cuál sería?, gracias de antemano por su
atención!!!

Preguntas similares