Newsgroup: it.comp.appl.access
Titolo: Valore di una query da un modulo.

Ciao a tutti,
dovrei recuperare un valore da una query eseguita, per fare una verifica e
tramite un ciclo if then far apparire un msgbox. Potreste aiutarmi, vi
ringrazio anticipatamente,
Luca

 ha scritto nel messaggio
news:KZdx7.4297$YC3.1...@news1.tin.it...

Prova cosģ:
Public Sub TrovaValore(Valore as Variant)
    dim db as dao.database
    dim rs as dao.recordset
    set db = currentdb
    set rs = db.openrecordset("NomeQuery") ' se hai la query salvata nel db
    set rs = db.openrecordset("SELECT * FROM [NomeTabella]") ' se fai la
query in modo dinamico
    with rs
        if .recordcount >0 then
            .findfirst "[NomeCampoDoveDeviCercareIlValore]='" & Valore & "'"
            if .nomatch = false then
                msgbox "Ho trovato il Valore"
            end if
        endif
    end with
end sub
Spero di aver capito, comunque potresti abbreviando il codice sopra se nella
select usi la clausola WHERE.
Ciao Roberto - Syd

 Prova cosě:


 ha scritto nel messaggio
news:sKhx7.4500$pm2.1...@news2.tin.it...

Innanzi tutto quando rispondi devi rispondere dopo l'ultimo messaggio in
modo da rendere piů chiaro il problema e la sua risoluzione.
Il fatto che ti dia errore č dovuto al fatto che forse usi Access97 se č
cosě dove c'č scritto dao. lo cancelli e dovrebbe funzionare se invece usi
Access2000 ti manca la libreria DAO nei riferimenti.
Ciao Roberto - Syd


Ciao e scusa se non ho rispettato le buone norme di comportamento...
Forse mi manca quella libreria e ti chiedo come installarla (uso access
2000). Inoltre nel caso questo db dovessi darlo ad un'altra persona che usa
access97 (leggendo la dicumentazione di ADO) forse non sarà compatibile.
Scusa se ti stresso ma vorrei risolvere questo problema. Ciao Luca


Fai cosě apri la finestra VBA dove hai scritto il codice seleziona compila
tutti i moduli dal menů Debug quando si ferma e ti da errore seleziona
riferimenti dal menů strumenti e vedrai un elencodi librerie con accanto
delle caselle di controllo a questo punto ce ne dovrebbe essere una dove
accanto c'č scritto MANCA fai click sulla casella di controllo di quella
libreria, quindi se č spuntata gli togli il segno di spunta e se č vuota
imposti il segno di spunta e adesso dovrebbe funzionare se la persona a cui
lo devi consegnare ha access97 non ci sono problemi perchč lo puoi
convertire nella versione access97 menů Strumenti -> Utilitŕ Database ->
Converti alla versione precedente...
Ciao Roberto - Syd


ciao Roberto, + o - sono riuscito ad attivare qualcosa... adesso però mi dà
un'altro errore e specificatamente "errore di tipo 3061, parametri
insufficienti previsto 2" in corrispondenza della riga:
Set rs = db.openrecordset("Ver_aule")
Scusami se ti stò stressando e sicuramente facendo perdere tempo... ma per
questo problema sei l'unico bagliore di luce nella tenebra di questo lavoro.
Ciao e grazie Luca


La query che stai tentando di aprire contiene dei criteri ?
Ciao Roberto - Syd

 ha scritto nel messaggio
news:Ujxx7.8254$YC3.1...@news1.tin.it...

Ciao Roberto,
si la query contiene dei criteri...
Comunque penasandoci e ripensandoci sono riuscito a fare quello che mi
serviva... Ti ringrazio comunque dell'aiuto e del tempo che mi hai dedicato.
Ciao Luca