Nawigacja do innej karty w podformularzu nawigacji
W bazie danych dostępowej ms 2010 mam pole listy, którego procedura aktualizacji wymaga (między innymi) przejścia do określonej karty w podformularzu nawigacji. Mogę go zmusić do zmiany właściwości SourceObject podformularza nawigacyjnego, ale wybrana karta nie zostanie zmieniona, więc użytkownik kończy wyświetlanie odpowiedniego obiektu źródłowego z wybraną nieprawidłową kartą. Wygląda to nieprofesjonalnie. Jak mogę zmienić zarówno wybraną kartę, jak i obiekt źródłowy?
Przesłałem uproszczoną bazę danych, która odtwarza problemta strona do udostępniania plików.
Pole listy, które wymaga zmienionej metody afterupdate, jest nazywanelstbxClients
. Oto moja aktualna wersja metody afterupdate, która obecnie powoduje błąd:
Private Sub lstbxClients_AfterUpdate()
Dim rst
Set rst = Me.RecordsetClone
rst.FindFirst "ClientNumber = " & lstbxClients.Column(0)
Me.Bookmark = rst.Bookmark
'Forms!Main!NavigationSubform.Form!NavigationSubform.SourceObject = "qryListCommunicationForms"
DoCmd.BrowseTo acBrowseToForm, "qryListCommunicationForms", "Forms!Main!NavigationSubform.Form!NavigationSubform"
Form.NavigationSubform " "
'Forms!Main!NavigationSubform.Form!NavigationSubform.SelectedTab = "CommFormsNavBtn"
Set rst = Nothing
End Sub
Jak zmienić powyższy kod, aby zmieniał zarówno wybraną kartę ORAZ obiekt źródłowy podformularza nawigacyjnego, gdy użytkownik kliknie inny rekord w polu listy?