Newsgroup: it.comp.appl.access
Titolo: Inseriemento automatico giorni della settimana

Devo creare un database, che fuga tipo da agenda, ma con altre funzioni.
In pratica il database lavora mese per mese.
Ossia, ad esempio inizio a lavorare con il mese di Novembre, lui
automaticamente mi crea 30 record vuoti pronti da lavorare.
Tale funzione l'ho fatto in VB, cioè i mesi di Gennaio, marzo, maggio,
luglio, agosto, ottombre, dicembre deve creare 31 record vuoti per i
restanti 30 record vuoti pr febbraio deve prendere l'anno dividerlo per 4 se
il resto è zero inserira 29 record altrimenti sempre 28.
Ecco il mio problema.
Io ho un altro campo che mi mette il giorno espreso in nome: lunedì,
martedì, ecc.
Ora io vorrei che in base al giorno che già automaticamente mi ha inserito
in base al MESE, in base all'ANNO che digiterò inizialmente, mi associ a
ciascun giorno il suo rispettivo "giorno della settimana", quindi
appoggiandosi con il calendario suo interno.
Mi potete dire come fare?????
Ciao e grazieeeeeeeeeeeeeeeeee

 ha scritto nel messaggio 
news:cndmpg$af1$1...@grillo.cs.interbusiness.it...

Questa funzione restituisce il primo e l'ultimo giorno di una data:
Public Function PrimoUltimo(miaData As Date)
Dim data As Variant, primoGiorno as date , ultimogiorno as date
data = DateValue(miaData)
primoGiorno = DateSerial(Year(data), Month(data), 1)
ultimogiorno = DateSerial(Year(data), Month(data) + 1, 0)
End Function
Poi usando DatePart potrai ottenere tutto quello che vuoi: Anno, trimestre, 
Mese, Giorno dell'anno, o Giorno, Giorno della settimana o Settimana e anche 
ora, minuti e secondi se sono presenti nella data che gli passi.
Ciao, Carlo 


Mi dovresti solo fare un favorino.
VB non lo mastico alla grande.
Mi dice dove lo devo mettere????
Scusami il disturbo, poi ti faccio sapere
Primogiorno ed ultimogiorno nella maschera come li posiziono.
Sono un pò fuori strada, ridammi la retta via, perdomani l'ignoranza
Ciao e grazieeeeeeeeeee

 ha scritto nel messaggio
news:cnf0c4$jv$1...@grillo.cs.interbusiness.it...

Un aiutinoooooooooooooooooooo

>
CUT
Esula dalle prerogative di questo NG realizzare intere strutture di 
database.
Comunque grosso modo quello che va fatto è stabilire il primo e l'ultimo 
giorno del mese (con la funzione PrimoUltimo(miaData As Date) che chiede di 
passargli una data
e poi, inseriti tutti i giorni, si scorre il recordset e si aggiunge per 
ogni valore il corrispondente giorno; un semplice ciclo di For..next... sul 
recordset aperto, abbinato a un With...end with
Dim RCS as recordset, ii as integer
Set RCS = CurrentDb.OpenRecordset("TuaTabellaOQuery")
rcs.MoveLast
Rcs.MoveFirst
For ii = 1 to Rcs.RecordCount
    With rcs
    .Edit
    !MioGiornoEsteso = DatePart("w", !DataDelRecord)
    .Update
   End With
    rcs.Movenext
Next ii
Ciao, Carlo

 ha scritto nel
messaggio news:LJYmd.353831$35.15...@news4.tin.it...

Perchè semplicemente non ti crei il tuo calendario (anche di cent'anni) con
il "riempimento seriale" di Excel?
Basta digitare la data iniziale e la successiva (p.e. in formato data in
cifre) ed Excel compila la sequenza (puoi farlo anche con un intero foglio).
Poi basta copiare la colonna in un campo Data di tabella in access ed hai il
tuo calendario (rigorosamente in formato Data/Ora) su cui fare tutte le
manipolazioni che vuoi.
Spero di essere stato di qualche utilità.
Ciao
mayerlink

 ha scritto nel messaggio
news:lG2nd.356245$35.16...@news4.tin.it...

E' vero non ci avevo pensato, era però devo valutare, perchè i valori mi
servono in campio diversi
Giorno
Mese
Anno
Con excel quello che tu mi hai suggerito riesco a farlo, utilizzando solo
una cella.
Hai capito cosa intendo????
Fammi sapere

 ha scritto nel messaggio
news:lG2nd.356245$35.16...@news4.tin.it...

E' vero non ci avevo pensato, era però devo valutare, perchè i valori mi
