1

白のチェックボックスをクリックすると、サブフォームの W レコードが私のコードですが、正しく機能していないレースのみを除外する必要があります。前もって感謝します

Option Compare Database

Private Sub White_Click()

strFilter = "Race=W """ & Me.White.OnClick & """"
DoCmd.OpenForm "Home"
Forms!Home![Employees subform].Form.Filter = strFilter
Forms!Home![Employees subform].Form.FilterOn = True

End Sub
4

1 に答える 1

1

このステートメントは非常に紛らわしいです:

strFilter = "Race=W """ & Me.White.OnClick & """"

まずRace=Wです。次に、Me.White.OnClick の値があります。これがチェックボックスの場合、true/false 値が関連付けられますが、値を使用する場合のみです。

ソーステーブルによっては、おそらく次のようにする必要があります。

if me.white.value then
   strFilter = "Race = 'W'"
else
   strFilter = ""
end if

me.white.value についてはよくわかりません。別の変数である可能性があります。このようにすると、チェックボックスのオンとオフのクリックが可能になります

于 2013-03-17T15:39:03.047 に答える