0

現時点で別のフォームを開き、いくつかのタイプの PartitionStyles と TrimFinishs (現在は 486) のすべてのレコードを表示する cmdbutton を含むフォームがあります。2 番目のフォームをフィルタリングして、必要な TrimFinish のみを表示できるようにする必要があります。

Private Sub lbl600SeriesS_Click() Dim stDocName As String Dim stLinkCriteria As String

stDocName = "frmModules"
stLinkCriteria = "Forms!frmModules![TrimFinish] = 1"
DoCmd.OpenForm stDocName, , , stLinkCriteria

サブ終了

現時点では、新しいレコードのみが表示されます。1 を使用して 162 のレコードがあるはずです。

4

1 に答える 1

1

frmModules の RecordSource のフィールドに基づいて stLinkCriteria を実行します。したがって、RecordSource に TrimFinish という名前の数値フィールドが含まれている場合は、次のようにしてみてください。

stLinkCriteria = "[TrimFinish] = 1"

RecordSource が複数のテーブルから抽出されたクエリである場合、フィールド名をテーブル エイリアスで修飾できます。

stLinkCriteria = "YourTableAlias.[TrimFinish] = 1"

それでも問題が解決しない場合は、質問を編集して frmModules の RecordSource を説明してください。クエリの場合は、クエリの SQL ビューに貼り付けます。

于 2010-03-30T18:10:18.023 に答える