|
▼247b さん:
ご親切に新たなコードまでご教示いただき本当にありがとうございます。
まず、
>'Spin移動.Max = レコード数取得 + 1
を
>Spin移動.Max = レコード数取得
に修正したところ、支給台帳の最終行のデータが反映されません。
TextレコードでSPIN移動の現在行を表示しているのですが、56/57までで57/57の表示がされません。(最終行は57行)
またご教示いただいたコードを修正、追記しました。
また新規の
>'これはクラスモジュールです。
>'クラスモジュールを新規作成し、プログラムを貼り付けてください。
>'プロパティウィンドウの(オブジェクト名)を「clsFinder」に変更してください。
のご指示どおり、クラスモジュール作成もしましたが、
実行すると、まず何らのエラーメッセージもされず、通常にUSER_FORMも表示されますが、Combo社員ID欄は空欄で、リストが表示されていません。
後、次の修正部分で、「If .ListIndex < 1 Then Exit Sub」は、そのまま残せばいいんですね?
> With Combo社員ID
> If .ListIndex < 1 Then Exit Sub
>' Combo社員ID.Value = .List(.ListIndex, 0) 247b del
>' Text氏名.Value = .List(.ListIndex, 1)
>' Text所属.Value = .List(.ListIndex, 2)>
引き続きお助けください!!!!!
|
|