SetFocusの後にSubFormのAccess TextBoxを自動的に編集する必要があります。

Question

アクセスフォームのサブフォームにTabControlsを使用しようとしています。

私は、TabControlのページに埋め込まれたサブフォームを持っています。私はメインフォームの最後のデータ入力フィールドからサブフォームの最初のデータ入力フィールドに移動することにしました。

サブフォームのコントロールにSetFocusを設定すると、TextBoxをクリックせずに編集することはできません。すぐに編集を有効にするコマンドはありますか？

Private Sub ReadDate_AfterUpdate() 
    Dim myControl As Control 
    Set myControl = Forms!Data_Input!BOD_Data_Subform!textBoxToEdit 

    myControl.SetFocus 
End Sub 

ご協力いただきありがとうございます。メインフォームからサブフォーム上のコントロールを選択する必要が

Answer 1

2つのステップ
ために、次の操作を行います

• は、サブフォームコントロールを選択します。
• サブフォームで適切なコントロールを選択します。

例コード

Private Sub ReadDate_AfterUpdate() 
    Dim myControl As Control 

    ' Select the subform control first 
    Forms!Data_Input!BOD_Data_Subform.SetFocus 
    Doevents 

    ' Select the control on the subform. 
    Forms!Data_Input!BOD_Data_Subform.Form!textBoxToEdit.SetFocus 
End Sub 

*編集*

私はTabControlsがメインフォームに存在しなかった場合の答えが働くだろうと思います。これは、2つのプロセスであるが、この場合には最初のステップは次のとおりです。subDataTabControlは、タブコントロールの名前と0所与のページのインデックスである

Forms!Data_Input!subDataTabControl.Pages(0).SetFocus 

。