Ms access turn off screenupdating
This can happen with recorded macros that have the word Select used frequently.
If this does happen, you may need to repeat the line: Application.
If you are not using a User Form then try inserting Do Events in your code after you change the state of the check box. The process is as follows: What I would like it to do is during the execution of the code, as it finishes each cell, it turns off the formatting on the cell.
Both suggestions assume you are using individual check boxes and not check boxes that appear in a List Box control. This prevents you from interacting with Excel until the User Form is closed. That user then sees that the cell has been unselected prior to advancing to the next step. Color Index = 4) Then ' setting start date variable d Start Date = "01/01" & Worksheets("History Seeding"). Value ' testing for first monday If (Weekday(d Start Date, 2) 2) Then d Start Date = d Start Date (8 - Weekday(d Start Date, 2)) d Current Date = d Start Date End If ' testing for data path If (s Data Path = "") Then ' parsing in public data path s Data Path = Get Config Info("SQLite Data Path") End If ' setting query string for job info s Sql = "SELECT * From Job Info WHERE Job_ID = " & Worksheets("History Seeding"). Value & ";" ' opening cursor Call Get Data2(s Sql) ' setting query string for frequency s Sql = "SELECT * From Job Frequency WHERE Frequency_ID = " & c Records2! Value & ";" ' opening cursor Call Get Data3(s Sql) ' determining the number of iterations Select Case c Records3! Value Case 0.33 Or 1 ' Once per Shift or Daily n Iterations = 365 Case 2 ' Every other Day n Iterations = 188 Case 7 ' Weekly n Iterations = 52 Case 14 ' Bi-Weekly n Iterations = 26 Case 30 ' Monthly n Iterations = 12 Case 60 ' Every Other Month n Iterations = 6 Case 90 ' Quarterly n Iterations = 4 Case 180 ' Semi-Annually n Iterations = 2 Case 360 ' Annually n Iterations = 1 End Select ' setting query string for job info s Sql = "SELECT * From Job History;" ' opening cursor Call Get Data1(s Sql) ' starting year loop For n Year Loop = 1 To n Iterations ' adding history to database *Row ID used for unique id auto increment field c Records1.
Hello dcanham, It is difficult to provide a solution in the absence of code controlling the check boxes. Set the Show Modal property in the Properties window to False. It sheet that the user sees does not update until after the code is done running altogether.
VBA programs are known to save a lot of time and now this post is to save further time. * An operation has been performed that forced Excel to calculate page breaks. Update Batch ' testing for once per shift If (c Records3! Value 6) Then ' sunday, shifting to monday d Current Date = d Current Date (8 - Weekday(d Current Date, 2)) End If ' updating number of records n Total Records = n Total Records 1 Worksheets. Status Bar = n Total Records & " records created." Next n Year Loop ' selecting source cell Worksheets("History Seeding"). Select Private Sub Deselect Cell(n Target Row As Integer) ' turning cell to unselected state With Selection . Screen Updating = True in the code where I wanted the screen to refresh properly. Both suggestions assume you are using individual check boxes and not check boxes that appear in a List Box control. It just changes the color, border, and removes diagonal lines. I made it a subroutine because it can be called from several different places.
Search for ms access turn off screenupdating:
The user is selecting what they want to do off of a item checklist then pressing go. Actually, I hadn't turned screen updating off, I just needed to sprinkle Application.