Null værdi indsættes i dato felt i access database - hvordan

Du udelader bare dato feltet fra din SQL, så bliver dato feltet tomt i database.

Ja men nu har jeg 5 dato felter som enten kan være tomme eller ikke !
Så jeg skal lave 5x4x3x2x1 forskellige SQL sætninger.

Nej det må da kunne lade sig gøre som fx. med tal felter hvor man kan indsætte Null så er feltet tomt

Man kan ikke bruge NULL eller "" til et datofelt så kommd der en fejl, man er nød til at udelade Dato feltet fra SQL-sætningen.

Du kan lave det med 5 if sætninger som så bygger SQL-sætningen op i nogle strenge:

kolDato = ""
dataDato = ""

dato1 = request.form("dato1")
dato2 = request.form("dato2")
dato3 = request.form("dato3")
dato4 = request.form("dato4")
dato5 = request.form("dato5")

if dato1 <> "" then
  kolDato = kolDato & ", datoFelt1"
  dataDato = dataDato & ", #" & dato1 & "#"
end if
if dato2 <> "" then
  kolDato = kolDato & ", datoFelt2"
  dataDato = dataDato & ", #" & dato2 & "#"
end if
..
..
if dato5 <> "" then
  kolDato = kolDato & ", datoFelt5"
  dataDato = dataDato & ", #" & dato5 & "#"
end if

'Lav SQL sætning her:
SQLstmt = "INSERT INTO tabel (kolonne" & kolDato & ") VALUES ('data til kolonne'" & dataDato & ")"

Conn.execute (SQLstmt)

(Jeg regnede det selv ud - men lave et svar så for du point for din løsning som givetvis vil virke med jeg har lavet det således.
Jo det kan man faktisk godt - se her

Først samles det som man indtaster (jeg har valgt at man indtaster dato i 3 felter - chkstgring søger for at 1 bliver til 01 osv)

' Henter og formatere indtastning
ny_ddborn  = ChkString(Request("ddborn"),"dato")
ny_mmborn  = ChkString(Request("mmborn"),"dato")
ny_aaborn  = ChkString(Request("aaborn"),"dato")
' samler indtastning
ny_born    = ny_ddborn & "-" & ny_mmborn & "-" & ny_aaborn
' Checker for om indtastning er valid
if IsDate(ny_born) then
  ny_born = "'" & ny_born & "'"
else
ny_born = "Null"           
end if

Læg mærker til at hvis det er en valid dato sætter jeg '' om variabel ellers sættes den til Null

Nu kan man
SQLstmt = "INSERT INTO Hovedtabel (DatoTom,) VALUES (" & ny_born & ")"
Conn.Execute (SQLstmt)

uden at få en fejl for Null skal indsættes uden '' mens dato skal indsættes med ''.

Ok så lærte jeg også noget :)