回答編集履歴
2
マークダウンの間違いを修正
answer
CHANGED
|
@@ -39,4 +39,4 @@
|
|
|
39
39
|
レポートヘッダーまたはれポートフッターにテキストボックスを配置します。
|
|
40
40
|
コントロールソースを下記のよう設定します。
|
|
41
41
|
|
|
42
|
-
`=IIf(Sum([Grupo] Like "*09")=0,"表示したいテキスト","")
|
|
42
|
+
`=IIf(Sum([Grupo] Like "*09")=0,"表示したいテキスト","")`
|
1
追記
answer
CHANGED
|
@@ -11,4 +11,32 @@
|
|
|
11
11
|
と設定して「印刷時縮小」プロパティを「はい」に設定すると条件に合致しない場合は非表示になります。（印刷時縮小「はい」で "" のときは高さ0で非表示になる。）
|
|
12
12
|
|
|
13
13
|
実際のパラメータや条件が不明なので具体的な式は提示出ませんが、
|
|
14
|
-
上記のことを応用すれば希望の条件で表示/非表示を切り替えることができるはずです。
|
|
14
|
+
上記のことを応用すれば希望の条件で表示/非表示を切り替えることができるはずです。
|
|
15
|
+
追記
|
|
16
|
+
---
|
|
17
|
+
とりあえず現状のコードをエラーなく動作するようにするには、下記のコードで。
|
|
18
|
+
ただし、これが質問者さんの希望する結果かどうかは分かりません。
|
|
19
|
+
|
|
20
|
+
```vba
|
|
21
|
+
Private Sub Report_Open()
|
|
22
|
+
Dim RS1 As DAO.Recordset
|
|
23
|
+
|
|
24
|
+
Set RS1 = CurrentDB.OpenRecordSet(Me.RecordSource)
|
|
25
|
+
|
|
26
|
+
RS1.FindFirst "[Grupo] Like '*09'"
|
|
27
|
+
If Not RS.NoMatch Then
|
|
28
|
+
Me.[titlePA].Visible = True 'ヘッダのコントロールです
|
|
29
|
+
Me.[E1-7].Visible = False 'フッターのコントロールです
|
|
30
|
+
End If
|
|
31
|
+
RS1.Close: Set RS1 = Nothing
|
|
32
|
+
End Sub
|
|
33
|
+
```
|
|
34
|
+
|
|
35
|
+
RecordSource はテーブル名またはクエリ名の文字列でRecordsetではありません。
|
|
36
|
+
このコードでは、『コントロールは両方ともプロパティでVisibleになっています。』とのことですので、[titlePA]は常に表示されます。
|
|
37
|
+
|
|
38
|
+
[Grupo] Like "*09" のレコードが存在するかどうかで表示/非表示を切り替えることをVBAを使わずに実現するには、下記のように設定します。
|
|
39
|
+
レポートヘッダーまたはれポートフッターにテキストボックスを配置します。
|
|
40
|
+
コントロールソースを下記のよう設定します。
|
|
41
|
+
|
|
42
|
+
`=IIf(Sum([Grupo] Like "*09")=0,"表示したいテキスト","")'
|