回答編集履歴
2
ページアップ、ページダウンから、矢印に変更
answer
CHANGED
|
@@ -5,9 +5,9 @@
|
|
|
5
5
|
Private Sub Report_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
|
|
6
6
|
If Not Me.Dirty Then
|
|
7
7
|
If (Count < 0) Then
|
|
8
|
-
SendKeys "{
|
|
8
|
+
SendKeys "{UP}"
|
|
9
9
|
ElseIf (Count > 0) Then
|
|
10
|
-
SendKeys "{
|
|
10
|
+
SendKeys "{DOWN}"
|
|
11
11
|
End If
|
|
12
12
|
Else
|
|
13
13
|
End If
|
1
コードを見やすくしました。
answer
CHANGED
|
@@ -1,6 +1,7 @@
|
|
|
1
1
|
ご回答いただきありがとうございました。
|
|
2
2
|
結局、レポートに以下のコードを挿入することで解決しました。
|
|
3
3
|
|
|
4
|
+
```ここに言語を入力
|
|
4
5
|
Private Sub Report_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)
|
|
5
6
|
If Not Me.Dirty Then
|
|
6
7
|
If (Count < 0) Then
|
|
@@ -10,4 +11,5 @@
|
|
|
10
11
|
End If
|
|
11
12
|
Else
|
|
12
13
|
End If
|
|
13
|
-
End Sub
|
|
14
|
+
End Sub
|
|
15
|
+
```
|