Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2164 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【3617】フォーカスの移動 ぷー 04/10/1(金) 14:51 質問[未読]
【3618】Re:フォーカスの移動 クロ 04/10/1(金) 15:31 回答[未読]
【3619】Re:フォーカスの移動 ぷー 04/10/1(金) 15:45 質問[未読]
【3620】Re:フォーカスの移動 クロ 04/10/1(金) 15:57 回答[未読]
【3621】Re:フォーカスの移動 ぷー 04/10/1(金) 16:17 質問[未読]
【3622】Re:フォーカスの移動 クロ 04/10/1(金) 16:20 回答[未読]
【3623】Re:フォーカスの移動 ぷー 04/10/1(金) 16:54 質問[未読]
【3624】Re:フォーカスの移動 クロ 04/10/1(金) 17:18 回答[未読]
【3625】Re:フォーカスの移動 ぷー 04/10/1(金) 17:26 質問[未読]
【3626】Re:フォーカスの移動 クロ 04/10/1(金) 17:40 回答[未読]
【3627】Re:フォーカスの移動 ぷー 04/10/1(金) 18:10 質問[未読]
【3628】Re:フォーカスの移動 クロ 04/10/2(土) 10:30 回答[未読]
【3644】Re:それともう一つ クロ 04/10/4(月) 9:19 回答[未読]
【3654】Re:それともう一つ ぷー 04/10/5(火) 19:10 お礼[未読]
【3617】フォーカスの移動
質問  ぷー  - 04/10/1(金) 14:51 -
引用なし
パスワード
   またお世話になります。
リストボックス（検索リスト）上にあるフォーカスを他のテキストボックス
（雑誌コード）にフォーカスを移動したいのですが、下記の様にしたらエラ
ーになってしまいます。
雑誌コードにフォーカスを移動するにはどうしたら良いでしょうか？
コントロールがリストボックス上にあるからだとは思うのですが、どうした
ら良いか解りません。
どなたか、教えてください！

Private Sub 検索リスト移動()
　　rs = Me.CurrentRecord
　　検索リスト.SetFocus
　　If 処理区分 <> "新規" Then
　　　 Me!検索リスト.ListIndex = rs - 1
　　End If
　　雑誌コード.SetFocus
End Sub

エラー：コントロール"雑誌コード"にフォーカスを移動することができません。
　　　　
【3618】Re:フォーカスの移動
回答  クロ  - 04/10/1(金) 15:31 -
引用なし
パスワード
   検索リスト移動はコマンドボタンでしょうか？

このボタンを押下することで
フォーム上の「検索リスト」(これはリストボックス？)にフォーカスを移し
フォームで表示しているレコードの「処理区分」コントロールの値が「新規」で
なかったらフォームのレコードと検索リスト内のリストと同じものを選択し、
雑誌コードにフォーカスを移す。
「処理区分」コントロールの値が「新規」だったら何もせずに雑誌コードにフォ
ーカスを移す。
ということですよね

検証したら問題ないようですが？

1) 雑誌コードのコントロールは何ですか？
2) 雑誌コードコントロールの「名前」を確認する
【3619】Re:フォーカスの移動
質問  ぷー  - 04/10/1(金) 15:45 -
引用なし
パスワード
   クロさん、いつもありがとうございます。

>検索リスト移動はコマンドボタンでしょうか？
検索リストはリストボックスです。

>このボタンを押下することで
>フォーム上の「検索リスト」(これはリストボックス？)にフォーカスを移し
>フォームで表示しているレコードの「処理区分」コントロールの値が「新規」で
>なかったらフォームのレコードと検索リスト内のリストと同じものを選択し、
>雑誌コードにフォーカスを移す。
>「処理区分」コントロールの値が「新規」だったら何もせずに雑誌コードにフォ
>ーカスを移す。
>ということですよね
はい、そうです。

>1) 雑誌コードのコントロールは何ですか？
テキストボックスです。

>2) 雑誌コードコントロールの「名前」を確認する
名前は間違いありませんでした。

リストボックス（検索リスト）にフォーカスを移動する前だと、雑誌コードへの
フォーカスは実行されますが、一度リストボックスにフォーカスが移動してしま
うとエラーになってしまいます。どうしてでしょうか？
よろしくお願いいたします。
【3620】Re:フォーカスの移動
回答  クロ  - 04/10/1(金) 15:57 -
引用なし
パスワード
   >>検索リスト移動はコマンドボタンでしょうか？
>検索リストはリストボックスです。

微妙に答えが...ちがうような？

「処理区分」コントロールの値が「新規」の時は瞬時に雑誌コードに
フォーカス移動し、そうでないときはリストボックスで同リストに移
動してから雑誌コードにフォーカス移ります。

「処理区分」がどのような場合でも雑誌コードにフォーカスが移らないのでしょうか？
【3621】Re:フォーカスの移動
質問  ぷー  - 04/10/1(金) 16:17 -
引用なし
パスワード
   何度も申し訳ありません。

