Campo data vuoto? Non vai avanti!

[[trodat]]

Ciao...

ho un campo DATA in una tbl access... dovrei avvisare l'utente tramite una finestra di alert quando questo campo non contiene valori... ho scritto così ma il controllo non funziona:

 strSQL = "SELECT * FROM ListFiles WHERE UploadID="&cod
Set strREC=ConnDown.Execute(strSQL)

Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

strREC.MoveFirst 
DO WHILE NOT strREC.EOF 

IF strREC("DATA_PRELIEVO") = "" then %>
                
<script language="javascript">
alert("Attenzione: errore nel camnpo data!")
</script>
               <%
               
               data = ConvertiData(CStr(strREC("data_prelievo"))) 
               
                end if

Dov'è l'errore? :master:

[X_Gold*]

errore ?

[[trodat]]

Originariamente inviato da X_Gold*
errore ?

nessun errore solo va avanti anche con il campo data vuoto... ho provato a scrivere così:

strSQL = "SELECT * FROM ListFiles WHERE UploadID="&cod
Set strREC=ConnDown.Execute(strSQL)

Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

strREC.MoveFirst 
DO WHILE NOT strREC.EOF 

data = ConvertiData(CStr(strREC("data_prelievo"))) 

if data = "" then %>
                
<script language="javascript">
alert("Attenzione: il contenuto di acqua del trasformatore selezionato è superiore al 90° Percentile")
</script>
               <%
                           
               
                end if

ma restituisce:

Error Type:
Microsoft VBScript runtime (0x800A005E)
Utilizzo non valido di Null.: 'CStr'

su questa riga:

data = ConvertiData(CStr(strREC("data_prelievo")))

[Sypher]

così?

If IsNull(strREC("data_prelievo")) then ...

[[trodat]]

Originariamente inviato da Sypher
così?

If IsNull(strREC("data_prelievo")) then ...

niente da fare non va...

If IsNull(strREC("data_prelievo")) then  %>
                
<script language="javascript">
alert("Attenzione!")
</script>
               <%
                       data = ConvertiData(CStr(strREC("data_prelievo")))     
               
                end if

[Sypher]

mmm...ma così che ti stampa a video?

strSQL = "SELECT * FROM ListFiles WHERE UploadID="&cod
Set strREC=ConnDown.Execute(strSQL)

Function ConvertiData(data)
    giorno = Mid(data, InStr(1, data, "/") + 1, InStrRev(data, "/") - InStr(1, data, "/") - 1)
    mese = Left(data, InStr(1, data, "/") - 1)
    anno = Right(data, Len(data) - InStrRev(data, "/"))
    ConvertiData = giorno & "/" & mese & "/" & anno
End Function

strREC.MoveFirst 
DO WHILE NOT strREC.EOF 

Response.Write("-" & strREC("data_prelievo") & "-")
Response.End 
data = ConvertiData(CStr(strREC("data_prelievo"))) 

if data = "" then %>
                
<script language="javascript">
alert("Attenzione: il contenuto di acqua del trasformatore selezionato è superiore al 90° Percentile")
</script>
               <%
                           
               
                end if

[[trodat]]

stampa questo

--

[[trodat]]

bè mi pare normale che non stampi nulla il campo data è vuoto... come posso risolvere????

[Sypher]

Originariamente inviato da [trodat]
bè mi pare normale che non stampi nulla il campo data è vuoto... come posso risolvere????

esatto volevo solo accertarmene! infatti è strano che il controllo campo = "" non funziona...non so più che dirti!
ultima prova ma non credo risolva un piffero mettici una trim

if Trim(strREC("data_prelievo")) = "" then ...

oppure prova na cosa del genere

data = "|" & strREC("data_prelievo")) & "|"
if data = "||" then ...

ehm non ho più idee...

[Jupy64]

Originariamente inviato da [trodat]
bè mi pare normale che non stampi nulla il campo data è vuoto... come posso risolvere????

ciao, usa la funzione: IsDate(strREC("data_prelievo"))
se è una data restituisce true , altrimenti false