Newsgroup: it.comp.appl.access
Titolo: Creare maschera tabulare "calendario mensile"

Ciao a tutti avrei necessita' di realizzare un form tabulare dove in
automatico abbia tutti i giorni del mese corrente.
Esempio :Apro il form oggi mi si deve posizionare sul giorno 20/01/11
ma ovviamente posso andare a ritroso nel tempo.Ovviamente se decido di
inserire un dato in marzo 2011 mi si dovrebbe aprire il fm con le date
del mese selezionato.Di riscontro ovviamente anche un report da poter
stampare
Grazie in anticipo
Dino

?"Dino"  ha scritto nel messaggio 
news:ce147b23-7d60-4902...@t35g2000yqj.googlegroups.com...

Grazie in anticipo
Dino
___
Cioč scusa, vuoi che te lo facciamo noi o che ti aiutiamo???
MA

 MA
EIhhh MA come si dice ...."ma per chi mi hai preso!!!!" no ho solo
bisogno di una vostra dritta o "drittona" ci mancherebbe altro  di
farmelo fare
Grazie
Dino

 MA
EIhhh MA come si dice ...."ma per chi mi hai preso!!!!" no ho solo
bisogno di una vostra dritta o "drittona" ci mancherebbe altro  di
farmelo fare
Grazie
Dino
___
Allora,
1. Spiega bene che non si capisce una Mazza
2. Dicci l'esigenza non come lo faresti tu
3. Poponi diversamente il problema e cioč:
ragazzi dovrei realizzare questo,
io vorrei fare questo, ma non ci riesco
qual č il problema?
NON devo avere questo che faccia questo e questo e quello... embč??
MA

 MA
Non ho capito manco io , cmq se ti puo servire io farei na cosa di sto
genere , mi creo una tabella
nometabella =tabelladata
 campo= data
poi in apertura o su un pulsante:
 Dim DataInizio As Date
    Dim DataFine As Date
    CurrentDb.Execute "DELETE * FROM tabellaData;"
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tabellaData", dbOpenTable)
    DataInizio = CDate(Me.datadal) 'campo nascosto con la prima data
del mese
    DataFine = CDate(Me.dataal) ' campo nascosto con l'ultima data
    Do Until DataInizio > DataFine
  Me.Etichetta5.Caption = "Fine Elaborazione"
        rs.AddNew
        rs!Data = DataInizio
        rs.Update
        DataInizio = DateAdd("d", 1, DataInizio)
Loop
spero ti serva.
Questa fu una discussione fra me e alex per incrementare una tabella ,
con un between di date
ciao

 Dino
Esiste il controllo calendario. Per caso è questo che ti serve?
--
sv
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Ciao a tutti e grazie per le risposte.Allora non e' il controllo
"calendario" che mi serve perche' lo utilizzo gia.
Cerchero' di essere piu' chiaro.In u DB devo ogni mese riportare (o
meglio il mio cliente) giorno per giorno le ore di straordinarie fatte
da i suoi operai.
Quindi immaginiamo di prendere esempio sett. prox.
giorno e data       ore straord          nome operaio
Lun 24 Gennaio        3                  sig Rossi
Mart 25 Gwnnaio       4                 Sig Verdi
E cosi' via.La cosa piu importante e' di avere mese per mese i giorni
della settimana gia elencati.
Io ho parlato di Form tabulare perche' mi sembra la piu' idonea per
l'ins. Potrenne andare bene anche a colonne.L'importante e' poi
generare un report mensile di tutti gli inserimenti.
Forse l'esempio di Lolince va bene,adesso devo uscire appena rientro
lo provo.Nel frattempo fatemi sapere se sono stato abbastanza chiaro
Grazie ancora
Dino

 Dino
L'esempio riportato e solo un inserimento di date crescente dal
periodo al periodo richiesto , e le trovi nella tabelladata,
analizzandolo cosi al volo tu sicuramente avrai duplicati di dati (piu
record perche per la stessa data potresti avere piu operai con
straordinari) , quindi non devi solo inserire le date , ma anche gli
operai , oppure crearti un'altra tabella (ad esempio Tab_straordinati)
da gestire ,e poi con una sottomaschera che in base alla data
selezioata inserisce operai data, e straordinari.ect ect..
Ciao
Ciao

 - Mostra testo citato -
