Kludgy hack or creative work around? I'll let you be the judge.
Several people have expressed the desire to utilize the Large Check Box in a continuous form. As you may or may not know, those forms have their own quirks and the controls can do some strange things. This scenario is no exception. The solution the Richard gave us works wonderfully in a single form but fails miserably in a continuous form. If you "check" the box - all records are checked.
So here is my solution. I feel that the increased aesthetic value and functionality gained overrides the minimal additional overhead.
Using the IsCleared field from the Check Register TechHelp as an example:
1) Add a new field to your table - Short Text. I named mine CB (Check Box) for simplicity. 2) Bring that new field into your continuous form. Delete the label. Size and format the text box. Change the font to Wingdings 2 as in the video. Set the Tab Stop to NO. 3) Create a new button and name it. Set Transparent to Yes. Size it to fit over the top of the CB text box. Set the Tab Stop to NO. 4) In the On Click event for the CBbtn I put in the following code:
Private Sub CBbtn_Click() If CB = "" Or IsNull(CB) Then CB = "P" IsCleared = True Else CB = "" IsCleared = False End If Me.Refresh End Sub
5) Delete the IsCleared check box and replace it with your new custom check box.
That's it. Works like a champ for me. Just like Richard said in one of his other videos, "Kinda cheesy - But it works". This is a 'one off' solution as of right now. I have not managed to get the function Richard created working for continuous forms. If any of you have ideas I'd be interested in your thoughts. Screenshots on request but it's pretty straight forward.
I love it. Nice workaround. I'll play with it when I get a few free minutes.
Scott AxtonOP
@Reply 4 years ago
Quick addition to the original post.
If you already have a working copy of the register with cleared items, in order to have the check box appear correctly you will need to perform an Update Query to the CB field to "P" where IsCleared is True.
Juan C Rivera
@Reply 4 years ago
Super I will do this on Saturday. Thanks
V/r
Juan
Philip Lombardo
@Reply 4 years ago
Thanx, Scott. Soon after I posted I realized that a text box would probably work. So I did pretty much what you did. I added a one character text field, with default set to " ". Then did the update query, and everything fell into place. It "only" took me 2 days. You probably did it in a few minutes. But I worked it out by myself, and that felt pretty good.
Philip Lombardo
@Reply 4 years ago
It just hit me that I can use a triple state check box, using the 3rd state to indicate pending transactions. Here goes another 2 days.
Philip Lombardo
@Reply 4 years ago
Since you guys said that buttons are a big problem in continuous forms, I avoided them altogether. My text box (Clr) overlays the checkbox, and I click it to make the change.
Private Sub Clr_Click()
If Clr = " " Then
Clr = "P"
Else: Clr = " "
End If
If Clr = "P" Then
IsCleared = True
Else: IsCleared = False
End If
Me.Requery
End Sub
Sorry, only students may add comments.
Click here for more
information on how you can set up an account.
If you are a Visitor, go ahead and post your reply as a
new comment, and we'll move it here for you
once it's approved. Be sure to use the same name and email address.
This thread is now CLOSED. If you wish to comment, start a NEW discussion in
Large Check Box.