Newsgroup: it.comp.appl.access
Titolo: data che inverte GG con MM

Ho il seguente codice sull,evento Prima di aggiornare, di una casella di
testo "nuovaData" di un Form che viene dalla 
Tabella DateRegistrate       ID - Chiave Primaria, DATEREG  - Data/ora:
If IsNull(DLookup("[DataReg]", "DateRegistrate", "[Datareg]= #" &
Me.NuovaData & "#")) Then
'ok
Else
MsgBox "ERRORE DI DATA! " _
& Chr$(13) & Chr$(13) & "LA DATA " & Me.NuovaData & " CHE HAI APPENA
DIGITATO E' GIA' COMPRESA NEL DATABASE ....." _
& Chr$(13) & Chr$(13) & "VERIFICA!", vbCritical, "Data già presente."
DoCmd.CancelEvent
SendKeys "{ESC}"
End If
Inserisco le seguenti Date:
01/02/2005
(tutto OK)
01/02/2005
(Non parte il messaggio di Errore)
02/01/2005
(Parte il Messaggio di Errore) ...e non dovrebbe!
Ovvero inverte giorno col mese!
Ho controllato.... ma boh!
Chi mi aiuta
Grazie
Claudia
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Claudia M ha scritto:





Format(NuovaData;"gg/mm/aaaa") in un campo 
Format(NuovaData,"dd/mm/yyyy") in un codice
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.


 Claudia M ha scritto:






.anche utilizzando Format, è uguale (avevo già provato)
Claudia
cmq Grazie
-- 


 Claudia M ha scritto:






.anche utilizzando Format, è uguale (avevo già provato)
Claudia
cmq Grazie
-- 
questo articolo e` stato inviato via web dal servizio gratuito 


 cmq Grazie
-- 
Ciao
Pablitomf (Maurizio Facciuti)
Access : Ver.97 - 2K
----------------------------------
http://www.accessgroup.it/
http://www.sitocomune.com/
----------------------------------
Non mi fido molto delle statistiche, perchè un uomo con la testa nel forno
acceso e i piedi nel congelatore statisticamente ha una temperatura media.
questo articolo e` stato inviato via web dal servizio gratuito 


 > cmq Grazie
Mi dice che la Data (es. 10/01/2005) è stata già inserita
perche trova in tabella la Data 01/10/2005,
malgrado tutte le formattazioni di date siano "Short Date"
Ho risolto ponendo format(me.nuovadata, "mm/dd/yyyy")
Ma non capisco dove è il problema!!!
Grazie 
Claudia
-- 


 Claudia
-- 
Roberto
-----------------------------------------------------
il Sito Comune di it.comp.appl.access
http://www.sitocomune.com
----------------------------------------------------

 > Claudia
FIUUUU!
Ma allora non č il mio computer che "sfarfalla"....
Grazie anche a te Roberto


 Grazie anche a te Roberto
Prego


 ha scritto nel messaggio
news:d042k5$9e2$1...@news.newsland.it...

Ciao Claudia,
prova a passare la data o nel formato inglese o internazionale, è
sicuramente l'ingihppo:
If IsNull(DLookup("[DataReg]", "DateRegistrate", "[Datareg]= #" &
 format(Me.NuovaData,"mm/gg/aaaa")& "#")) Then
oppure
If IsNull(DLookup("[DataReg]", "DateRegistrate", "[Datareg]= #" &
 format(Me.NuovaData,"aaaa/mm/gg")& "#")) Then
Ciao

 ha scritto nel messaggio
news:d044hf$iti$1...@news.newsland.it...

Ciao Claudia : e così che succede :
If Dcount("[DataReg]", "DateRegistrate", "[Datareg]= #" &
 format(Me.NuovaData,"mm/gg/aaaa")& "#"))>=1 Then


 prova a passare la data o nel formato inglese
No formato inglese, ma formato americano: il formato inglese è uguale al
nostro ovvero dd/mm/aaaa.
[CUT]


 ha scritto nel messaggio
news:d044p5$iiu$1...@balena.cs.interbusiness.it...

Penso che tu volessi dire:
If Dcount("[DataReg]", "DateRegistrate", "[Datareg]= #" & _
 format(Me.NuovaData,"mm/dd/yyyy") & "#"))>=1 Then
-- 