Ciao e grazie per la risp.Sono rientrato or ora.Provo  il tuo
esempio.Io ho fatto prima l'esempio piu' 
completo.in
 realta' il mio
clientev potrebbe andare bene anche la sola stampa del mese i dati li
compilerebbe a mano in cantiere.
Dino

 - Mostra testo citato -
Ciao Lolince ho provato ma non "funge".Allora io ho creato la Tabella
che mi hai detto,ho creato i campi :
data
Datadal
Dataal
Li ho inseriti nel form e sull'evento "open" del medesimo ho inserito
il codice ma non mi da nulla.
Dove ho sbagliato????
NB:Stavo pensando comunque che il cliente per ogni mese potrebbe
inserire la data di nizio e fine mese e poi con ul controllo creare il
report con tutte le date.Questo
sarebbe l'ideale(e' questo poi che dovrebbe fare la tab)
Dino


Controlla il riferimenti , verifica se hai la spunta su dao 3.6
apri un modulo poi strumenti/riferimenti , e se non trovi Microsoft
DAO 3.6.... lo cerchi e lo spunti e poi lo porti nelle primissime
posizioni.
Ps non serve che in tabella inserisci il campo dal al .
Ciao Lolince

 - Mostra testo citato -
Ciao e grazie per la risp.Irif. Dao 3.6 ci sono e sono in quinta pos.
Probabilmente non capisco io come impostare il codice.ti elenco i miei
dubbi:
nella tab devo solo creare il campo "data" e basta?
Poi nel form incece creo due caselle di testo?? datadal e dataal ed
inserisco risp la data di inizio e di fine e poi li nascondo???
Ecco questi sono i dubbi.
Grazie mille Dino


Allora Ricapitoliamo:
Il mio esempio porta una tabella chiamata TabellaData, con un solo
campo all'interno che chiamiamo data (tipo dati data/ora) magari anche
chiave primaria cosi se ripeti l'operazione non duplica
Secondo passaggio era crearmi una maschera con due campi : datadal e
dataal , successivamente in un pulsante (o dove si vuole ) inserire il
codice :
On Error Resume Next:
    Dim DataInizio As Date
    Dim DataFine As Date
  '  CurrentDb.Execute "DELETE * FROM tabellaData;"
    Dim rs As DAO.Recordset
    Set rs = CurrentDb.OpenRecordset("tabellaData", dbOpenTable)
    DataInizio = CDate(Me.datadal)
    DataFine = CDate(Me.dataal)
    Do Until DataInizio > DataFine
        rs.AddNew
        rs!data = DataInizio
        rs.Update
        DataInizio = DateAdd("d", 1, DataInizio)
Loop
questo e tutto
Ciao

 - Mostra testo citato -
Ok Lolince... funziona tutto alla grande ed era proprio quello che
volevo.Il non funzionamento era dovuto proprio hai miei dubbi.
Se io pero' volessi in automatico una volta lanciato il form in esame
far scrivere(in base al mese corrente) la data di inizio e la data di
fine come posso fare???? (tu giustamente dirai "Almeno questo fattelo
tu")
Grazie ancora per la disponibilita' data
Dino


Be almeno questo giustramente puo farlo tu ehehhe ;)
cmq puo inserire tutto l'anno 01/01/2011 al 31/12/2011 e poi filtri il
mese (month) in apertura maschera ...ciao

 - Mostra testo citato -
OK LO.....(mi sento di poter abbreviare il tuo nome)Sì in realta' non
lo posso ma "lo devo" fare io!!!!!
Grazie ancora e.......alla prossima
Dino


Creati un campo chiamalo "giorno" e nelle proprieta li inserisci
=NOW()
poi in apertura maschera fai :
me.datadal=DateSerial(Year(giorno), Month(giorno), 1)
me.madatal=DateSerial(Year(giorno), Month(giorno) + 1, 1) - 1
Ciao Di (mi sento di poterti abbreviare il nome anche io heehheheheh)