Newsgroup: it.comp.appl.access
Titolo: accettare data solo se del mese corrente

Ciao a tutti coloro che lavorano ancora con questo calduccio......
Dunque, in un campo data dovrei limitare l'inserimento solo a una data del 
mese corrente.
Cio�, siamo a luglio,
se inserisco 12/07/09 ok
se inserisco 30/06/09 mi dovrebbe essere segnalato con un msg (FUORI PERIODO 
IVA CORRENTE)
"now" limita al giorno corrente, vorrei qualcosa di pi� elastico nel periodo 
del mese senza dover ogni mese cambiare manualmente il periodo usando 
Between.
Ho possibilit�?
Grazie
-- 
Giorgia 

 Giorgia
Prova questo:
sub CampoData_lostfocus()
if month(CampoData)<>month(date()) then msgbox "Data fuori periodo"
end sub
Alberto Morelli

 
if month(tuadata)=month(int(now())) and year(tuadata)=year(int(now())) then
...quello che vuoi
else
	msgbox "data non valida"
end if
ciao, BFS

 Giorgia
Prova questo:
sub CampoData_lostfocus()
if month(CampoData)<>month(date()) then msgbox "Data fuori periodo"
end sub
Alberto Morelli
grazie Alberto, perfetto!
-- 
Giorgia 

 ciao, BFS
Grazie BFS, ma ero un po' in difficolt� su cosa inserire dopo il Then.
Usando il <> ho invece risolto, su suggerimento di Alberto.
Grazie per la risposta comunque!
-- 
Giorgia 

 ha scritto nel messaggio 
news:h4sidp$dd9$1...@aioe.org...

Occhio per� che col suggerimento di Alberto ti accetta anni differenti
dalla data del giorno.
Per es.: 30/07/08
Bye :o) 

 
devi controllare anche l'anno o crei un bug colossale
ciao
bfs

 
visto che parli di "fuori periodo iva corrente" sicura che il blocco che 
metti abbia senso?
perchï¿œ non potrei in agosto inserire un movimento iva di luglio? finchï¿œ 
non hai chiuso la liquidazione di luglio  dovresti lasciare 
all'operatore piena autonomia.
Una volta fatta la liquidazione e relative scritture contabili blocchi 
il mese.
ovviamente a mio modesto parere
ciao, BFS

 ciao, BFS
Parere modesto ma corretto!
Non ho specificato che il campo data REGISTRAZIONE IVA viene popolato in 
automatico dal campo DATA FATTURA secondo questa istruzione:
Private Sub DATA_FATTURA_BeforeUpdate(Cancel As Integer)
If IsNull([REGISTRAZIONE IVA]) Then
[REGISTRAZIONE IVA] = [DATA FATTURA]
End If
End Sub
Quindi se per es oggi  registro una fattura datata 30/06/2009, a mio avviso 
� utile che mi venga segnalato che � una fattura del mese scorso ma che 
dev'essere inserita nel registro Iva di Luglio.
E' sottointeso che il registro Iva di giugno sia chiuso.
Grazie, controllo l'anno....
Ciao!
-- 
Giorgia 


Giusto basta aggiungere l'anno
if month(CampoData)<>month(date())    and  year(CampoData)<>year(date
())    then msgbox "Data fuori periodo"
Saluti
Alberto

 - Mostra testo citato -
Nell'evento prima di aggiornare del tuo controllo
Private Sub CampoData_BeforeUpdate(Cancel As Integer)
If Month(CampoData) <> Month(Date) Or Year(CampoData) <> Year(Date)
Then
MsgBox "Data fuori periodo"
Cancel = True
End If
End Sub

 
ok avevo frainteso l'oggetto del post  "accettare data solo se del mese 
corrente"
ciao!
BFS

 Alberto Morelli
Giusto basta aggiungere l'anno
if month(CampoData)<>month(date())    and  year(CampoData)<>year(date
())    then msgbox "Data fuori periodo"
Saluti
Alberto
Scusami Alberto segnalo solo che per funzionare correttamente ho dovuto 
usare OR e non AND.
Grazie ancora per l'aiuto.
Buona giornata
-- 
Giorgia 

 
con or basta che sia soddisfatta una delle due perchï¿œ ti dica fuori 
periodo..quindi non va bene
ï¿œ corretto AND....devono essere soddisfatte entrambe
ciao
BFS

 BFS
No guarda che avendo usato il diverso � fuori periodo quando una delle due 
condizioni � vera, cio� o � sbagliato il mese o � sbagliato l'anno. Nel caso 
opposto la condizione fuori periodo sarebbe stata nell'else e forse non le 
serviva.
Ciao, Valerio.

 ha scritto nel messaggio 
news:4a72affc$1...@news.telnetwork.it...

Non litigate :o))
In questo caso, ovvero il caso di esclusione, vanno bene entrambi i metodi.
Diverso � se il caso era di inclusione, allora ci vuole necessariamente l' 
AND.
L'importante � che ci sia il doppio controllo.
Bye :o)


e vi confermo che con AND non funzionava la parte della verifica dell'anno.
Cio� se a oggi inserivo la data 31/07/08, il msg d'errore non appariva.
Funzionava solo la parte del mese, cio� se inserivo oggi la data 30/06/09.
Ciao!
-- 
Giorgia

 ha scritto nel messaggio 
news:h4uu1e$tlk$1...@aioe.org...

Hai ragione, stiamo facendo un casino per nulla.
In sostanza sono buone queste :
If Month(Tuadata) = Month(Date) And Year(Tuadata) = Year(Date)  Then
    Msgbox "Data Accettata"
End If
Oppure
If  Month(Tuadata) <>  Month(Date) Or Year(Tuadata) <> Year(Date)  Then
    Msgbox "Data NON Accettata"
End If
... a seconda del controllo che si vuole fare.
Bye :o) 

 - Mostra testo citato -
RAgazzi scusatemi...volevo solo sapere se riuscite a leggermi.
Sono intervenuto nella discussione proponendo questo codice:
Nell'evento prima di aggiornare del tuo controllo
Private Sub CampoData_BeforeUpdate(Cancel As Integer)
If Month(CampoData) <> Month(Date) Or Year(CampoData) <> Year(Date)
Then
MsgBox "Data fuori periodo"
Cancel = True
End If
End Sub
ma non ho avuto riscontro.
Grazie e buona giornata a tutti