codice:
sql = "INSERT INTO editoria"
sql = sql & " ("
Sql = sql & "codice,"
sql = sql & "codiceprodotto,"
sql = sql & "titolo,"
sql = sql & "sottotitolo,"
sql = sql & "autori,"
sql = sql & "categoria,"
sql = sql & "area1,"
sql = sql & "area2,"
sql = sql & "area3,"
sql = sql & "area4,"
sql = sql & "collana,"
sql = sql & "a_cura,"
sql = sql & "anno,"
sql = sql & "edizione,"
sql = sql & "pagine,"
sql = sql & "editore,"
sql = sql & "foto,"
sql = sql & "prezzo,"
sql = sql & "sconto,"
sql = sql & "totale,"
sql = sql & "offerta,"
sql = sql & "novita,"
sql = sql & "descrizione,"
sql = sql & "priorita"
If offerta_scadenza <> "" Then
sql = sql & ",offerta_scadenza"
Else
sql = sql & ""
End If
If novita_scadenza <> "" Then
sql = sql & ",novita_scadenza"
Else
sql = sql & ""
End If
sql = sql & ")"
sql = sql & " VALUES ("
sql = sql & "" & code & ","
sql = sql & "'" & codiceprodotto & "',"
sql = sql & "'" & titolo & "',"
sql = sql & "'" & sottotitolo & "',"
sql = sql & "'" & autori & "',"
sql = sql & "'" & categoria & "',"
sql = sql & "'" & area1 & "',"
sql = sql & "'" & area2 & "',"
sql = sql & "'" & area3 & "',"
sql = sql & "'" & area4 & "',"
sql = sql & "'" & collana & "',"
sql = sql & "'" & a_cura & "',"
sql = sql & "'" & anno & "',"
sql = sql & "'" & edizione & "',"
sql = sql & "'" & pagine & "',"
sql = sql & "'" & editore & "',"
sql = sql & "'" & foto & "',"
sql = sql & "'" & prezzo & "',"
sql = sql & "'" & sconto & "',"
sql = sql & "'" & totale & "',"
sql = sql & "'" & offerta & "',"
sql = sql & "'" & novita & "',"
sql = sql & "'" & descrizione & "',"
sql = sql & "" & priorita & ""
If offerta_scadenza <> "" Then
sql = sql & "," & offerta_scadenza & " "
Else
sql = sql & ""
End If
If novita_scadenza <> "" Then
sql = sql & "," & novita_scadenza & " "
Else
sql = sql & ""
End If
sql = sql & ")"
Conn.Execute(sql)
Allora il form passa correttamente senza data (entrambe).