質問編集履歴
1
マークダウン記法に変更しました。勉強になりました、ご指摘ありがとうございます。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -24,6 +24,10 @@
|
|
|
24
24
|
|
|
25
25
|
|
|
26
26
|
|
|
27
|
+
```VBA
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
|
|
27
31
|
Dim db As DAO.Database
|
|
28
32
|
|
|
29
33
|
Dim rs As DAO.Recordset
|
|
@@ -44,29 +48,29 @@
|
|
|
44
48
|
|
|
45
49
|
For Each fld In rs.Fields
|
|
46
50
|
|
|
47
|
-
With fld
|
|
51
|
+
With fld
|
|
48
52
|
|
|
49
|
-
’データ型が数値であれば
|
|
53
|
+
’データ型が数値であれば
|
|
50
54
|
|
|
51
|
-
If .Type = dbInteger Then
|
|
55
|
+
If .Type = dbInteger Then
|
|
52
56
|
|
|
53
|
-
'書式を「標準」、小数点を第3位に設定
|
|
57
|
+
'書式を「標準」、小数点を第3位に設定
|
|
54
58
|
|
|
55
59
|
Set prp = .CreateProperty("Format", dbDecimal, "Standard")
|
|
56
60
|
|
|
57
61
|
Set prp = .CreateProperty("DcimalPlaces", dbDecimal, 3)
|
|
58
62
|
|
|
59
|
-
|
|
63
|
+
.Properties.Append prp
|
|
60
64
|
|
|
61
|
-
|
|
65
|
+
End If
|
|
62
66
|
|
|
63
|
-
End
|
|
67
|
+
End With
|
|
64
68
|
|
|
65
|
-
End With
|
|
66
|
-
|
|
67
|
-
Next
|
|
69
|
+
Next
|
|
68
70
|
|
|
69
71
|
|
|
72
|
+
|
|
73
|
+
```
|
|
70
74
|
|
|
71
75
|
### 発生している問題・エラーメッセージ
|
|
72
76
|
|
|
@@ -88,13 +92,17 @@
|
|
|
88
92
|
|
|
89
93
|
|
|
90
94
|
|
|
95
|
+
```VBA
|
|
96
|
+
|
|
91
97
|
If .Type = dbDouble Then
|
|
92
98
|
|
|
93
|
-
|
|
99
|
+
Set prp = .CreateProperty("Format", dbDecimal, "Standard")
|
|
94
100
|
|
|
95
|
-
|
|
101
|
+
Set prp = .CreateProperty("DcimalPlaces", dbDecimal, 3)
|
|
96
102
|
|
|
97
103
|
EndIf
|
|
104
|
+
|
|
105
|
+
```
|
|
98
106
|
|
|
99
107
|
|
|
100
108
|
|