Newsgroup: it.comp.appl.access
Titolo: Differenza tra Date in mesi e anni

Buonasera a tutto il News, anzi buongiorno quando lo si legger�! visto 
l'ora.....
vorrei un aiutino per il calcolo tra 2 date....per necessita di dati vorrei 
creare una Qry che mi tiri fuori 2 campi con i mesi e l'anno cio�: ho una 
maschera con 2 campi  DataInizio e DataFine di ricerca tra date, mettendo 
p.e.
   DataInizio         DataFine
  01/01/2008     30/09/2009
nella Qry che mi servirebbe il risultato dovrebbe essere cos�:
  Mese        Anno
    1            2008
    2            2008
    3            2008
    4            2008
    5            2008
    6            2008
    7            2008
    8            2008
    9            2008
   10           2008
   11           2008
   12           2008
    1            2009
    2            2009
    3            2009
    4            2009
    5            2009
    6            2009
    7            2009
    8            2009
    9            2009
� possibile fare ci�, vi RINGRAZIO in anticipo 

 è possibile fare ciò, vi RINGRAZIO in anticipo
Dim MeseAnnoStart As Date
MeseAnnoStart = "01/" & Format(Me.Testo2, "mm/yyyy")
Dim MeseAnnoStop As Date
MeseAnnoStop = "01/" & Format(Me.Testo4, "mm/yyyy")
ciclo:
If MeseAnnoStart <> MeseAnnoStop Then
    Debug.Print "Mese " & Month(MeseAnnoStart) & " - Anno " & Year
(MeseAnnoStart)
    MeseAnnoStart = DateAdd("m", 1, MeseAnnoStart)
    GoTo ciclo:
Else
    Debug.Print "Mese " & Month(MeseAnnoStart) & " - Anno " & Year
(MeseAnnoStart)
End If
non è una query, ma dovrebbe darti cmq quel che cerchi... ovviamente
al posto dei DEBUG.PRINT mettigli quel che ti pare...(aggiungi a una
tabella temporanea, metti come source di una listbox, ecc...)


Es.
Se metti una ListBox
Nome: TuaLista
Numero colonne : 2
Intestazione Colonne : Si
Tipo origine riga : Elenco valori
e esegui questo codice :
Dim str As String
str = "Mese;Anno;"
Dim MeseAnnoStart As Date
MeseAnnoStart = "01/" & Format(Me.DataInizio, "mm/yyyy")
Dim MeseAnnoStop As Date
MeseAnnoStop = "01/" & Format(Me.DataFine, "mm/yyyy")
ciclo:
If MeseAnnoStart <> MeseAnnoStop Then
    str = str & Month(MeseAnnoStart) & ";" & Year(MeseAnnoStart) & ";"
    MeseAnnoStart = DateAdd("m", 1, MeseAnnoStart)
    GoTo ciclo:
Else
    str = str & Month(MeseAnnoStart) & ";" & Year(MeseAnnoStart) & ";"
End If
Me.TuaLista.RowSource = str
il risultato dovrebbe proprio esser quello che cerchi...

Es.
Se metti una ListBox
Nome: TuaLista
Numero colonne : 2
Intestazione Colonne : Si
Tipo origine riga : Elenco valori
e esegui questo codice :
Dim str As String
str = "Mese;Anno;"
Dim MeseAnnoStart As Date
MeseAnnoStart = "01/" & Format(Me.DataInizio, "mm/yyyy")
Dim MeseAnnoStop As Date
MeseAnnoStop = "01/" & Format(Me.DataFine, "mm/yyyy")
ciclo:
If MeseAnnoStart <> MeseAnnoStop Then
    str = str & Month(MeseAnnoStart) & ";" & Year(MeseAnnoStart) & ";"
    MeseAnnoStart = DateAdd("m", 1, MeseAnnoStart)
    GoTo ciclo:
Else
    str = str & Month(MeseAnnoStart) & ";" & Year(MeseAnnoStart) & ";"
End If
Me.TuaLista.RowSource = str
il risultato dovrebbe proprio esser quello che cerchi...
Grazie pablitomf per la risposta, il codice che mi hai sugerito e propio 
quello che stavo cercando,al posto della Qry mi v� bene anche la CC. Grazie 
ancora.