Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Access 2016)
リストボックスに一部非表示
投稿日時: 20/08/06 12:54:33
投稿者: miyama2305

テーブル名 MT勘定科目
勘定科目NO/勘定科目
3331------/前期繰越
3333------/剰余金
4111------/売上
4115------/売上値引
5111------/期首棚卸
5211------/仕入
5214------/工事原価
5415------/仕入値引
5311------/期末棚卸
5411------/期首材料
上記のように勘定科目を表示しています
 
フォームのリストボックスにデータ入力で、勘定科目一覧表を表示するため
リストボックスの集計ソースに
SELECT [勘定科目NO], 勘定科目 FROM MT勘定科目 WHERE [勘定科目No] Between 4111 And 5311;
を記入しました。
リストボックスに以下のように表示します。
4111------/売上
4115------/売上値引
5111------/期首棚卸
5211------/仕入
5214------/工事原価
5415------/仕入値引
5311------/期末棚卸
ただ、「5214」は集計のための科目です。
入力用ではないので非表示にしたいのですが。
以下のようにです。
4111------/売上
4115------/売上値引
5111------/期首棚卸
5211------/仕入
5415------/仕入値引
5311------/期末棚卸
おねがい申します。
 
 
 
 
 

回答
投稿日時: 20/08/06 13:26:37
投稿者: Suzu

いきなり レコードソースにSQLを指定するのではなく
クエリを使用し、必要なレコードとなる様に クエリを組んでみましょう。
 
 
クエリのデザインビューであれば
 

フィールド	勘定科目NO	勘定科目	勘定科目NO
テーブル	MT勘定科目	MT勘定科目	MT勘定科目
並べ替え
表示		レ			レ
抽出条件	Between 4111 And 5311		<>5214
または

希望通りの結果になったら、クエリを SQLビュー に変えて SQLを確認してみましょう。

投稿日時: 20/08/06 14:46:27
投稿者: miyama2305

Suzu様
 
理解しやすく、応用できます
説明ありがとうございます
感謝します。