I ran out of room I have about 60 Yes or No questions. When I add 3 more case lines it slows down and doesn't work right.
So I am thinking I may need to create a primary key so I can tell Access what goals to show my yes no box (with numbers instead of text). Would this be the best decision? I hate to throw everything off I worked on this for two week. My first real form.
I am getting off early today. I will be leaving in 30 minutes but will check my messages.
Select Case Me.ComboGoals
Case "Provision 2 and universal free meals to all students", "Compliance with federal regulations", "Revenue recorded in same month as received Look at Budget Monthly", "Inventory changes are tracked monthly", "No major large swings in inventory balances w/o documented explanation", "Proper disposition of obsolete equipment", "Move commodity products out when required", "Ensure compliance with bid process", "Identify New Students that are not registered in E school", "Accurate and approved bank transfers", "All reimbursed cash receipts have been requested for the prior month expenditures; Headstart has quarterly requirements", "Audit report - Unmodified opinion of financial statements ", "Audit report - District financial statement follows GAAP", "Audit report - Routine review of account and bank reconciliations", "Debt service payments - Meet February & August due dates", "Debt service payments - No errors identified", "Debt service payments - No misclassifications identified"
Me.Comboyesorno.Visible = True
Case Else
Me.Comboyesorno.Visible = False
End Select
Select Case Me.ComboGoals
Case "Provision 2 and universal free meals to all students", "Compliance with federal regulations", "Revenue recorded in same month as received Look at Budget Monthly", "Inventory changes are tracked monthly", "No major large swings in inventory balances w/o documented explanation", "Proper disposition of obsolete equipment", "Move commodity products out when required", "Ensure compliance with bid process", "Identify New Students that are not registered in E school"
Me.TxtActualBenchmark.Visible = False
Me.Label32.Visible = False
Me.TxtActualBenchmark.Enabled = False
Case Else
Me.TxtActualBenchmark.Visible = True
Me.Label32.Visible = True
Me.TxtActualBenchmark.Enabled = True
End Select