目障りな一瞬の画面ちらつきを防止(Application.ScreenUpdatingで更新停止)

AccessVBA開発

VBAの画面のちらつきがたった1行で解決して処理も高速化

VBAコード処理の前に
Application.ScreenUpdating = False
と書いて、画面更新処理を停止します。

最後に(End Sub)の前に
Application.ScreenUpdating = True
と書いて、画面更新処理を再開(元に戻す)します。

———————–
Sub 画面更新停止()
Application.ScreenUpdating = False
******
Application.ScreenUpdating = True
End Sub
———————–

サブフォームのリクエリで、使えないときは

———————–

‘フォームの描画をOFF
Me.Painting = False

Me.明細フォーム.Requery

‘フォームの再描画をON
Me.Painting = True

———————–

タイトルとURLをコピーしました