有難うございました。

> 結論から言って、できません。
> なぜなら、フォームのInputParametersプロパティと同じものが
> 存在しないからです

やはりそうでか、サンプルを参考に以下の方法で実現いたしました。。
Private Sub 支店CD_Enter()
    Dim bankCD As String
    Dim dq As String
        If IsNull(Me!銀行CD) Then
            Me!支店CD.RowSource = ""
        Else
            bankCD = Me!銀行CD
            dq = "'"
            Me!支店CD.RowSource = "SELECT 支店CD, 支店名 FROM T銀行 " &_
            " WHERE T銀行.銀行CD = " & dq & bankCD & dq & " ORDER BY 支店CD"
        End If
End Sub

有限会社志田電子工業
伊草　幸也
www.i-sdk.com
who@example.com
who@example.com