Group:  Microsoft Access ยป microsoft.public.access.formscoding
Thread: Checkbox Problem

Geek News

Checkbox Problem
robboll <robboll[ at ]hotmail.com> 11/28/2008 3:54:14 AM
Access 2003

I have a form with six paired checkboxes (for three events) A, B, and
C.

Event Start End

A --------- AS ----------- AE
B --------- BS ----------- BE
C --------- CS ----------- CE

And a Status textbox. The Status is either "Pending" or "Waiting"

When you open the form and all checkboxes are 0 the Status = "Pending"

If you check AS the Status changes to "Waiting" until AE is checked.
Then it changes back to "Pending"

The same thing applies to B and C.

My code below seems to work if you move from A to C, but moving up it
doesn't work.

Any time a Start is checked and and an End is unchecked, the Status
should be Waiting.

I think theres a much easier way to do this:

Function Stat()

'A ---------------
If Forms!frmStatus!ASD = -1 And Forms!frmStatus!AE = 0 Then
Forms!frmStatus!txtSTATUS = "Waiting"
End If

If Forms!frmStatus!ASD = -1 And Forms!frmStatus!AE = -1 Then
Forms!frmStatus!txtSTATUS = "Pending"
End If

'B ----------------
If Forms!frmStatus!BSD = -1 And Forms!frmStatus!BE = 0 Then
Forms!frmStatus!txtSTATUS = "Waiting"
End If

If Forms!frmStatus!BSD = -1 And Forms!frmStatus!BE = -1 Then
Forms!frmStatus!txtSTATUS = "Pending"
End If
'C -----------------
If Forms!frmStatus!CSD = -1 And Forms!frmStatus!CE = 0 Then
Forms!frmStatus!txtSTATUS = "Waiting"
End If

If Forms!frmStatus!CSD = -1 And Forms!frmStatus!CE = -1 Then
Forms!frmStatus!txtSTATUS = "Pending"
End If

End Function


Any help with this greatly appreciated!

RBollinger



Re: Checkbox Problem
"Mike Painter" <mddotpainter[ at ]sbcglobal.net> 11/28/2008 4:51:57 AM

robboll wrote:
[Quoted Text]
> Access 2003
>
> I have a form with six paired checkboxes (for three events) A, B, and
> C.
>
> Event Start End
>
> A --------- AS ----------- AE
> B --------- BS ----------- BE
> C --------- CS ----------- CE
>
> And a Status textbox. The Status is either "Pending" or "Waiting"
>
> When you open the form and all checkboxes are 0 the Status = "Pending"
>
> If you check AS the Status changes to "Waiting" until AE is checked.
> Then it changes back to "Pending"
>
> The same thing applies to B and C.
>
> My code below seems to work if you move from A to C, but moving up it
> doesn't work.
>
> Any time a Start is checked and and an End is unchecked, the Status
> should be Waiting.
>
> I think theres a much easier way to do this:
>
> Function Stat()
>
Your way just didn't change things back if something was unchecked.
I changed to True and False to make things clearer (at least for me)
This is untested and may need some lines swapped but the method is good.

'A ---------------
If Forms!frmStatus!ASD = True then
If Forms!frmStatus!AE = FalseThen
Forms!frmStatus!txtSTATUS = "Waiting"
Else ' Change it back if it was
already checked.
Forms!frmStatus!txtSTATUS = "Pending"
End If
Else 'Change it back if it was checked.
Forms!frmStatus!txtSTATUS = "Pending"
> End If
>



RE: Checkbox Problem
OssieMac 11/28/2008 5:25:01 AM
I have had a look at this and I think one would need to know the rules for
checking the boxes. For example, is it allowable to skip a box. Like check
ASD, not check AE and then check BSD.
--
Regards,

OssieMac


"robboll" wrote:

[Quoted Text]
> Access 2003
>
> I have a form with six paired checkboxes (for three events) A, B, and
> C.
>
> Event Start End
>
> A --------- AS ----------- AE
> B --------- BS ----------- BE
> C --------- CS ----------- CE
>
> And a Status textbox. The Status is either "Pending" or "Waiting"
>
> When you open the form and all checkboxes are 0 the Status = "Pending"
>
> If you check AS the Status changes to "Waiting" until AE is checked.
> Then it changes back to "Pending"
>
> The same thing applies to B and C.
>
> My code below seems to work if you move from A to C, but moving up it
> doesn't work.
>
> Any time a Start is checked and and an End is unchecked, the Status
> should be Waiting.
>
> I think theres a much easier way to do this:
>
> Function Stat()
>
> 'A ---------------
> If Forms!frmStatus!ASD = -1 And Forms!frmStatus!AE = 0 Then
> Forms!frmStatus!txtSTATUS = "Waiting"
> End If
>
> If Forms!frmStatus!ASD = -1 And Forms!frmStatus!AE = -1 Then
> Forms!frmStatus!txtSTATUS = "Pending"
> End If
>
> 'B ----------------
> If Forms!frmStatus!BSD = -1 And Forms!frmStatus!BE = 0 Then
> Forms!frmStatus!txtSTATUS = "Waiting"
> End If
>
> If Forms!frmStatus!BSD = -1 And Forms!frmStatus!BE = -1 Then
> Forms!frmStatus!txtSTATUS = "Pending"
> End If
> 'C -----------------
> If Forms!frmStatus!CSD = -1 And Forms!frmStatus!CE = 0 Then
> Forms!frmStatus!txtSTATUS = "Waiting"
> End If
>
> If Forms!frmStatus!CSD = -1 And Forms!frmStatus!CE = -1 Then
> Forms!frmStatus!txtSTATUS = "Pending"
> End If
>
> End Function
>
>
> Any help with this greatly appreciated!
>
> RBollinger
>
>
>
>

Home | Search | Terms | Imprint Contact
Newsgroups Reader - provided by WiredBox.Net