Checking/Unchecking adds/deletes a specific word. Trying to find more efficient code than mine.

[Tenmakk]

Hello,



I have 3 checkboxes on my form that will put "Student", "Teacher", and "Family" into a textbox. If one of the 3 is unchecked, that text in the textbox will be removed. This works great, but unfortunately I am going to need 6 more checkboxes now for 6 different things. For 9 checkboxes, I think this code could get really messy and repetitive. Is there a quicker way or more efficient way of doing this? I'm willing to take the time to write all that code, but I don't want to do it if there's a more efficient way. This is my code for the 3 checkboxes I have:

Private Sub chkFamily_AfterUpdate()

If chkFamily Then
    txtPreFamily = "Family"
Else
    txtPreFamily = ""
End If

txtPosition = txtPreTeacher & " " & txtPreStudent & " " & txtPreFamily

End Sub

Private Sub chkStudent_AfterUpdate()

If chkStudent Then
    txtPreStudent = "Student"
Else
    txtPreStudent = ""
End If

txtPosition = txtPreTeacher & " " & txtPreStudent & " " & txtPreFamily

End Sub

Private Sub chkTeacher_AfterUpdate()

If chkTeacher = True Then
    txtPreTeacher = "Teacher"
Else
    txtPreTeacher = ""
End If

txtPosition = txtPreTeacher & " " & txtPreStudent & " " & txtPreFamily

End Sub

Thanks for your help.

[orange]

What does this mean in plain English? You have described HOW you have done something, but the something and rationale is unclear.

[ranman256]

Not sure if its much better, but what about something like:

Private Sub chkFamily_AfterUpdate()
  RunChecks "F"
END SUB

Private Sub chkTeacher_AfterUpdate()
  RunChecks "T"
END SUB

Private Sub chkStudent_AfterUpdate()
  RunChecks "S"
END SUB

private sub RunChecks(pvFlag)
  select case pvFlag
      case "F"
 If chkFamily Then
      txtPreFamily = "Family"
 Else
      txtPreFamily = ""
 End If
      case "T"
 If chkTeacher Then
      txtPreTeacher = "Family"
 Else
      txtPreTeacher = ""
 End If
      case "S"
 If chkStudent Then
      txtPreStudent = "Student
 Else
      txtPreStudent = ""
 End If
  end select
txtPosition = txtPreTeacher & " " & txtPreStudent & " " & txtPreFamily
end sub

[Tenmakk]

orange, I want the user to specify whether the information he's entering on the form is relevant to Student, Teacher, or Family (or any combination) so what they check will appear in the textbox.

Ranman256, thanks. I will try the code when I get home.

[Tenmakk]

Thank you Ranman256, this is easier.