Painting Property

Applies To

Form, Report.

Description

You can use the Painting property to specify whether forms or reports are repainted.

Setting

The Painting property uses the following settings.

Setting

Description

True (–1)

(Default) The form or report is repainted.

False (0)

The form or report isn't repainted.


You can set this property by using a macro or Visual Basic.

This property can be set and applies only in Form view and is unavailable in other views.

Remarks

The Painting property is similar to the Echo action. However, the Painting property prevents repainting of a single form or report, whereas the Echo action prevents repainting of all open windows in an application.

Setting the Painting property for a form or report to False also prevents all controls (except subform or subreport controls) on a form or report from being repainted. To prevent a subform or subreport control from being repainted, you must set the Painting property for the subform or subreport to False. (Note that you set the Painting property for the subform or subreport, not the subform or subreport control.)

The Painting property is automatically set to True whenever the form or report gets or loses the focus. You can set this property to False while you are working on a form or report if you don't want to see changes to the form or report or to its controls. For example, if a form has a set of controls that are automatically resized when the form is resized and you don't want the user to see each individual control move, you can turn Painting off, and then move all of the controls, then turn Painting back on.

See Also

Echo action, Hourglass action, RepaintObject action.

Example

The following example uses the Painting property to enable or disable form painting depending on whether the SetPainting variable is set to True (–1) or False (0). If form painting is turned off, Microsoft Access displays the hourglass icon while painting is turned off.

Function EnablePaint(frmName As Form, ByVal SetPainting As Integer) _
        As Integer
    frmName.Painting = SetPainting
    If SetPainting = False Then      ' Form painting is turned off.
        DoCmd.Hourglass True              ' Display hourglass icon.
    Else
        DoCmd.Hourglass False              ' Don't hourglass display icon.
    End If
End Function