Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
Discussion GroupsFormsForms ProgrammingQueriesModules / DAO / VBAReports / PrintingMacrosDatabase DesignSecurityConversionImporting / LinkingSQL Server / ADPMultiuser / NetworkingReplicationSetup / ConfigurationDeveloper ToolkitsActiveX ControlsNew UsersGeneral 1General 2
Access DirectoryToolsTutorialsUser Groups
Related Topics
SQL ServerOther DB ProductsMS OfficeMore Topics ...
MS Access Forum / Modules / DAO / VBA / January 2006

Tip: Looking for answers? Try searching our database.

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

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
ELL - 30 Jan 2006 13:51 GMT
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

Signature

Gene

Reply to this Message
Douglas J Steele - 30 Jan 2006 14:30 GMT
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.

Signature

Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no e-mails, please!)

> 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
[quoted text clipped - 338 lines]
>     Me![Option97].Visible = Not Me![Option97].Visible
> End Sub
Reply to this Message
 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage
Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.