Newsgroup: it.comp.appl.access
Titolo: banalità su Date()

ciao,
vorrei fare una sorta di piccolo reminder per il cliente in modo tale
che al caricamento del programma (quindi del form MenuAvvio) se data
corrente e il primo giorno del mese allora mi scrive una cosa
ad esempio ho fatto
Private Sub Form_Load()
// Me.Oggi e la data che appare nella form di avvio //
If Me.Oggi = #09/1/2002# Then
    MsgBox ("E' consigliabile effettuare una copia di backup del
database ad inizio mese!")
End If
end sub
e funziona ma io volevo mettere anzi 
if Me.Oggi = "mm / 1 / yyyy" then 
etc etc
perche cosi ovviamente mi vale per tutti i primo giorno del mese.
(ho win2k in inglese quindi ho mese-giorno-anno)
qual'e la sintassi per mettere un qualsiasi valore per indicare il
mese e l'anno?
sono sicuro che sia una banalita pazzesca ma non mi ritrovo con i
caratteri jolly di access. (e la guida non mi e d'aiuto)
ho cercato qualcosa tra i vecchi 3d ma non ho trovato molto... forse
avevo cancellato
grazie, ciao
-g-

 perche cosi ovviamente mi vale per tutti i primo giorno del mese.
    If Me.Oggi.Value = DateSerial(Year(Date),Month(Date),1) Then
-oppure-
    If Day(Me.Oggi.Value) = 1 Then
--
Ciao :-)
Maurizio
--------
?SPQR(C)
 X
--------

 ha scritto nel messaggio
news:3d8c24a3....@powernews.inwind.it...

Io farei cosě:
Private Sub Form_Load()
If Day(Date) = 1 Then
MsgBox ("E' consigliabile effettuare una copia di backup del database ad
inizio mese!")
End If
End Sub

corrente e il primo giorno del mese allora mi scrive una cosa
Ciao
ti complico un poco la vita forse e' una banalita' ma credo che il
codice che ti hanno dato gli altri non basta, per quanto sia corretto
per la domanda che poni.
perche'?
puo' capitare che il primo giorno del mese capiti di domenica per cui
in quel mese il backup salta, forse un codice che avvisi del backup 
ogni 4 lunedi' (per cui ogni 28 giorni circa un mese) sarebbe piu'
sicuro anche se piu' complicato da scrivere anche per me.
-- 
Ciao
Andrea Malfatti

 ha scritto nel messaggio
news:3d8c24a3....@powernews.inwind.it...

Come da tua richiesta Roberto e Maurizio ti hanno risposto come fare per
avere un messaggio il giorno 1 di ogni mese. Ma se il giorno 1 è un festivo
o non viene aperto il programma?
In questo caso mi verrebbe in mente di utilizzare una tabellina con un campo
Data dove viene salvata la data dell'ultimo utilizzo del programma. Se
all'apertura Month(Date()) è <> da Month(CampoDataTabellaAppoggio) allora mi
spara il messaggio.
Se proprio vuoi fare il precisino usi un campo di Tipo Si/No e con una
maschera di appoggio, dopo aver fatto le opportune verifiche sulla data,
chiedi se si vuole visualizzare ancora il messaggio del salvataggio.
Fabio

 sicuro anche se piu' complicato da scrivere anche per me.
Potrebbe essere una cosa del tipo:
if left(format(date(),"dddd"),3) = "lun" and day(date())<=7 then
    msgbox("E' il primo lunedě del mese, fai il backup!!!")
endif
In teoria dovrebbe funzionare
Fabio


Ho una domanda seria da farti e la cosa mi sembra strana : 
se invece di :
 left(format(date(),"dddd"),3) = "lun"
scrivessi
format(date(),"ddd") = "lun"
non andrebbe bene lo stesso?
Va bene anche una risposta booleana ( poi faccio su un altro post per
chiederti perchč :-)  )
Ciao, grazie.
Ciao. Fabrizio

 chiederti perchè :-)  )
"Non lo so" ti sembra abbastanza booleana come risposta?
Nella composizione del formato si può usare:
"d" sta per giorno (ad esempio '1')
"dd" sta per giorno a due cifre ('01')
"dddd" indica in nome del giorno ('lunedi')
Ma "ddd" non ho idea quindi piuttosto che provare sono andato sul sicuro con
left.
Ciao, FABIO


 Grazie.
Ciao. Fabrizio

 ha scritto nel messaggio
news:uRGi9.20806$Av4.3...@twister2.libero.it...

Senza impazzire tanto allora è meglio far gestire il backup alle Operazioni
pianificate di Windows, lasciando in pace Access che è nato per altre cose.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

cut
Per correttezza ti riporto un post di Borrelli che su Format mi faceva
una precisazione molto istruttiva :
"Format([tblCalendario].[Data],'ddd')="dom"
ma questo metodo e' "localizzato". Cioe' funziona solo per la lingua
italiana. Meglio usare la funzione WeekDay:
        WeekDay([tblCalendario].[Data])=1"
Ciao. Fabrizio

End Sub
e incredibile, ho sempre a mente la strada + complicata?
e che sono abituato a fare confronti anche tra stringhe o date e
conosco ancora poco tutte le varie funzioni di access!
grazie ad entrambi, funziona perfettamente!
ciao
-g-

 ha scritto nel messaggio
news:amfdav$5gq8v$1...@ID-149957.news.dfncis.de...

Potresti eseguire il controllo ogni primo lunedě del mese in questo modo
If Day(Date())<=7 AND WeekDay(Date(),vbMonday)=1 then
   MsgBox "Fai il backup"
End if
Maa.. se quel lunedě č la festa del Santo patrono ??? Il controllo sulla
data non č la strada giusta.
Ciao Giorgio.