Access e record set

[kronos23]

Ciao a tutti....

non so come inserire delle cose nel codice di access!!!!

Io ho questa query:

SELECT tbl_RegMargini.[_Anno], tbl_RegMargini.[_AnnoMese], Sum(tbl_RegMargini.NumSett) AS SommaDiNumSett, tbl_RegMargini.Sede, Sum(tbl_RegMargini.Contract) AS SommaDiContract, contact.contact
FROM contact INNER JOIN tbl_RegMargini ON contact.annoemese = tbl_RegMargini.[_AnnoMese]
GROUP BY tbl_RegMargini.[_Anno], tbl_RegMargini.[_AnnoMese], tbl_RegMargini.Sede, contact.contact
HAVING (((tbl_RegMargini.[_Anno])=2002) AND ((tbl_RegMargini.Sede)="bz"));

Ora visualizzo questi dati in un report basato su questa query!!!!
ma nell ostesso report dovrei vedere pure i dati del 2003 e 2004 e 2005

ma non so come inserirla nel codice del report per poi richiamare i dati fosse in asp l ofarei ma in Vba non riesco ad inserirlo....

Mi date una mano???

( Spero di essere stato chiaro )

[kronos23]

forse non l'ho scritto abbastanza chiaramente?????? Come faccio a basare un report su pi fonti di dati????? Tipo se avessi 3 query e vorrei generare un reporto come faccio?

[santino83]

devi modificare

(tbl_RegMargini.[_Anno])=2002)

prova a sostituirla con:

( (tbl_RegMargini.[_Anno])=2002) or (tbl_RegMargini.[_Anno])=2004) or (tbl_RegMargini.[_Anno])=2005) or
(tbl_RegMargini.[_Anno])=2003) ) and......

[kronos23]

SELECT tbl_RegMargini.[_Anno], tbl_RegMargini.[_AnnoMese], Sum(tbl_RegMargini.NumSett) AS SommaDiNumSett, tbl_RegMargini.Sede, Sum(tbl_RegMargini.Contract) AS SommaDiContract, contact.contact FROM contact INNER JOIN tbl_RegMargini ON contact.annoemese = tbl_RegMargini.[_AnnoMese] GROUP BY tbl_RegMargini.[_Anno], tbl_RegMargini.[_AnnoMese], tbl_RegMargini.Sede, contact.contact HAVING (((tbl_RegMargini.Sede)='bz'));

ok ora riesco ad aprire questa SQL da codice VBA come faccio ad impostare un ciclo per estrarre i 12 dati diversi presenti nella tabella tbl_RegMargini nel campo che viene generato SommaDiContract ????

Scusatemi sono leso.....

[santino83]

dal codice di asp dici?

<%
set conn=server.createObject("adodb.connection")

conn.open strConn 'strConn è la stringa di connessione. cercatela a www.stringconnection.com se non ricordo male oppure nel forum

set rs=server.createobject("adodb.rfecordset")

sql="select * from ...." 'stringa sql da aprire

rs.open sql,conn,1,1

while not rs.eof then
response.write rs(0) & "
"
rs.movenext
wend

rs.close: set rs=nothing
conn.close: set conn=nothing
%>

[kronos23]

in asp ok ma il VBA????????

[santino83]

scusate la mia ignoranza...cos'è vba? access?

[kronos23]

è il codice di access

SQL = "SELECT ecc ecc ......."
Set rst = CurrentDb.OpenRecordset(SQL)

While Not rst.EOF
   Me![2003ctc] = rst![SommaDiContract]
   rst.MoveNext
Wend

Cosi mi da 1 per 12 volte

[kronos23]

Set rst = CurrentDb.OpenRecordset(SQL)
Do While Not rst.EOF
   Me![2003ctc] = rst![SommaDiContract]
   rst.MoveNext
Loop

non va così mi da 12 volte 1

[kronos23]

Set rst = CurrentDb.OpenRecordset(SQL)

Do While Not rst.EOF
  v = rst![SommaDiContract]
  
  Me![test] = v
   
   rst.MoveNext
Loop

Allora se io guardo cosa c'è nella var V con msgbox mi da i 12 valori
ma se voglio vederli tutti assieme assegnandoli al campo test mi dice
impossibile assegnare un valore all'oggetto!!!! Ma perchèèèèèèèèèèèè.......