Fejl ved manglende dato ved Submit

strUpdate = "Update Corp SET "
strUpdate = strUpdate & "CorpName= '" & Request.Form("CorpNameField") & "', "
strUpdate = strUpdate & "CorpDateFounded= '" & Request.Form("CorpDateFoundedField") & "', "
strUpdate = strUpdate & "CorpAccountingYear= '" & Request.Form("CorpAccountingYearField") & "', "
strUpdate = strUpdate & "CorpLastGeneralMeeting= '" & Request.Form("CorpLastGeneralMeetingField") & "', "
strUpdate = strUpdate & "CorpCountry= '" & Request.Form("CorpCountryField") & "', "
strUpdate = strUpdate & "LastChangedInitials= '" & Session("UserName") & "', "
strUpdate = strUpdate & "LastChangeDate= Now() "
strUpdate = strUpdate & " Where CorpNo = " & Request.Querystring("id")
' SQL sætning eksekveres
Set rsUpdate = Conn.Execute(strUpdate)

Sådan?

//>Rune

Hov, sådan:

strUpdate = "Update Corp SET "
strUpdate = strUpdate & "CorpName= '" & Request.Form("CorpNameField") & "', "
strUpdate = strUpdate & "CorpDateFounded= '" & Request.Form("CorpDateFoundedField") & "', "
strUpdate = strUpdate & "CorpAccountingYear= Date(), "
strUpdate = strUpdate & "CorpLastGeneralMeeting= '" & Request.Form("CorpLastGeneralMeetingField") & "', "
strUpdate = strUpdate & "CorpCountry= '" & Request.Form("CorpCountryField") & "', "
strUpdate = strUpdate & "LastChangedInitials= '" & Session("UserName") & "', "
strUpdate = strUpdate & "LastChangeDate= Now() "
strUpdate = strUpdate & " Where CorpNo = " & Request.Querystring("id")
' SQL sætning eksekveres
Set rsUpdate = Conn.Execute(strUpdate)

//>Rune

Undskyld at jeg var lidt upræcis...
LastChangeDate virker allerede med ...LastChangeDate= '" & Now & "' "...

Problemet er CorpDateFounded og CorpLastGeneralMeeting, som begge er defineret som date/time-felter i DB, men den vil ikke æde at felterne er blanke..

Ellers tak for den hurtige respons... Håber at du kan hjælpe!?!

Prøv sådan her så:

strUpdate = "Update Corp SET "
strUpdate = strUpdate & "CorpName= '" & Request.Form("CorpNameField") & "', "
strUpdate = strUpdate & "CorpDateFounded= '" & If Len(Request.Form("CorpDateFoundedField")) = 0 Then Response.Write("00-00-00") & "', "
strUpdate = strUpdate & "CorpAccountingYear= '" & Request.Form("CorpAccountingYearField") & "', "
strUpdate = strUpdate & "CorpLastGeneralMeeting= '" & If Len(Request.Form("CorpLastGeneralMeetingField")) = 0 Then Response.Write("00-00-00") & "', "
strUpdate = strUpdate & "CorpCountry= '" & Request.Form("CorpCountryField") & "', "
strUpdate = strUpdate & "LastChangedInitials= '" & Session("UserName") & "', "
strUpdate = strUpdate & "LastChangeDate= '" & Now & "' "
strUpdate = strUpdate & " Where CorpNo = " & Request.Querystring("id")
' SQL sætning eksekveres
Set rsUpdate = Conn.Execute(strUpdate)

//>Rune

Hmm.... Databasen tolker tilsyneladende "00-00-00" som Null eller ???? for det virker ikke... Dog virker det, hvis jeg f.eks. skriver "01-02-03"(altså en gyldig dato)... Men det vil jeg helst undgå.. Det skal være tydeligt for brugeren at datoen ikke er udfyldt korrekt... What to do???

Hvis du vil slette indholdet eller sætte det til blank for kolonnen så skal du bruge NULL det lidt være besværligt (dog på ingen måde svært) med koden da NULL ikke skal havde ' omkring så prøv dette:


if Request.Form("CorpDateFoundedField") = "" then
  strCorpDateFounded = "NULL"
else
  strCorpDateFounded = "'" & Request.Form("CorpDateFoundedField") & "'"
end if
if Request.Form("CorpLastGeneralMeetingField") = "" then
  strCorpLastGeneralMeeting = "NULL"
else
  strCorpLastGeneralMeeting = "'" & Request.Form("CorpLastGeneralMeetingField") & "'"
end if


strUpdate = "Update Corp SET "
strUpdate = strUpdate & "CorpName= '" & Request.Form("CorpNameField") & "', "
strUpdate = strUpdate & "CorpDateFounded= " & strCorpDateFounded & ", "
strUpdate = strUpdate & "CorpAccountingYear= '" & Request.Form("CorpAccountingYearField") & "', "
strUpdate = strUpdate & "CorpLastGeneralMeeting= " & strCorpLastGeneralMeeting & ", "
strUpdate = strUpdate & "CorpCountry= '" & Request.Form("CorpCountryField") & "', "
strUpdate = strUpdate & "LastChangedInitials= '" & Session("UserName") & "', "
strUpdate = strUpdate & "LastChangeDate= '" & Now & "' "
strUpdate = strUpdate & " Where CorpNo = " & Request.Querystring("id")
' SQL sætning eksekveres
Set rsUpdate = Conn.Execute(strUpdate)

>> medions - tak for at lede mig på rette vej

>> eagleeye - tak for at levere en copy/paste-løsning, der bare virker 100%

;o)

/U.K.