Write code that will only affect one record at a time in access 20

G

Guest

I have this code on several option buttons. When one is chosen the
corresponding combo box appears. The combo box is linked to a query for data
to pick from. My problem is that the code will work for the current record
only and changes all the others at the same time. I tried putting this code
in the OnCurrent event of the form but that did not work. Can anyone help me
see where I am going wrong?

Thank you!!

Private Sub Option77_AfterUpdate()
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "51"
End Sub

Private Sub Option79_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "59"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option81_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "52"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option83_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "56"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option85_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "61"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option87_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "CAPP"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option89_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "61"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option91_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "53"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option93_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "00"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option95_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "62"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub


Private Sub Option97_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "63"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option99_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
End Sub
 
D

Douglas J Steele

Sorry, but that's how Access is. When you've got a continuous form, you
actually only have one instance of each of the controls, so making a change
to a given control changes them all.

--
Doug Steele, Microsoft Access MVP

(no e-mails, please!)


ELL said:
I have this code on several option buttons. When one is chosen the
corresponding combo box appears. The combo box is linked to a query for data
to pick from. My problem is that the code will work for the current record
only and changes all the others at the same time. I tried putting this code
in the OnCurrent event of the form but that did not work. Can anyone help me
see where I am going wrong?

Thank you!!

Private Sub Option77_AfterUpdate()
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "51"
End Sub

Private Sub Option79_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "59"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option81_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "52"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option83_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "56"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option85_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "61"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option87_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "CAPP"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option89_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "61"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option91_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "53"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option93_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "00"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option95_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "62"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option97].Visible = Not Me![Option97].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub


Private Sub Option97_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo235].Visible = Not Me![Combo235].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![WC Number].Value = "63"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option99].Visible = Not Me![Option99].Visible
End Sub

Private Sub Option99_AfterUpdate()
Me![Combo213].Visible = Not Me![Combo213].Visible
Me![Combo215].Visible = Not Me![Combo215].Visible
Me![Combo217].Visible = Not Me![Combo217].Visible
Me![Combo219].Visible = Not Me![Combo219].Visible
Me![Combo221].Visible = Not Me![Combo221].Visible
Me![Combo223].Visible = Not Me![Combo223].Visible
Me![Combo225].Visible = Not Me![Combo225].Visible
Me![Combo227].Visible = Not Me![Combo227].Visible
Me![Combo229].Visible = Not Me![Combo229].Visible
Me![Combo231].Visible = Not Me![Combo231].Visible
Me![Combo233].Visible = Not Me![Combo233].Visible
Me![Text237].Visible = Not Me![Text237].Visible
Me![Process Area].Value = "TZ"
Me![Option77].Visible = Not Me![Option77].Visible
Me![Option79].Visible = Not Me![Option79].Visible
Me![Option81].Visible = Not Me![Option81].Visible
Me![Option83].Visible = Not Me![Option83].Visible
Me![Option85].Visible = Not Me![Option85].Visible
Me![Option87].Visible = Not Me![Option87].Visible
Me![Option89].Visible = Not Me![Option89].Visible
Me![Option91].Visible = Not Me![Option91].Visible
Me![Option93].Visible = Not Me![Option93].Visible
Me![Option95].Visible = Not Me![Option95].Visible
Me![Option97].Visible = Not Me![Option97].Visible
End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top