回答編集履歴
1
質問変更に対応
test
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
Option Explicit
|
|
4
4
|
|
|
5
5
|
Private Sub ID_AfterUpdate()
|
|
6
|
-
Select Case ID.Value
|
|
6
|
+
Select Case Left(ID.Value, 1)
|
|
7
7
|
Case "A"
|
|
8
8
|
種別 = "くだもの"
|
|
9
9
|
Case "B"
|