タグ別アーカイブ: AccessVBA

Accessで給与計算22~給与計算結果を保存するADOのコード②

前回給与計算クエリの計算結果を給与明細控えテーブルに移すコードを記しましたが、
このコードを少し解説します。

フォーム1のテキストボックスは、給与計算フォームを開いている状態でも、
その後ろで開いています。

続きを読む →

AccessVBAの基本4～データ型を選択してフォームを開く②

テキスト型と数値型の場合を解説しましたので、次は日付型の選択方法です。

フォーム1のコマンドボタンを追加して、イベントタブのクリック時に次のVBAコードを
入力します。

Private Sub コマンド4_Click()
DoCmd.OpenForm “サンプル”, , , “日付=#” & Me!テキスト0 & “#”
End Sub

書き方は#で囲みます。
テキスト型の「’」が「#」に変わったと思ってください。
続きを読む →

Accessで給与計算21~給与計算結果を保存するADOのコード

給与計算クエリの計算結果を、給与明細控えテーブルには
ADOを使って移します。

今回のサンプルファイルです。

給与計算　ADOコード

1 ファイル 1.22 MB

ダウンロード

最初に給与計算クエリに、給与明細テーブルの「ID」をフィールドに
追加します。
続きを読む →

AccessVBAの基本3～データ型を選択してフォームを開く

サンプルファイルをデータ型を選択して開きます。

下記のような簡単なサンプルフォームを作りました。
商品名はテキスト型、単価と数量は数値型です。

続きを読む →

Accessで給与計算19~給与計算フォームを開く

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

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

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

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

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

実行結果です。

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