problema con campo DATA vuoto

[Artack]

Salve,
ho un problema con l'inserimento di un record campo Data vuoto.

la query SQL per l'aggiornamento dei dati è:

SQL = " UPDATE contratti Set data1 = #"& data1 &"#, importoassegno1 = '" & importoassegno1 & "', assegnonote1 = '" & assegnonote1a & "', data2 = #"& data2 &"#, importoassegno2 = '" & importoassegno2 & "', assegnonote2 = '" & assegnonote2 & "', data3 = #"& data3 &"#, importoassegno3 = '" & importoassegno3 & "', assegnonote3 = '" & assegnonote3 & "', data4 = #"& data4 &"#, importoassegno4 = '" & importoassegno4 & "', assegnonote4 = '" & assegnonote4 & "' WHERE idcontratto = " & idcontratto

il problema è quando non inserisco niente in tutti o in uno dei campi data1, data2, data3, data4,

mi da il seguente errore:

Microsoft JET Database Engineerror '80040e07'
Syntax error in date in query expression '##'.

Come faccio a risolvere questo problema?
Grazie

[Vincent.Zeno]

se non ci sono date da inserire inserisci NULL, in un campo di tipo data il valore "vuoto" con è contemplato
oppure escludi il capo dalla query

[Artack]

Se escludo il campo dalla query non potrò aggiornarlo successivamente.

i campi vengono prelevati così

importoassegno4 = Replace(w_importoassegno4, ".", ",")	data4 = w_data4
	assegnonote4 = Replace(w_assegnonote4, "'", "''")

Ho provato a far inserire NULL se il campo è vuoto

if w_data4 = "" then	data4 = Null
	else 
	data4 = w_data4
	End if

però mi da lo stesso errore.

se invece faccio così

if w_data4 = "" then	data4 = "Null"
	else 
	data4 = w_data4
	End if

mi da questo errore:

Microsoft JET Database Engineerror '80040e07'
Syntax error in date in query expression '#Null#'.

[Vincent.Zeno]

quando inserisci null devi modificare anche la variabile da inserire, quindi conviene creare un query dinamica:

esempio pratico, dovrebbe essere abbastanza chiaro

' costruisci la tua query e completala così: 
If w_data4 <>"" Then
    SQL = SQL + "  campodata4=#"&w_data4&"#, "
Else
    SQL = SQL + " campodata4=NULL ,"
End If

occhi all'ultimo campo che inserisci: rimuovi la virgola finale

[optime]

occhi all'ultimo campo che inserisci: rimuovi la virgola finale

basta metterla prima che dopo

[Artack]

Funziona!!!

Grazie Vincent.Zeno !!!

Ho creato la query per ogni campo data così:

If w_datass4 <> "" Then    datass4 = " datass4=#"& w_datass4 &"#, "
	Else
    datass4 = " datass4=NULL ,"
	End If

ed ho richiamato la variabile (ho tolto la virgola perchè altrimenti dava errore):

SQL = " UPDATE contratti Set data1 = #"& data1 &"#, importoassegno1 = '" & importoassegno1 & "', assegnonote1 = '" & assegnonote1a & "', "& data2 &" importoassegno2 = '" & importoassegno2 & "', assegnonote2 = '" & assegnonote2 & "', "& data3 &" importoassegno3 = '" & importoassegno3 & "', assegnonote3 = '" & assegnonote3 & "', "& data4 &" importoassegno4 = '" & importoassegno4 & "', assegnonote4 = '" & assegnonote4 & "' idcontratto = " & idcontratto

Grazie