Microsoft Access 掲示板

Microsoft Access 掲示板

コンボボックスの連携に伴うもとになるクエリの値について / 3
3
hatena 2019/05/04 (土) 02:32:44 修正

T_勤怠

フィールド名データ型
社員IDオートナンバー型
社員IDテキスト型
日付日付/時刻型
開始時刻日付/時刻型
終了時刻日付/時刻型
業務No数値型
作業No数値型
備考テキスト型

業務名、作業名 フィールドは削除して、業務No、作業No フィールドを追加する。

T_業務マスタ　T_作業マスタ　T_社員マスタ は現状のままでOKです。

Q_勤怠 も 業務名、作業名 を 業務No、作業No に変更。

F_勤怠入力 の業務名、作業名のコンボボックスのプロパティを下記のように変更。

業務名のコンボボックス

プロパティ設定値
名前cb業務No
コントロールソース業務No
値集合ソースSELECT 業務No, 業務名称 FROM T_業務マスタ ORDER BY 業務No;
連列列1
列数2
列幅0cm
　
作業名のコンボボックス
プロパティ設定値
名前cb作業No
コントロールソース作業No
値集合ソースSELECT 作業No, 作業名 FROM T_作業マスタ WHERE 業務No=[cb業務No];
連列列1
列数2
列幅0cm
　
cb業務Noの更新後処理とフォームのレコード移動時のイベントプロシージャを下記のように記述。
 
Private Sub cb業務No_AfterUpdate()
    Me.cb作業No = Null
    Me.cb作業No.Requery
End Sub

Private Sub Form_Current()
    Me.cb作業No.Requery
End Sub

以上です。
修正したサンプルファイル

通報 ...