Microsoft Access 掲示板

バーコードリーダーは「コード検索」テキストボックスにコードを読み込んだあと、EnterキーとかTabキーを送信して次のコントロールへ移動する仕様でしょうか。
で、ご希望のことは、バーコードリーダーで「コード検索」テキストボックスにコードを読み込んだ後、コントロール移動せずに「コード検索」テキストボックスにフォーカスをとどめておきたいということでしょうか。

もし、そうだとすると、
コード検索_LostFocusイベント内で、コード検索.SetFocus しても無意味です。
LostFocusイベント(フォーカス喪失後)内では、まだ、フォーカス移動はしていない、つまりコード検索にフォーカスがある。
LostFocusイベント終了後に、次のコントロールへフォーカス移動します。
フォーカス移動関係のイベント内でフォーカス移動のコントロールしようというのは無理があります。。

もし、フォーカス移動関連イベントで、フォーカス移動させないようにするには、Exitイベント(フォーカス喪失時)でイベントをキャンセルすることになります。

Private Sub コード検索_Exit(Cancel As Integer)
    Call コマンド24_Click
    Cancel = True
End Sub

ただし、これをするといったんコード検索にフォーカス移動したら二度とそこから出ることができなくなるので、
バーコードリーダーでデータを読み込んだときのみ Cancel = True するような条件処理が必要です。
こちては仕様が不明ですのて、その条件はそちらで考えてください。

最初の私の推測がことなっているなら、その辺の仕様をもう少し詳細に説明してください。

hatena さん
早速のご回答ありがとうございます。
フォーカスを「コード検索」テキストボックスにとどめておくというこではございません。

バーコードリーダーは「コード検索」テキストボックスにコードを読み込んだあと、Tabキーを送信する仕様です。
ですので、バーコードリーダーを1回クリックすると、「コマンド24」ボタンにフォーカスが移動し、
「コード検索」のLostFocusイベントで、「コマンド24」をクリックさせる。
クリックさせることによってPDF表示させて「コード検索」に戻すという動作になります。
コントロールを「コード検索」⇒「コマンド24」⇒「PDF表示」⇒「コード検索」に戻すということです。
「PDF表示」までは動作しており、最後「コード検索」にフォーカスがあたりません。
（コントールは移動しているが、フォーカスがあたってない？）

ただ、「PDF表示」後の

     [Forms]![フォーム1]![コード検索] = Null

は効いています。コントロールは移動しているということでしょうか。

1つ気になるのは、PDF表示させている「WEBブラウザ」コントロールを表示させたままだからなのかなと思いましたが、
関係ないでしょうか。

ご教授をお願いいたします。

 バーコードリーダーは「コード検索」テキストボックスにコードを読み込んだあと、Tabキーを送信する仕様です。
ですので、バーコードリーダーを1回クリックすると、「コマンド24」ボタンにフォーカスが移動し、
「コード検索」のLostFocusイベントで、「コマンド24」をクリックさせる。
クリックさせることによってPDF表示させて「コード検索」に戻すという動作になります。

 読み込み前は「コード検索」にフォーカス、読み込み後も最終的には「コード検索」にフォーカスといういことですよね。

ひょっとするとCall コマンド24_Clickはコマンド24にフォーカスがないと有効でないと勘違いしているのかな？
Call コマンド24_Clickはコマンド24にフォーカスがなくても実行されます。

前の回答でもいいましたが、LostFocusイベント内で「コード検索」に戻すことはできません。
繰り返しになりますが質問のコードだと詳細に説明すると下記のような動作になります。

コード検索_LostFocusイベント発生(コード検索にフォーカスがある状態)
  Call コマンド24_Click実行
    「WEBブラウザ」にPDF表示

    [Forms]![フォーム1]![コード検索].SetFocus
     ↑この時点ではコード検索にフォーカスがある状態なので無意味なコマンド

コード検索_LostFocusイベント終了後
  Tabキーの動作により次のコントロール(コマンド24)にフォーカス移動

