Newsgroup: it.comp.appl.access
Titolo: problemi con query

SELECT Scadenziario.contatore, Scadenziario.Fattura,
Scadenziario.Datafattura, Scadenziario.Datscadenza, Scadenziario.Ragione,
Scadenziario.PartitaIva, Scadenziario.CodiceFiscale,
Scadenziario.Tipopagamento, Scadenziario.Ivavalore, Scadenziario.Imponibile,
Scadenziario.Iva, Scadenziario.Totale, Scadenziario.rata,
Scadenziario.TipoFattura, Scadenziario.Categoria, Scadenziario.pagata,
Scadenziario.EsportataRiba, Month([datscadenza]) AS Mese,
Year([datscadenza]) AS Anno
FROM Scadenziario
WHERE (((Scadenziario.TipoFattura)<>"Nota di credito") AND
((Scadenziario.EsportataRiba)="No") AND
((Month([datscadenza]))=[forms]![esportariba]![mese]) AND
((Year([datscadenza]))=[forms]![esportariba]![anno]));
non riesco a creare un recordset della query qui sotto, ho provato anche con
l'esempio di query parametrica del sito comune ma nulla di fatto.
sapreste aiutarmi? devo creare un recordset che rispetta le seguenti
condizioni
TipoFattura<>"Nota di credito"
EsportataRiba="No"
Mese=[forms]![esportariba]![mese]
Anno=[forms]![esportariba]![anno]
Grazie a tutti.

 ha scritto nel messaggio
news:b3ia41$74f$1...@lacerta.tiscalinet.it...

Prova ad impostare i parametri della QueryDef cosě:
qdf.Parameters![forms]![esportariba]![mese]  = [forms]![esportariba]![mese]
qdf.Parameters![forms]![esportariba]![anno] = [forms]![esportariba]![anno]
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


    e questi come li imposto?
TipoFattura<>"Nota di credito"
EsportataRiba="No"
Grazie.

 > l'esempio di query parametrica del sito comune ma nulla di fatto.
di solito per gestire una query parametrica creo una form e la apro ridotta
a icona
scorrendo poi i record della form, cosa che però è poco elegante visto che
si vede questa form comparire e poi scomparire.
nessuno di voi sa dirmi come posso gestire un recordset impostando i criteri
seguenti:


 ha scritto nel messaggio
news:b3kl02$7dv$1...@lacerta.tiscalinet.it...

Io te lo ho detto, che poi è quello che è scritto sul Sito Comune: casa è
che non va?
Ma la soluzione del Sito Comune integrata con quanto ti ho detto nel
messaggio precedente la hai provata?


 Grazie.
Uomo di poca fede!!!
Quelle sono costanti e non parametri variabili, quindi sono già inglobate
nella query.
Perché non provi prima di fare altre domande.



Adesso la provo, Grazie.

>   qdf.Parameters![Forms]![EsportaRiba]![mese] =
[Forms]![EsportaRiba]![mese]
   qdf.Parameters![Forms]![EsportaRiba]![anno] =
[Forms]![EsportaRiba]![anno]
   Set rst = qdf.OpenRecordset
   '...
   rst.Close
   qdf.Close
   Set dbs = Nothing
boooooooooo! sai dirmi cosa non và?

 ha scritto nel messaggio
news:b3l9ub$k0g$1...@lacerta.tiscalinet.it...

Prova così:
  Dim dbs As Database
   Dim qdf As QueryDef
   Dim rst As Recordset
   Set dbs = CurrentDb
   Set qdf = dbs.QueryDefs("scadenziarioriba")
   qdf.Parameters![Forms!EsportaRiba!mese] = [Forms]![EsportaRiba]![mese]
   qdf.Parameters![Forms!EsportaRiba!anno] = [Forms]![EsportaRiba]![anno]
   Set rst = qdf.OpenRecordset
--


 Roberto
Provato non và nemmeno cosi, stesso errore, la query è cosi:
SELECT Scadenziario.contatore, Scadenziario.Fattura,
Scadenziario.Datafattura, Scadenziario.Datscadenza, Scadenziario.Ragione,
Scadenziario.PartitaIva, Scadenziario.CodiceFiscale,
Scadenziario.Tipopagamento, Scadenziario.Ivavalore, Scadenziario.Imponibile,
Scadenziario.Iva, Scadenziario.Totale, Scadenziario.rata,
Scadenziario.TipoFattura, Scadenziario.Categoria, Scadenziario.pagata,
Scadenziario.EsportataRiba, Month([datscadenza]) AS Mese,
Year([datscadenza]) AS Anno
FROM Scadenziario
WHERE (((Scadenziario.TipoFattura)<>"Nota di credito") AND
((Scadenziario.EsportataRiba)="No"));
Helpatemi!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!

 ha scritto nel messaggio
news:b3lpcd$vae$1...@lacerta.tiscalinet.it...

Ma questa non è una query parametrica: dove sono i parametri? E' solo una
banale query di selezione; su di essa un recorset va aperto come se fosse
una tabella.
Che fai cambi le carte in tavola?
Comunque l'ultima soluzione che ti ho postato per scrupolo l'ho provata e a
me funziona, naturalmente a condizione che la query sia parametrica e i due
parametri siano Forms!EsportaRiba!mese e Forms!EsportaRiba!anno.


 ---------------------------------------------
non cambio la carte in tavola la query che ho postato è quella da cui poi
devo definire il recordset secondo quanto tu mi hai detto con:
forse mi sono sbagliato a dire parametrica volevo dire di selezione con i
campi
<>"Nota di credito" e Esportata="No"
questo codice io lo provato
  Dim dbs As Database
   Dim qdf As QueryDef
   Dim rst As Recordset
   Set dbs = CurrentDb
   Set qdf = dbs.QueryDefs("scadenziarioriba")
   qdf.Parameters![Forms!EsportaRiba!mese] = [Forms]![EsportaRiba]![mese]
   qdf.Parameters![Forms!EsportaRiba!anno] = [Forms]![EsportaRiba]![anno]
   Set rst = qdf.OpenRecordset
e ame dice elemento non trovato nell'insieme.
prova a fare una query come quella che ti postato e poi a creare il
recordset come dici tu.
Grazie in anticipo.

 Grazie in anticipo.
Scusa Simba883, ma se la query non è parametrica (ovvero è quella che hai
postato nel tuo messaggio del 27/2/2003 ore 20:36) non puoi aprilra
impostando i parametri della relativa QueryDef: se i parametri non ci sono
giustamente ti viene restituito un errore dove si evidenzia che quei
parametri non esistono.
A mio avviso il recordset su quella query va aperto in maniera normalissima,
tipo:
Dim rst As DAO.Recordset
Set rst = CurrentDB.OpenRecordset("NomeQuery")
come se fosse un atabella.


 ---------------------------------------------
pensavo che impostando da codice VBA
questi parametri
  qdf.Parameters![Forms!EsportaRiba!mese] = [Forms]![EsportaRiba]![mese]
   qdf.Parameters![Forms!EsportaRiba!anno] = [Forms]![EsportaRiba]![anno]
dovessi toglierli dalla query e lasciare solo quelli <>"nota di credito" e
esportata="No"
ho sbagliato io ora riprovo a mettere tali campi e ti faccio sapere.
provo e ti faccio sapere, intanto grazie.

Come disse un tale nel NG non ricordo dove, sei proprio il cacio sui
maccheroni complimenti funziona. yahoooooooooooooooooooooooo!!!!!!!