更新時のフォームのちらつき

解決

Ｍ 2005-11-04 01:53:49 No: 92419

開発環境：ACCESS2003、WindowsXP
ACCESSのフォームからDDEでEXCELのデータを取得し、テーブルへ入れた後、フォームを更新させると、画面がちらつくのですが、ちらつかない方法はあるでしょうか？よろしくお願いします。

Private Sub command_Click()
Dim ch1 As Long
Dim ch2 As Long
Dim strExcelPath As String
Dim strExcelSheet As String
Dim strFilePath As String
Dim i As Integer
Dim j As Integer
Dim celData As Variant
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim tableName As String

Set cn = CurrentProject.Connection
tableName = "＊＊＊＊"
rs.Open tableName, cn, adOpenKeyset, adLockOptimistic
strExcelPath = "＊＊＊＊"
strExcelSheet = "＊＊＊＊"
strFilePath = "＊＊＊＊"
Shell strExcelPath, 1
ch1 = DDEInitiate("Excel", "System")
DDEExecute ch1, "[open(""" & strFilePath & """)]"
ch2 = DDEInitiate("Excel", strExcelSheet)
celData = DDERequest(ch2, "R1C1")
rs.AddNew
rs.Fields(0) = celData
rs.Update
DDETerminate ch1
DDETerminate ch2
Me.Refresh
End Sub

。 2005-11-04 18:10:49 No: 92420

すくりーんあっぷでーでぃんぐをふぉるすにする

M 2005-11-04 22:15:12 No: 92421

。さんコメントありがとうございます。
Application.ScreenUpdating = False は
ExcelVBAでは使えますが、AccessVBAでは使えません。

M 2005-11-06 08:16:26 No: 92422

あまり使いたくはなかったのですが
Repaint メソッド使って、更新時のちらつきを抑えました。
一応解決とします。