現状ではクエリを作成しただけなので、賞与計算をスタートするフォームを作ります。

以前作った給与計算をスタートさせるフォームをコピーして、
貼り付けたフォームをデザインビューで開き、コマンドボタンのイベントタブのクリック時
を開き、VBAコードを変更します。
給与計算をスタートさせる方法はこちらをご覧ください。
給与計算15
給与計算16

変更後のVBAコードです。
続きを読む →

設定漏れがあったので、少し戻ります。

給与計算クエリに、支給日をフィールドに追加します。

作成タブの既存のフィールドの追加をクリックし、支給日を給与計算フォームに追加します。

支給日は表示されなくてもいいので、可視プロパティを「いいえ」にします。

それではフォーム1から給与計算フォームを開きます。
フォーム1のコマンドボタンのVBAコードの最後の行の前に、次のコードを追加します。
Set cnn1 = Nothing
DoCmd.OpenForm “給与計算”, , , “支給日=#” & Me!テキスト0 & “#”
End Sub
太字が追加したコードです。
支給日をテキスト0（フォーム1のテキストボックスの値）のデータを選択してフォームを
開きます。日付の指定の仕方は若干独特ですが、数値型に加え「#」で囲むと覚えて下さい。
データ型によって若干コードが違いますが、これは習うより覚えた方が理解が早いと思います。

実行結果です。

フォーム1でテキストボックスに入力された日付で、ADOでデータが新たに追加され、
その追加されたデータを抽出してフォームに表示されました。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
今日はクリスマスイブ。といっても仕事でバタバタ。
最後に寄ったお客さんは、昨日クリスマスは済ませたとのこと。
なるほど！来年はそうしようと思った慌ただしいクリスマスイブでした。

メルマガを発行します。
ご興味がある方は、メルマガ発行します!
からメールアドレスの登録をお願いします。

本日も最後までお読み頂きありがとうございました。