>「処理区分」コントロールの値が「新規」の時は瞬時に雑誌コードに
>フォーカス移動し、そうでないときはリストボックスで同リストに移
>動してから雑誌コードにフォーカス移ります。
そうです、そうのような動きにしたいのですが・・・

>「処理区分」がどのような場合でも雑誌コードにフォーカスが移らないのでしょうか？
新規の時はうまくいきました。
【3622】Re:フォーカスの移動
回答  クロ  - 04/10/1(金) 16:20 -
引用なし
パスワード
   一応、私は以下のように書きました。

　　Me.検索リスト.SetFocus
　　If 処理区分 <> "新規" Then
　　　 Me.検索リスト.ListIndex = Me.CurrentRecord - 1
　　End If
　　Me.雑誌コード.SetFocus
【3623】Re:フォーカスの移動
質問  ぷー  - 04/10/1(金) 16:54 -
引用なし
パスワード
   クロ さん、本当に何度もありがとうございます。

>一応、私は以下のように書きました。
同様にして試しましたが、結果は同じでした。
ListIndexの後にSetfocusをするときは、Listindexの解除？のような
ものが必要なんでしょうか？
よろしくお願いいたします。
【3624】Re:フォーカスの移動
回答  クロ  - 04/10/1(金) 17:18 -
引用なし
パスワード
   検索リストボックスは複数のレコードを選択する場合が
ありますか？

ないのでしたら検索リストボックスプロパティの「複数選択」を
確認して「標準」「拡張」でしたら「しない」にしてみてください。
【3625】Re:フォーカスの移動
質問  ぷー  - 04/10/1(金) 17:26 -
引用なし
パスワード
   >ないのでしたら検索リストボックスプロパティの「複数選択」を
>確認して「標準」「拡張」でしたら「しない」にしてみてください。

「しない」になっていました。
【3626】Re:フォーカスの移動
回答  クロ  - 04/10/1(金) 17:40 -
引用なし
パスワード
   検索リストボックスのフォーカス取得時か何かに
別のイベントを入れてますか？
【3627】Re:フォーカスの移動
質問  ぷー  - 04/10/1(金) 18:10 -
引用なし
パスワード
   >検索リストボックスのフォーカス取得時か何かに
>別のイベントを入れてますか？

はい。クリック時に次の処理をしています。

Private Sub 検索リスト_Click()
　　　　
　　件数_WK = Me.検索リスト.ListIndex + 1
　　DoCmd.GoToRecord acDataForm, "S0010　雑誌MＸ のコピー", _
　　　　　　　　　　　　　　　　　　　　　　　　 acGoTo, 件数_WK
　　Me.Repaint

End Sub

※いろいろためしてみたら、上手く実行されている時もありました。
エラーになるのは、検索リストをクリックした時のみです。
何度もすみません。よろしくお願いいたします。
【3628】Re:フォーカスの移動
回答  クロ  - 04/10/2(土) 10:30 -
引用なし
パスワード
   ▼ぷー さん：
>>検索リストボックスのフォーカス取得時か何かに
>>別のイベントを入れてますか？
>
>はい。クリック時に次の処理をしています。
>
>Private Sub 検索リスト_Click()
>　　　　
>　　件数_WK = Me.検索リスト.ListIndex + 1
>　　DoCmd.GoToRecord acDataForm, "S0010　雑誌MＸ のコピー", _
>　　　　　　　　　　　　　　　　　　　　　　　　 acGoTo, 件数_WK
>　　Me.Repaint
>
>End Sub
>
>※いろいろためしてみたら、上手く実行されている時もありました。
>エラーになるのは、検索リストをクリックした時のみです。
>何度もすみません。よろしくお願いいたします。

ちなみに「S0010　雑誌MＸ のコピー」って別フォームでいいのでしょうか？
とりあえず別フォームってことでやってみましたが、問題なく検索リストで
クリック時も「検索リスト移動」ボタンでのイベント時もエラーになりません。
※「S0010　雑誌MＸ のコピー」が開いているという前提
【3644】Re:それともう一つ
回答  クロ  - 04/10/4(月) 9:19 -
引用なし
パスワード
   > ※いろいろためしてみたら、上手く実行されている時もありました。
> エラーになるのは、検索リストをクリックした時のみです。
> 何度もすみません。よろしくお願いいたします。

とありますがどのタイミングで検索リストをクリックするのでしょうか？
件のコード(フォーカス移動)では無理では？
【3654】Re:それともう一つ
お礼  ぷー  - 04/10/5(火) 19:10 -
引用なし
パスワード
   いろいろとアドバイスありがとうございました。
やはり、タイミングの問題でした。
クロさんもご自分でわざわざ試していただけたようで、申し訳ありませんでした。
思い通りに動作するようになりました。
本当にありがとうございました。
まだまだ、勉強不足です･･･　
今後もよろしくお願いいたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2164 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078299
(SS)C-BOARD v3.8 is Free