Microsoft Access 掲示板

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

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

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

修正ファイル