NaruTo の Enumerator

はじめに

問題1
Private Sub アイテム1点数_Box_KeyDown(KeyCode As Integer, Shift As Integer) 点数_Box_KeyDown [アイテム1点数_Box], KeyCode, Shift End Sub
と同様のコードを[アイテム2点数_Box]～[アイテム8点数_Box]に対しても入力せよ。

解答例

男は根性・力技
- (メモ帳、Access95 の VBAエディタ等あるいはエディタというものに精通していないユーザー)

問題2

 rst.AddNew
     rst![DisplayItemFieldA] = varStrFieldA
     rst![DisplayItemFieldB] = varStrFieldB
     rst![DisplayItemFieldC] = varStrFieldC
     rst![DisplayItemFieldD] = varStrFieldD
     rst![SummarySection] = Cells(iRow, 5)
     rst![AllowRename] = IIf(Cells(iRow, 6) = "○", True, False)
     rst![AllowChangeSection] = IIf(Cells(iRow, 7) = "○", True, False)
     rst![AllowUndisp] = IIf(Cells(iRow, 8) = "○", True, False)
     rst![Movable] = IIf(Cells(iRow, 9) = "○", True, False)
     rst![DeleteInfo] = Cells(iRow, 10)
     rst![ItemInfo] = Cells(iRow, 11)
     rst![Subject] = Cells(iRow, 12)
 rst.Update

で