Avoid Flicker

[JohnPapa]

I am trying to avoid flicker on the form when I run the following code where all checkboxes are set to No.
I used Appilication.Echo set to False at the beginning and set to True end. Did not help
I used Me.Visible set to False at the beginning and set to True end. There is no flicker, during the update but a major flicker at the end.

Dim rst As Recordset
Set rst = Me.RecordsetClone
rst.MoveFirst
Do While Not rst.EOF
    If Nz(rst!blnNo, False) = False And Nz(rst!blnYes, False) = False Then
        rst.Edit
        rst!blnNo = True
        rst!blnYes = False
        rst.Update
    End If
    rst.MoveNext
Loop
Me.Dirty = False

 

[theDBguy]

Have you considered using an UPDATE query to change the source table and just requery the form?

 

[JohnPapa]

Actually, I just tried that and was going to report on it. Thanks for the suggestion anyway.
There is still a flicker.

Application.Echo False
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tblMedicalHistoryPatTempNew SET blnNo = True, blnYes = False WHERE lngMedicalHistory = " &      Forms!frmMedicalHistoryListNew!lngID & ";"
DoCmd.SetWarnings True
Me.Refresh     'Or Me.Requery
Me.cmdCancel.SetFocus
Application.Echo True

 

[arnelgp]

have you tried using Datasheet form?

 

[CJ_London]

does your form use conditional formatting? - that can sometimes impact form flicker

 

[Pat Hartman]

This seems to be a design flaw. Why are you resetting values on a bunch of child records at once?

 

[JohnPapa]

have you tried using Datasheet form?

When I switch to Datasheet View I see only one record.

 

[JohnPapa]

does your form use conditional formatting? - that can sometimes impact form flicker

Yes it does. The yellow which indicates the current record uses conditional formatting.

 

[JohnPapa]

This seems to be a design flaw. Why are you resetting values on a bunch of child records at once?

Can you please elaborate? I am setting the checkboxes one by one.

 

[arnelgp]

you create a New Datasheet form from your table.
you don't use an "existing" continuous form and Switch to datasheet view.
continuous forms are notorious for flicker, because it need to "repaint" the controls everytime.

 

[JohnPapa]

you create a New Datasheet form from your table.
you don't use an "existing" continuous form and Switch to datasheet view.
continuous forms are notorious for flicker, because it need to "repaint" the controls everytime.

Thanks for the suggestion. It may not be worth the effort to remove the flicker.

 

[arnelgp]

you can also add Conditional format to datasheet.

 

[JohnPapa]

Good to know arnelgp. Thanks.

 

[CJ_London]

Yes it does. The yellow which indicates the current record uses conditional formatting.

try temporarily disabling the conditional formatting - does this stop the flickering?

 

[arnelgp]

you don't really need conditional format (for current record) in datasheet since, there is already a band to do this.
but to demonstrate i put the dsSub (datasheet) in a Form (2_Form1) to show that it can be done.
notice the flicker on 1_Continuous form, while almost none to 2_Form1.