Microsoft Access 掲示板

その仕様は私もよく使いますが、そのような現象は経験ないですね。
新規にフォームを作成して、同様の設定をしても現象が再現しますか。

現状のコンボボックスの設定、フォーカス取得時のコードを提示してもらえませんか。

以下の２つがイベントプロシージャのコードです。
そのままを、コピペしました。

帳票で以下のコードでは正常にドロップダウンするのです。

Private Sub cbo仕入先ID_GotFocus()
  Me!cbo仕入先ID.Dropdown
End Sub

入力後、サブフォームで以下のコードの時は、一瞬だけドロップダウンして、
すぐ、消えます。しかし、2行目からは正常にドロップダウンするのです。

Private Sub cbo商品ID_GotFocus()
  Me.cbo商品ID.Dropdown
End Sub

[cbo商品ID]の値集合ソースは
SELECT Ｔ商品マスタ.商品ＩＤ, Ｔ商品マスタ.商品名, Ｔ商品マスタ.仕入先ＩＤ
FROM Ｔ商品マスタ
WHERE (((Ｔ商品マスタ.仕入先ＩＤ)=[parent]![cbo仕入先ＩＤ]))
ORDER BY Ｔ商品マスタ.商品名;
です。

以下は、サブフォームを使用せず、表形式のフォームなのですが、
先頭行でのみ、一瞬だけドロップダウンして、すぐ消えます。
これも同様に2行目からは正常にドロップダウンします。

Private Sub cbo食材ID_GotFocus()
  Me.cbo食材ID.Dropdown
End Sub

[cbo食材ID]の値集合ソースは
SELECT Ｔ食材.食材名, T食材分類.食材分類名, Format([㌍],"@@@") AS ｶﾛﾘｰ, Ｔ食材.食材ＩＤ, [×Q食材1].食材名のカウント
FROM (×Q食材1 RIGHT JOIN Ｔ食材 ON [×Q食材1].食材ＩＤ = Ｔ食材.食材ＩＤ) INNER JOIN T食材分類 ON Ｔ食材.食材分類ID = T食材分類.食材分類ID
ORDER BY [×Q食材1].食材名のカウント DESC , Ｔ食材.食材名;
です。

今まで、コピーしたり、新規にも何度となく試したのですが
だめでした。私ではお手上げです。
どちらも2行目以降は正常にドロップダウンするのです。
他には、特に変わった設定はしてないと思います。
どちらもフォーカス取得後以外にイベントはありません。
hatenaさんが未経験なことか、私に起こるとはなんとも不思議です。

フォーカス取得後イベント(GotFocus)をフォーカス取得時イベント(Enter)に変更したらどうなりますか。
私の場合は、Enter を使っています。

２つとも
フォーカス取得時イベント(Enter)
に変更してみましたが、同じでした。
そして、2行目からは正常にドロップダウンします。

わかりました。
ただ、仕入先等の情報がありますので
今日中には、データを作って送信します。

仕入データのあるものは、控えました。
もう一つの、日々の食事データを入力しているものを
送信しました。よろしくお願いします。

送信ファイル、拝見しました。
開いたときに最初にフォーカスがくるのがコンボボックスのとき、症状がでるようです。

txt時刻の「タブストップ」を「はい」にすると開いたときこれに最初にフォーカスがきますので、その後、コンボボックスにフォーカスを移動するようにすればいいでしょう。

ただし、開く時イベントでフォーカス移動しても同じ症状になるので、タイマーイベントを使って少し遅らせてフォーカス移動させるようにすれば、コンボボックスのリストを開いた状態にできます。

txt時刻
 タブストップ　いいえ

フォーム
　タイマー時　[イベント プロシージャ]　
　タイマー間隔　0

Private Sub Form_Timer()
    Me.TimerInterval = 0 'タイマー時イベント停止
    Me.cbo食材ID.SetFocus
End Sub

「開く時」のイベントプロシージャのコードは「読み込み時」(Form_Load)のイベントプロシージャに移動して、下記のように修正してください。

Private Sub Form_Load()
    If Me.OpenArgs = "ShowObj" Then Exit Sub
    Dim dTime
    Dim nSyoukei As Long
    Dim nKeikaFun As Integer
    Dim s1 As String
    Dim c1 As Integer
    Echo False
    If Me.Recordset.RecordCount = 0 Then
        Me.txt時刻.TabStop = False
        Me.TimerInterval = 10 '10ミリ秒後にタイマー時イベント実行
    Else

    '略 

    End If
    Echo True
End Sub

修正済みファイルは下記からダウンロードできます。

修正ファイル

ひとつ変化がありました。

なんと、Enter に変更した仕入伝票のサブフォームの明細入力が
一行目からドロップダウンしました。

指摘された時は、ドロップダウンしなかったのですが、
今、新しいデータを入力すると、ドロップダウンしました。

送信した 食事明細入力.accdb はドロップダウンしないことは
一度確認しましたが、なんだか訳が分かりません。

すみません。
今、新しい仕入データを入力すると
やはり、ドロップダウンしませんでした。

開いた時最初にフォーカスするのがコンボボックスの時に症状がでるとの指摘が
的を射ていました。

私は、まったく気づきませんでした。

なぜかは、分かりませんが、問題は解決しました。

ありがとうございました。

本筋から外れるかもしれませんが、

もう一つの帳票は、コンボボックスにフォーカスする前に
日付を入力するようになっているため、そこでは正常にドロップダウンして、
サブフォームを入力する場合は、最初にコンボボックスにフォーカスします。

一つの入力フォームしか、見せていないのに
なぜ、開いた時最初にフォーカスするのがコンボボックスの時に症状がでると
判断できたのか、知りたいです。

すみません。
開いた時に最初にフォーカスするのがコンボボックスで
その時、症状がでるのは、分かっていることでした。

なにぶん、長期間にわたり、解決しなかった事が
一瞬で解決してしまった事に、戸惑っています。