けむしろうの部屋別館

12月30日の日記に引き続いて家計簿をMS-Accessで作ってます。
マクロ内からテーブルのレコードを操作する方法が分からず、結局VBAを使ってイベントプロシージャを書いてしまいました。



このフォームの「年」と「月日」に入力されたテキスト(「月日」は"0107"のような4桁の文字列)を日付に変換してテーブル内のフィールド「日付」に保存する処理でてこずっていたのですが、以下のようにしてみました。レコードの更新前というイベントに対する処理を記述しています。

Private Sub Form_BeforeInsert(Cancel As Integer)

    Me!日付 = DateSerial([Forms]![通常入力]![年], _

              [Forms]![通常入力]![月日] / 100, _

              [Forms]![通常入力]![月日] Mod 100)

    If Forms!通常入力!フレーム6 = 1 Then

        Me!入出金分類 = True

    Else

        Me!入出金分類 = False

    End If

    Me!登録日 = Date

    Me!登録時刻 = Time

End Sub

VBAでは自分自身のオブジェクトを参照するのに「Me」という識別子を使うんですね。普通は「this」だと思うんですが何か理由があるのでしょうか。
ちょっと調べてみたいところです。

とりあえず家計簿の方は通常運用に入ってデータが入り始めました。
次は集計機能を作り込んでいこうと思います。