アクセスVBAについて教えてください。

解決済

質問者：shinnnosuke
質問日時：2001/11/26 17:52
回答数：1件

Private Sub Form_ApplyFilter
If ApplyType = acShowAllRecords Then
フィルタオプション = 1
ElseIf Filter <> “都道府県 = ‘東京都’” Then
フィルタオプション = Null
End if
End Sub

アクセスVBAの次の２行について教えてください。
よろしくお願いします。

ApplyType = acShowAllRecords
ElseIf Filter <> “都道府県 = ‘東京都’” Then

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (1件)

ベストアンサー優先
最新から表示
回答順に表示

No.1ベストアンサー

回答者： Watapo3
回答日時：2001/11/26 18:28

フィルタ実行時のイベントだと思いますが、

＞ApplyType = acShowAllRecords
フィルタが全レコードの表示の時

＞ElseIf Filter <> “都道府県 = ‘東京都’” Then
前記の条件以外で、フィルタが「都道府県 = "東京都"」出ないならば・・・

とでも言うのでしょうか・・・無理やり日本語に直すとすれば・・・(^ ^;
詳しくはHelpの「ApplyFilter イベント」・「If...Then...Else ステートメント」をご参考に!!