Automating when Checkboxes are checked

[tenger]

Hi Folks,

I'm new to the forum and have been searching in vain for a few days for a solution (in fact, I'm sure I've wasted more time than it actually would have taken were I to do this manually over the life of the database!!, but the boss said for me to do it, so...) . I even purchased a thick Access book to help with the issue. Access 2003 Bible

Here's the problem: I have four sets of 4 checkboxes that when all four in one set are checked, it updates another field with Levels 1,2,3,4 respectively. I have that box set up as a combobox.

I've used If...then...else and Select clauses, Beyond that, I'm beyond my element. It seems like I'm doing something small wrong.

Below is only a sample of what I've been doing. I figured if I can get one box to work, that would be a start. Unfortunately, that didn't work. I know it "should" be working but I can't for the life of me figure out why it isn't.

Private Sub BD_Level_Change()

Select Case BD_Level = "2"
Case Viable = "True"
Case Else: BD_Level = "1"

End Select

End Sub

Thanks, guys. This little issue has had me consumed for days.
Thanks.

Tenger

[Rabbit]

Hi Folks,

I'm new to the forum and have been searching in vain for a few days for a solution (in fact, I'm sure I've wasted more time than it actually would have taken were I to do this manually over the life of the database!!, but the boss said for me to do it, so...) . I even purchased a thick Access book to help with the issue. Access 2003 Bible

Here's the problem: I have four sets of 4 checkboxes that when all four in one set are checked, it updates another field with Levels 1,2,3,4 respectively. I have that box set up as a combobox.

I've used If...then...else and Select clauses, Beyond that, I'm beyond my element. It seems like I'm doing something small wrong.

Below is only a sample of what I've been doing. I figured if I can get one box to work, that would be a start. Unfortunately, that didn't work. I know it "should" be working but I can't for the life of me figure out why it isn't.

Private Sub BD_Level_Change()

Select Case BD_Level = "2"
Case Viable = "True"
Case Else: BD_Level = "1"

End Select

End Sub

Thanks, guys. This little issue has had me consumed for days.
Thanks.

Tenger

I think you're looking for

Private Sub Viable_Change()
   Select Case Viable
      Case True
         BD_Level = 2
      Case Else
         BD_Level = 1
   End Select
End Sub
 

[tenger]

I think you're looking for

Private Sub Viable_Change()
   Select Case Viable
      Case True
         BD_Level = 2
      Case Else
         BD_Level = 1
   End Select
End Sub
 

Thank you, Rabbit. I'll give it a whirl.

[tenger]

Thank you, Rabbit. I'll give it a whirl.

Rabbit,

Thanks again, by the way.

I just tried the code you sent (and other similar variations) but nothing. Any other thing you can suggest?

Tenger.

[Rabbit]

I think you're looking for

Private Sub Viable_Change()
   Select Case Viable
      Case True
         BD_Level = 2
      Case Else
         BD_Level = 1
   End Select
End Sub
 

Try putting the code in the After Update event

My code made a few assumptions.
1) Viable is a checkbox that when checked will change the value of BD_Level
2) Viable and BD_Level are controls/fields on the same form/table
3) BD_Level is of a numeric data type

You'll also want to try:
1) Checking that everything is spelled correctly
2) Compiling the code
3) Checking all your references are there