アクセス小僧：フォームで１個前のレコードを参照

１２月も半ばということで、医療費をアクセスに入力していたのですが。。。

領収書番号は月ごとに１から連番でつけていたのですが、月が変わったときに自動的に１が入るようにフォームに仕掛けが作れないか、探っていたら、次の記事を発見しました。

フォームで前レコードの値を複写する関数
http://hatenachips.blog34.fc2.com/blog-entry-94.html

こんな関数らしいです。

Public Function PreviousDataCopy(Optional Ctl As Control)
    If Not Ctl Is Nothing Then Ctl.SetFocus
    If CodeContextObject.CurrentRecord <= 1 Then Exit Function
    With CodeContextObject.RecordsetClone
        If CodeContextObject.NewRecord Then
            .MoveLast
        Else
            .Bookmark = CodeContextObject.Bookmark
            .MovePrevious
        End If
        CodeContextObject.ActiveControl = .Fields(CodeContextObject.ActiveControl.ControlSource)
    End With
End Function

内容がいまいち理解できていないのですが、いじくっていたら何とか目的の８０％は達成したようなので、その辺は近日中に別の記事にしたいと思います

タグ：VBA １個前のレコードを参照 フォーム アクセス

コメント 1

ヤバイぜ！　ありがとうございます(^_０)ノ
by cheese999 (2016-12-15 08:04)