Vba 与您的子表单查询相匹配）。然后，如果您进行了更改，是否对子窗体使用重新查询？ Private Sub TabbestEl91_Change() On Error GoTo eri Select Case TabbestEl91 Case 3 _Vba_Ms Access_Setfocus_Subform

Vba 与您的子表单查询相匹配）。然后，如果您进行了更改，是否对子窗体使用重新查询？ Private Sub TabbestEl91_Change() On Error GoTo eri Select Case TabbestEl91 Case 3

vba ms-access

Vba 与您的子表单查询相匹配）。然后，如果您进行了更改，是否对子窗体使用重新查询？ Private Sub TabbestEl91_Change() On Error GoTo eri Select Case TabbestEl91 Case 3 ,vba,ms-access,setfocus,subform,Vba,Ms Access,Setfocus,Subform,与您的子表单查询相匹配）。然后，如果您进行了更改，是否对子窗体使用重新查询？ Private Sub TabbestEl91_Change() On Error GoTo eri Select Case TabbestEl91 Case 3 'Inkoop Historie 'Forms("frmArtikelSubInkoopHistorie").SetFocus [Forms]![frmArtikelen].[frmArtikelSubInkoopHistor

与您的子表单查询相匹配）。然后，如果您进行了更改，是否对子窗体使用重新查询？

Private Sub TabbestEl91_Change()

On Error GoTo eri

Select Case TabbestEl91
    Case 3  'Inkoop Historie

    'Forms("frmArtikelSubInkoopHistorie").SetFocus
    [Forms]![frmArtikelen].[frmArtikelSubInkoopHistorie].SetFocus
    [Forms]![frmArtikelen].[frmArtikelSubInkoopHistorie].[Form].[Tekst33].SetFocus

  End Select

eri:
MsgBox (Err.Number)
MsgBox (Err.description)

End Sub

Forms![frmArtikelen]![frmArtikelSubInkoopHistorie].Form![Tekst33].SetFocus

Me.frmArtikelSubInkoopHistorie.SetFocus

Forms![frmArtikelen]![frmArtikelSubInkoopHistorie].Form![Tekst33].SetFocus