質問編集履歴
1
詳細記載
test
CHANGED
File without changes
|
test
CHANGED
@@ -2,6 +2,26 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
|
5
|
+
担当者と代表者が同じだった場合、フォーム内に作成したボタンで、コピー貼付けをするような
|
6
6
|
|
7
|
-
|
7
|
+
ものなのですが、エラーが出てしまいます。
|
8
|
+
|
9
|
+
|
10
|
+
|
11
|
+
Private Sub btn__RepresentativesNameCopy_Click()
|
12
|
+
|
13
|
+
If Me.代表者名.Value <> "" Then
|
14
|
+
|
15
|
+
Me.担当者名.Value = Me.代表者名.Value
|
16
|
+
|
17
|
+
Me.担当者名フリガナ.Value = Me.代表者名フリガナ.Value
|
18
|
+
|
19
|
+
Me.Recalc
|
20
|
+
|
21
|
+
End If
|
22
|
+
|
23
|
+
End Sub
|
24
|
+
|
25
|
+
|
26
|
+
|
27
|
+
担当者名、契約者名までは反映されるのですが、担当者名フリガナ、代表者名フリガナがエラーになります。
|