つまり、LostFocusイベント内でSetFocusを実行しても無意味ということです。

そして、最終的に「コード検索」にフォーカスがある状態にしたいのなら、Exitイベント(フォーカス喪失時)でイベントをキャンセルします。

とりあえず下記のコードで想定の動作になりませんか。

Option Compare Database
Option Explicit
Dim コード検索更新 As Boolean

Private Sub コード検索_AfterUpdate()
    Debug.Print コード検索.Value
    コード検索更新 = True
End Sub

Private Sub コード検索_Exit(Cancel As Integer)
    '更新されていて、かつ、12桁の数字(JANコードを想定)になっている
    If コード検索更新 = True And Me.コード検索.Text Like "############" Then
        Cancel = True  'イベントのキャンセル
        Call コマンド24_Click
    End If
    コード検索更新 = False
End Sub

Private Sub コマンド24_Click()
  '以下略

バーコードリーダーは利用したことがないのであくまで想像で書いたコードですので想定の動作になるかは分かりません。
また、12桁のJANコードという想定が書いていますので、実際のコードの仕様に合わせて変更してください。

hatena さん

再度のご回答ありがとうございます。
おっしゃる事が理解できたような気がします。
SetFocusでフォーカス移動させた気になっていましたが、結局はTABキーによる移動しかしていなかったということですね。
各所で「Screen.ActieControl.Name」でメッセージ表示させてみましたが、「コード検索」と表示されていました。
無意味なSetFocusコマンドだということがわかりました。

そこで、ご提示いただいたコードを試してみましたが、やはりフォーカスがどこにもあたっていない状態となってしまいます。
Exitイベント(フォーカス喪失時)でキャンセルするイベントとは何にあたるのでしょうか。

恥ずかしながら無知なまま作成しておりますので、大変お手数をおかけしますが、
引き続きご教授をお願いいたします。

ところで、私が言うフォーカスがあたっていないという症状は下記の通りですが、
フォーカルがあたらないという表現で良かったのでしょうか。

　①「コード検索」でカーソルが表示してしない
　②キーボード操作を受け付けない
　③マウスポインタは表示している
　④マウスポインタを「コード検索」にあて、クリックするとカーソル表示される

ところで、私が言うフォーカスがあたっていないという症状は下記の通りですが、
フォーカルがあたらないという表現で良かったのでしょうか。

　①「コード検索」でカーソルが表示してしない
　②キーボード操作を受け付けない
　③マウスポインタは表示している
　④マウスポインタを「コード検索」にあて、クリックするとカーソル表示される

WEBブラウザコントロールを配置したサンプルを作成して実験したら症状が再現しました。
WEBブラウザのコントロールソースを設定するとフォーカスが消えてしまうような感じですね。

同一フォーム内がWEBブラウザコントロールあると症状が発生するようなので、
別フォームにWEBブラウザコントロールを配置して、そのフォームをサブフォームとして配置してみたら、
フォーカスは消えるという症状は発生せずうまく動作するようになりました。

試してみてはどうでしょう。

Exitイベント(フォーカス喪失時)でキャンセルするイベントとは何にあたるのでしょうか。

各イベントは「ACCESSが」管理しています。通常、Exitイベントが終了するとLostFocusイベントが発生し、次のコントロールにフォーカスが移動し、そのコントロールのEnterイベント等が発生します
Exitイベントにより実行されるxxx_ExitプロシージャでCancel = Trueを設定すると、この、「Exitイベントが完了後、ACCESSが次に実行する制御」が中断されます

Webブラウザコントロールの制御が怪しいということで、hirotonもちょっと試してみましたが、かなり怪しいですね
ブラウザの読み込み処理などでおかしなことになっているような感じです。DoEvents等加えると、また違った挙動が発生します。hatenaさん提示のとおり、フォームを変える（サブフォームにする）ことで対応できるならそうしたほうがよさそうです