質問編集履歴
3
ｒ
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -44,7 +44,7 @@
|
|
|
44
44
|
サブフォームのコントロールを取得する](http://www.accessclub.jp/bibouroku/019.html)
|
|
45
45
|
上記URLを参考に、元のコード4行目部分を下記の用に書き換えたところ、
|
|
46
46
|
```ここに言語を入力
|
|
47
|
-
Me![テーブル3（サブフォーム名）].Form![label7月（サブフォームのコントロール）]
|
|
47
|
+
Me![テーブル3（サブフォーム名）].Form![label7月（サブフォームのコントロール）].Value = "7月"
|
|
48
48
|
```
|
|
49
49
|
変わらず同じエラーが出てしまいました。。。
|
|
50
50
|
なにが間違っているのでしょうか…。
|
2
追加
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -26,7 +26,6 @@
|
|
|
26
26
|
```
|
|
27
27
|
|
|
28
28
|
|
|
29
|
-
|
|
30
29
|
上記のように書いても動作しません。
|
|
31
30
|
エラー名は、
|
|
32
31
|
**実行時エラー438
|
|
@@ -39,6 +38,18 @@
|
|
|
39
38
|
サンプルコードなど頂けると、幸いです。
|
|
40
39
|
どうかよろしくお願いいたします。
|
|
41
40
|
|
|
41
|
+
***************追記***************
|
|
42
|
+
※コード修正
|
|
43
|
+
[
|
|
44
|
+
サブフォームのコントロールを取得する](http://www.accessclub.jp/bibouroku/019.html)
|
|
45
|
+
上記URLを参考に、元のコード4行目部分を下記の用に書き換えたところ、
|
|
46
|
+
```ここに言語を入力
|
|
47
|
+
Me![テーブル3（サブフォーム名）].Form![label7月（サブフォームのコントロール）]
|
|
48
|
+
```
|
|
49
|
+
変わらず同じエラーが出てしまいました。。。
|
|
50
|
+
なにが間違っているのでしょうか…。
|
|
51
|
+
引き続きどうぞよろしくお願いいたします。
|
|
52
|
+
************************************
|
|
42
53
|
|
|
43
54
|
※下記画像は同フォームのデザインビューです。
|
|
44
55
|
|
1
修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -19,9 +19,10 @@
|
|
|
19
19
|
Private Sub cmb期_AfterUpdate()
|
|
20
20
|
Const H1 = 07
|
|
21
21
|
|
|
22
|
-
If Me!cmb期.Value = H1 Then
|
|
22
|
+
If Me!cmb期.Value = H1 Then
|
|
23
|
-
Form!テーブル3.label7月.Value = "7月" //「テーブル3」の後はデフォルトプロポーザルが表示されなくなっ
|
|
23
|
+
Form!テーブル3.label7月.Value = "7月" //「テーブル3」の後はデフォルトプロポーザルが表示されなくなっている状況
|
|
24
|
-
|
|
24
|
+
End If //候補が無いので自分で記載しています
|
|
25
|
+
|
|
25
26
|
```
|
|
26
27
|
|
|
27
28
|
|