[ACCESS VISUALBASIC]modificare query esistente

[darksoullight]

ciao a tutti. avrei bisogno di aiuto per il seguente problema.
ho una query di access che durante una procedura in visul basic dovrebbe essere modificata con l'aggiunta del where se si verifica una determinata condizione.qualcuno sa dirmi come posso fare???
ho cercato con google ma non ho trovato nulla che potesse risolvere il mio problema.
grazie mille in anticipo!

[john_revelator]

Se ho capito bene devi solo concatenare alla tua stringa la parte aggiuntiva

esempio

strSQL = "select * from tabella"

if condizione then
strSQL = strSQL & " where ....."
end if

[darksoullight]

Originariamente inviato da john_revelator

Se ho capito bene devi solo concatenare alla tua stringa la parte aggiuntiva

esempio

strSQL = "select * from tabella"

if condizione then
strSQL = strSQL & " where ....."
end if

no non è questo quello che intendevo.
io ho già la query.è una query "statica" contenuta dentro access.
io devo riprendere il testo di questa query (non la costruisco,già è costruita,come se fosse fissa) e modificarlo aggiungendo il where.

[MarcoGG]

Originariamente inviato da darksoullight

ho una query di access che durante una procedura in visul basic dovrebbe essere modificata con l'aggiunta del where se si verifica una determinata condizione.qualcuno sa dirmi come posso fare???

Cosa abbastanza semplice, io la farei così :

    Dim sqlPre As String
    sqlPre = Application.CurrentDb.QueryDefs("Nome_Query").sql
    Do
        If Right(sqlPre, 1) = ";" Then
            sqlPre = Mid(sqlPre, 1, Len(sqlPre) - 1)
            Exit Do
        Else
            sqlPre = Mid(sqlPre, 1, Len(sqlPre) - 1)
        End If
    Loop

    Dim sqlPost As String
    sqlPost = sqlPre & " WHERE ... ... ... ;"
    Application.CurrentDb.QueryDefs("Nome_Query").sql = sqlPost

IMPORTANTE : il codice SQL della query originaria DEVE terminare con ";" ( di solito Access lo aggiunge da solo... ).
Prova.

[darksoullight]

grazie mille.farò come mi hai consigliato te.
avevo trovato un'altra soluzione ma non ottimale sotto il punto di vista di lettura del codice per cui ora utilizzerò la tua.
di nuovo grazie