MS Access преминава в зависимост от стойността на формуляра

Както Remou каза в своя отговор, свързаните таблици ще направят това по-лесно. Ако обаче имате заявка за преминаване с име MyQuery, можете да направите следното, за да накарате RowSource на контрола MyComboOrListBox да се актуализира динамично, когато стойността на CompanyID_Control се промени:

Private Sub CompanyID_Control_AfterUpdate()
Dim SQL As String, qdf AS DAO.QueryDef
    Set qdf = CurrentDB.QueryDefs("MyQuery")
    qdf.SQL = " SELECT  x.companyid, x.companyname, x.productid " & _
              " FROM x " & _
              " WHERE x.CompanyID =" & Me.CompanyID_Control & _
              " ORDER BY x.productid;"
    Me.MyComboOrListBox.RowSource = "MyQuery"
End Sub

Ще трябва също да зададете свойството AfterUpdate на CompanyID_Control на:
[Event Procedure].

Обърнете внимание, че дори ако използвате свързани таблици, както предлага Remou, пак ще ви трябва код в събитието AfterUpdate на CompanyID_Control, за да опресните своя combobox/listbox RowSource:

Private Sub CompanyID_Control_AfterUpdate()
    Me.MyComboOrListBox.Requery
End Sub

В някои случаи ще получите ефективни резултати, като напишете SQL SELECT, като използвате вашата заявка за преминаване като източник FROM:

  SELECT MyPassthrough.*
  FROM MyPassthrough
  WHERE [criteria here]

Това много вероятно ще бъде също толкова ефективно, колкото редактирането на QueryDef на преминаването в кода и ще се провали само когато преминаването не върне в собствения си SELECT полетата, по които трябва да филтрирате. Дали си струва да се промени или не зависи от това за какво използвате преминаването и колко сложно е то.

По принцип винаги избягвам да редактирам запазени QueryDefs. Помислете за това: колко често бихте променяли VIEW на SQL Server с DDL? Не често! В Access това може да доведе до незначително раздуване (или не толкова незначително в някои случаи) и винаги избягвам всичко, което причинява раздуване на предния край, доколкото това е възможно.

Ако таблица е свързана, можете просто да изпълните заявка срещу нея, сякаш е таблица на Access, това включва препращане към формуляри. Така:

SELECT * FROM MyLinkedTable
WHERE ID = Forms!MyForm!MyID

Ще работи добре.

За да промените трайно SQL на заявка, можете да използвате SQL свойството на QueryDef:

 Set qdf = CurrentDB.QueryDefs("MyQuery")
 qdf.SQL = "SELECT * FROM MyLinkedTable " & _
           "WHERE ID = " & Forms!MyForm!MyID  ''Or on MyForm, Me.MyID

Можете също така да зададете източник на запис на формуляр или източник на ред на комбо или списъчно поле на SQL низ, със свързана таблица е достатъчно просто:

 Me.RecordSource = "SELECT * FROM MyLinkedTable " & _
           "WHERE ID = " & Forms!MyForm!MyID  ''Or on MyForm, Me.MyID

Or

 Me.MyCombo.RowSource = "SELECT * FROM MyLinkedTable " & _
           "WHERE ID = Forms!MyForm!MyID"

Току-що го разбрах след тонове опити, това е лесно решение, създайте своето преминаване с всичко, което искате да извикате във формуляра, но го оставете празно, така че да извиква всичко и след това запазете преминаването. Затворете това и създайте нова заявка и добавете всяка колона от passthrou. Сега в критериите на новата заявка, която извиква passthrough, добавете [Forms]![Reporting]![CompanyID_Control]) и просто се уверете, че формулярът е отворен, трябва да работи също толкова бързо, но сега можете използвайте формулярите си