For Programmers: Free Programming Magazines  


Home > Archive > ASP > February 2005 > Another checkbox manipulation question









You are viewing an archived Text-only version of the thread. To view this thread in it's original format and/or if you want to reply to this thread please [click here]

 

Author Another checkbox manipulation question
Jack

2005-02-25, 3:56 pm

<i><input type="checkbox" name="chk_Complete" value="TRUE" <%Response.Write
l_IsChecked%>"<%if cbool(l_IsChecked) then Response.Write " checked" Else
Response.Write " unchecked"%>>

The above code shows a checkbox on a asp form where the checkbox value is
stored and retrived from a field in an
Access database.

When the checkbox is unchecked, for some reason, the value of checkbox shows
null value instead of showing False
(This is the sql processing and database update asp page)

I would like to force this value to be false in the event the
(Request.Form("chk_Complete") value is null.

The following is the code to force False value in the above field. However,
the value is stil null. Any
help is appreciated. The variable output and the sql generated for unchecked
and checked cases are also shown.




if CBool(Request.Form("chk_Complete")) = "" Then
Cbool(Request.Form("chk_Complete")) = "False"
end if
l_f_IsChecked = (Request.Form("chk_Complete"))
CASE: CHECKBOX UNCHECKED

START CHECK COMPLETE

THE END
StartCheckBox

EndCheckbox

UPDATE tblGMISExpenditures_Quarter SET
tblGMISExpenditures_Quarter.CurrentOutlay= '$550.00' ,
tblGMISExpenditures_Quarter.LocalShare= '$100.50' ,
tblGMISExpenditures_Quarter.MBCCShare= '449.5' ,
tblGMISExpenditures_Quarter.UnpaidOblig= '$250.00' ,
tblGMISExpenditures_Quarter.LocalShareUnpaidOblig= '$35.35' ,
tblGMISExpenditures_Quarter.ProjectIncome= '$100.00' ,
tblGMISExpenditures_Quarter.ForfeitureIncome= '$200.00' ,
tblGMISExpenditures_Quarter.OtherExpense= '$30.00' ,
tblGMISExpenditures_Quarter.ForfeitureExpense= '$40.00' ,
tblGMISExpenditures_Quarter.InterestReceived= '$20.00' ,
tblGMISExpenditures_Quarter.TotalPeriodOutlay= '4568.39' ,
tblGMISExpenditures_Quarter.Remarks= 'Testing GWIS' ,
tblGMISExpenditures_Quarter.Name= 'Jack Jones' ,
tblGMISExpenditures_Quarter.Title= 'Manager' ,
tblGMISExpenditures_Quarter.AreaCode= '111' ,
tblGMISExpenditures_Quarter.Phone1= '111' ,
tblGMISExpenditures_Quarter.Phone2= '8762' ,
tblGMISExpenditures_Quarter.Date= '1/11/2005' ,
tblGMISExpenditures_Quarter.IsChecked= where
tblGMISExpenditures_Quarter.SubgrantIntID = 4836;

CASE: CHECK BOX CHECKED

START CHECK COMPLETE
TRUE
THE END
StartCheckBox
TRUE
EndCheckbox

UPDATE tblGMISExpenditures_Quarter SET
tblGMISExpenditures_Quarter.CurrentOutlay= '$550.00' ,
tblGMISExpenditures_Quarter.LocalShare= '$100.50' ,
tblGMISExpenditures_Quarter.MBCCShare= '449.5' ,
tblGMISExpenditures_Quarter.UnpaidOblig= '$250.00' ,
tblGMISExpenditures_Quarter.LocalShareUnpaidOblig= '$35.35' ,
tblGMISExpenditures_Quarter.ProjectIncome= '$100.00' ,
tblGMISExpenditures_Quarter.ForfeitureIncome= '$200.00' ,
tblGMISExpenditures_Quarter.OtherExpense= '$30.00' ,
tblGMISExpenditures_Quarter.ForfeitureExpense= '$40.00' ,
tblGMISExpenditures_Quarter.InterestReceived= '$20.00' ,
tblGMISExpenditures_Quarter.TotalPeriodOutlay= '4568.39' ,
tblGMISExpenditures_Quarter.Remarks= 'Testing GWIS' ,
tblGMISExpenditures_Quarter.Name= 'Jack Jones' ,
tblGMISExpenditures_Quarter.Title= 'Manager' ,
tblGMISExpenditures_Quarter.AreaCode= '111' ,
tblGMISExpenditures_Quarter.Phone1= '111' ,
tblGMISExpenditures_Quarter.Phone2= '8762' ,
tblGMISExpenditures_Quarter.Date= '1/11/2005' ,
tblGMISExpenditures_Quarter.IsChecked= TRUE where
tblGMISExpenditures_Quarter.SubgrantIntID = 4836;
Mark Schupp

2005-02-25, 3:56 pm

When the checkbox is unchecked the value is not sent in the form.
Try something like this;

<input type="checkbox" name="chk_Complete" value="TRUE"
<%if cbool(l_IsChecked) then Response.Write " checked" %>>

and

If Trim(Request.Form("chk_Complete")) = "TRUE" Then
l_f_IsChecked = "TRUE"
Else
l_f_IsChecked = "FALSE"
End If

I'd also suggest using boolean values instead of tossing CBool in
everywhere.

<input type="checkbox" name="chk_Complete" value="TRUE"
<%if l_IsChecked then Response.Write " checked" %>>

and

If Trim(Request.Form("chk_Complete")) = "TRUE" Then
l_f_IsChecked = True
Else
l_f_IsChecked = True
End If

--
Mark Schupp
Head of Development
Integrity eLearning
www.ielearning.com


"Jack" <Jack@discussions.microsoft.com> wrote in message
news:9D83D6FA-B55E-4A7F-A12D-35C52CC7EECF@microsoft.com...
> <i><input type="checkbox" name="chk_Complete" value="TRUE"
<%Response.Write
> l_IsChecked%>"<%if cbool(l_IsChecked) then Response.Write " checked" Else
> Response.Write " unchecked"%>>
>
> The above code shows a checkbox on a asp form where the checkbox value is
> stored and retrived from a field in an
> Access database.
>
> When the checkbox is unchecked, for some reason, the value of checkbox
shows
> null value instead of showing False
> (This is the sql processing and database update asp page)
>
> I would like to force this value to be false in the event the
> (Request.Form("chk_Complete") value is null.
>
> The following is the code to force False value in the above field.
However,
> the value is stil null. Any
> help is appreciated. The variable output and the sql generated for
unchecked
> and checked cases are also shown.
>
>
>
>
> if CBool(Request.Form("chk_Complete")) = "" Then
> Cbool(Request.Form("chk_Complete")) = "False"
> end if
> l_f_IsChecked = (Request.Form("chk_Complete"))
> CASE: CHECKBOX UNCHECKED
>
> START CHECK COMPLETE
>
> THE END
> StartCheckBox
>
> EndCheckbox
>
> UPDATE tblGMISExpenditures_Quarter SET
> tblGMISExpenditures_Quarter.CurrentOutlay= '$550.00' ,
> tblGMISExpenditures_Quarter.LocalShare= '$100.50' ,
> tblGMISExpenditures_Quarter.MBCCShare= '449.5' ,
> tblGMISExpenditures_Quarter.UnpaidOblig= '$250.00' ,
> tblGMISExpenditures_Quarter.LocalShareUnpaidOblig= '$35.35' ,
> tblGMISExpenditures_Quarter.ProjectIncome= '$100.00' ,
> tblGMISExpenditures_Quarter.ForfeitureIncome= '$200.00' ,
> tblGMISExpenditures_Quarter.OtherExpense= '$30.00' ,
> tblGMISExpenditures_Quarter.ForfeitureExpense= '$40.00' ,
> tblGMISExpenditures_Quarter.InterestReceived= '$20.00' ,
> tblGMISExpenditures_Quarter.TotalPeriodOutlay= '4568.39' ,
> tblGMISExpenditures_Quarter.Remarks= 'Testing GWIS' ,
> tblGMISExpenditures_Quarter.Name= 'Jack Jones' ,
> tblGMISExpenditures_Quarter.Title= 'Manager' ,
> tblGMISExpenditures_Quarter.AreaCode= '111' ,
> tblGMISExpenditures_Quarter.Phone1= '111' ,
> tblGMISExpenditures_Quarter.Phone2= '8762' ,
> tblGMISExpenditures_Quarter.Date= '1/11/2005' ,
> tblGMISExpenditures_Quarter.IsChecked= where
> tblGMISExpenditures_Quarter.SubgrantIntID = 4836;
>
> CASE: CHECK BOX CHECKED
>
> START CHECK COMPLETE
> TRUE
> THE END
> StartCheckBox
> TRUE
> EndCheckbox
>
> UPDATE tblGMISExpenditures_Quarter SET
> tblGMISExpenditures_Quarter.CurrentOutlay= '$550.00' ,
> tblGMISExpenditures_Quarter.LocalShare= '$100.50' ,
> tblGMISExpenditures_Quarter.MBCCShare= '449.5' ,
> tblGMISExpenditures_Quarter.UnpaidOblig= '$250.00' ,
> tblGMISExpenditures_Quarter.LocalShareUnpaidOblig= '$35.35' ,
> tblGMISExpenditures_Quarter.ProjectIncome= '$100.00' ,
> tblGMISExpenditures_Quarter.ForfeitureIncome= '$200.00' ,
> tblGMISExpenditures_Quarter.OtherExpense= '$30.00' ,
> tblGMISExpenditures_Quarter.ForfeitureExpense= '$40.00' ,
> tblGMISExpenditures_Quarter.InterestReceived= '$20.00' ,
> tblGMISExpenditures_Quarter.TotalPeriodOutlay= '4568.39' ,
> tblGMISExpenditures_Quarter.Remarks= 'Testing GWIS' ,
> tblGMISExpenditures_Quarter.Name= 'Jack Jones' ,
> tblGMISExpenditures_Quarter.Title= 'Manager' ,
> tblGMISExpenditures_Quarter.AreaCode= '111' ,
> tblGMISExpenditures_Quarter.Phone1= '111' ,
> tblGMISExpenditures_Quarter.Phone2= '8762' ,
> tblGMISExpenditures_Quarter.Date= '1/11/2005' ,
> tblGMISExpenditures_Quarter.IsChecked= TRUE where
> tblGMISExpenditures_Quarter.SubgrantIntID = 4836;


Jack

2005-02-25, 3:56 pm

I got help from Bob Barrows in an earlier posting about the checkbox and it
solved the problem. Thanks anyways.

"Jack" wrote:

> <i><input type="checkbox" name="chk_Complete" value="TRUE" <%Response.Write
> l_IsChecked%>"<%if cbool(l_IsChecked) then Response.Write " checked" Else
> Response.Write " unchecked"%>>
>
> The above code shows a checkbox on a asp form where the checkbox value is
> stored and retrived from a field in an
> Access database.
>
> When the checkbox is unchecked, for some reason, the value of checkbox shows
> null value instead of showing False
> (This is the sql processing and database update asp page)
>
> I would like to force this value to be false in the event the
> (Request.Form("chk_Complete") value is null.
>
> The following is the code to force False value in the above field. However,
> the value is stil null. Any
> help is appreciated. The variable output and the sql generated for unchecked
> and checked cases are also shown.
>
>
>
>
> if CBool(Request.Form("chk_Complete")) = "" Then
> Cbool(Request.Form("chk_Complete")) = "False"
> end if
> l_f_IsChecked = (Request.Form("chk_Complete"))
> CASE: CHECKBOX UNCHECKED
>
> START CHECK COMPLETE
>
> THE END
> StartCheckBox
>
> EndCheckbox
>
> UPDATE tblGMISExpenditures_Quarter SET
> tblGMISExpenditures_Quarter.CurrentOutlay= '$550.00' ,
> tblGMISExpenditures_Quarter.LocalShare= '$100.50' ,
> tblGMISExpenditures_Quarter.MBCCShare= '449.5' ,
> tblGMISExpenditures_Quarter.UnpaidOblig= '$250.00' ,
> tblGMISExpenditures_Quarter.LocalShareUnpaidOblig= '$35.35' ,
> tblGMISExpenditures_Quarter.ProjectIncome= '$100.00' ,
> tblGMISExpenditures_Quarter.ForfeitureIncome= '$200.00' ,
> tblGMISExpenditures_Quarter.OtherExpense= '$30.00' ,
> tblGMISExpenditures_Quarter.ForfeitureExpense= '$40.00' ,
> tblGMISExpenditures_Quarter.InterestReceived= '$20.00' ,
> tblGMISExpenditures_Quarter.TotalPeriodOutlay= '4568.39' ,
> tblGMISExpenditures_Quarter.Remarks= 'Testing GWIS' ,
> tblGMISExpenditures_Quarter.Name= 'Jack Jones' ,
> tblGMISExpenditures_Quarter.Title= 'Manager' ,
> tblGMISExpenditures_Quarter.AreaCode= '111' ,
> tblGMISExpenditures_Quarter.Phone1= '111' ,
> tblGMISExpenditures_Quarter.Phone2= '8762' ,
> tblGMISExpenditures_Quarter.Date= '1/11/2005' ,
> tblGMISExpenditures_Quarter.IsChecked= where
> tblGMISExpenditures_Quarter.SubgrantIntID = 4836;
>
> CASE: CHECK BOX CHECKED
>
> START CHECK COMPLETE
> TRUE
> THE END
> StartCheckBox
> TRUE
> EndCheckbox
>
> UPDATE tblGMISExpenditures_Quarter SET
> tblGMISExpenditures_Quarter.CurrentOutlay= '$550.00' ,
> tblGMISExpenditures_Quarter.LocalShare= '$100.50' ,
> tblGMISExpenditures_Quarter.MBCCShare= '449.5' ,
> tblGMISExpenditures_Quarter.UnpaidOblig= '$250.00' ,
> tblGMISExpenditures_Quarter.LocalShareUnpaidOblig= '$35.35' ,
> tblGMISExpenditures_Quarter.ProjectIncome= '$100.00' ,
> tblGMISExpenditures_Quarter.ForfeitureIncome= '$200.00' ,
> tblGMISExpenditures_Quarter.OtherExpense= '$30.00' ,
> tblGMISExpenditures_Quarter.ForfeitureExpense= '$40.00' ,
> tblGMISExpenditures_Quarter.InterestReceived= '$20.00' ,
> tblGMISExpenditures_Quarter.TotalPeriodOutlay= '4568.39' ,
> tblGMISExpenditures_Quarter.Remarks= 'Testing GWIS' ,
> tblGMISExpenditures_Quarter.Name= 'Jack Jones' ,
> tblGMISExpenditures_Quarter.Title= 'Manager' ,
> tblGMISExpenditures_Quarter.AreaCode= '111' ,
> tblGMISExpenditures_Quarter.Phone1= '111' ,
> tblGMISExpenditures_Quarter.Phone2= '8762' ,
> tblGMISExpenditures_Quarter.Date= '1/11/2005' ,
> tblGMISExpenditures_Quarter.IsChecked= TRUE where
> tblGMISExpenditures_Quarter.SubgrantIntID = 4836;
Jack

2005-02-25, 8:55 pm

Thanks Mark for your help. I have already got it solved. However, I am going
to try it the way you suggested. Regards.

"Mark Schupp" wrote:

> When the checkbox is unchecked the value is not sent in the form.
> Try something like this;
>
> <input type="checkbox" name="chk_Complete" value="TRUE"
> <%if cbool(l_IsChecked) then Response.Write " checked" %>>
>
> and
>
> If Trim(Request.Form("chk_Complete")) = "TRUE" Then
> l_f_IsChecked = "TRUE"
> Else
> l_f_IsChecked = "FALSE"
> End If
>
> I'd also suggest using boolean values instead of tossing CBool in
> everywhere.
>
> <input type="checkbox" name="chk_Complete" value="TRUE"
> <%if l_IsChecked then Response.Write " checked" %>>
>
> and
>
> If Trim(Request.Form("chk_Complete")) = "TRUE" Then
> l_f_IsChecked = True
> Else
> l_f_IsChecked = True
> End If
>
> --
> Mark Schupp
> Head of Development
> Integrity eLearning
> www.ielearning.com
>
>
> "Jack" <Jack@discussions.microsoft.com> wrote in message
> news:9D83D6FA-B55E-4A7F-A12D-35C52CC7EECF@microsoft.com...
> <%Response.Write
> shows
> However,
> unchecked
>
>
>
Sponsored Links







Also available: Server administration forum archive | Web Design forum archive | Software forum archive | Hardware reviews archive

Copyright 2008 codecomments.com