質問編集履歴
3
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -49,4 +49,4 @@
|
|
|
49
49
|
例: 工数計が100の時
|
|
50
50
|
①データベースで工数計を100→1000に書き換える。
|
|
51
51
|
②再計算を実施する。
|
|
52
|
-
③データベース上では再計算により1000→100に書き換わるが、フォームの表示は100→エラーになる。(Me.Refresh等を入れる前は、データベース上で1000→100に変
|
|
52
|
+
③データベース上では再計算により1000→100に書き換わるが、フォームの表示は100→エラーになる。(Me.Refresh等を入れる前は、データベース上で1000→100に変わってもフォームは1000のまま)
|
2
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -28,4 +28,25 @@
|
|
|
28
28
|
|
|
29
29
|
|
|
30
30
|
※追記
|
|
31
|
-
再計算処理に以下のコードを追加して動かしました。
|
|
31
|
+
再計算処理に以下のコードを追加して動かしました。
|
|
32
|
+
Me.Refresh
|
|
33
|
+
Me.Requery
|
|
34
|
+
Me.Repaint
|
|
35
|
+
これらを上から一つずつ
|
|
36
|
+
strSql = strSql & " 工数計 = 金額 / 単価"の下に追加して動かして見ました。
|
|
37
|
+
1回目
|
|
38
|
+
strSql = strSql & " 工数計 = 金額 / 単価"
|
|
39
|
+
Me.Refresh
|
|
40
|
+
2回目
|
|
41
|
+
strSql = strSql & " 工数計 = 金額 / 単価"
|
|
42
|
+
Me.Requery
|
|
43
|
+
3回目
|
|
44
|
+
strSql = strSql & " 工数計 = 金額 / 単価"
|
|
45
|
+
Me.Repaint
|
|
46
|
+
|
|
47
|
+
しかし、いずれもエラーと※フォームに表示されました。
|
|
48
|
+
※フォームは再計算する前のものが最初に表示されます。
|
|
49
|
+
例: 工数計が100の時
|
|
50
|
+
①データベースで工数計を100→1000に書き換える。
|
|
51
|
+
②再計算を実施する。
|
|
52
|
+
③データベース上では再計算により1000→100に書き換わるが、フォームの表示は100→エラーになる。(Me.Refresh等を入れる前は、データベース上で1000→100に変えてもフォームは1000→1000のまま)
|
1
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -24,4 +24,8 @@
|
|
|
24
24
|
strSql = strSql & " WHERE 番号 = '" & Me.番号 & "';"
|
|
25
25
|
Currentdb.Execute strSql
|
|
26
26
|
Else
|
|
27
|
-
(決済しない時の処理 以下略)
|
|
27
|
+
(決済しない時の処理 以下略)
|
|
28
|
+
|
|
29
|
+
|
|
30
|
+
※追記
|
|
31
|
+
再計算処理に以下のコードを追加して動かしました。
|