|
こんばんわ
>'////////////////////////// ココから新規追加(質問箱から盗用)
>Private sub Combo社員ID_Change()
>Application.screenupdating = False
> With Me.Combo社員ID
> if .ListIndex < then Exit Sub
> Combo社員ID.value = .List(.ListIndex, 0)
> Text氏名.value = .List(.ListIndex, 1)
> Text所属.value = .List(.ListIndex, 2)
> ・
> ・
> ・
> Text標準報酬月額.value = .List(.ListIndex, 22)
> Text市県民税.value = .List(.ListIndex, 23)
>End With
>set r = Noting
>Application.screenupdating = True
>End Sub
エラーの内容と修正箇所から推測するに、上記のテキストボックスのValueプロパティへの値設定箇所のいずれかで問題が発生していることが考えられます。
・考えられることとしては、Combo社員ID.Rowsourceに指定している範囲と、上記にある、.List(.ListIndex,23)のような記述で指定している範囲が合致しているかどうか再確認してください。
ColumnCountプロパティに2を指定しているのに、Listプロパティで列を23まで指定しているのは合致しないように思うんですが。どうなんでしょう。
・エラーメッセージが表示されたときに「デバッグ」ボタンを押して、どのステップで止まっているか確認してみてください。
|
|