見積書一覧フォームから、請求書にまだ転記されていない見積書を抽出できるようにします。
図のようにコマンドボタンを配置します。
「未請求」のコマンドボタンには次のVBAコードを入力。
Private Sub コマンド33_Click()
Me.Filter = “請求書NO is Null”
Me.FilterOn = True
End Sub
「解除」には次のコードを入力。
Private Sub コマンド34_Click()
Me.FilterOn = False
End Sub
実行結果です。
未請求のみ抽出。つまり請求書NOが入力されていないデータの抽出です。
解除の抽出。
今朝は台風の接近で、
ジョグにも行けず、畑にも行けず、久しぶりののんびりした日曜日の朝です。
いろいろと考えなきゃいけないもやもやがあるので、そちらを片付けます。
本日も最後までお読みいただきありがとうございます。
