0

「アセット トラッキング」としてリストされている Access テンプレート内で見つけたアイデアを利用しようとしています。フォームの 1 つである Asset Details には、[New Comments] (ソース テーブルのコメント フィールドに関連付けられている) と [Comments History] ​​の 2 つのフィールドを含むコメント タブがあります。[Comments History] ​​には、コントロール ソースに次のコードが含まれています。

=ColumnHistory([RecordSource],"Comments","[ID]=" & Nz([txtID],0))

このコードを使用すると、コメント フィールドに情報を入力できます。フォームを保存して閉じると、そのコメントでコメント履歴が更新されます。これは、長いテキスト形式で [追加のみ] オプションが [はい] に設定されていることに基づいています。結果は次のようになります。

[Version:  12/18/2019 5:00:22 PM ] Jonathan's Law
[Version:  12/18/2019 5:14:13 PM ] Complete Last Interview
[Version:  12/20/2019 9:35:52 AM ] Hello Paul
[Version:  12/20/2019 10:00:31 AM ] 
[Version:  12/20/2019 11:42:54 AM ] And then she got fired
[Version:  12/20/2019 11:44:07 AM ] And never rehired.

私は、インシデント管理のために私の機関のために最初に開発しているデータベースを持っています (4 つのテーブル: 調査、調査 - ターゲット、調査 - 被害者、調査 - ターゲット/被害者ジョイナー。詳細については、この前の質問を参照してください) 、そして、このコードは、いつ申し立てが変更されたか (つまり、無視から虐待へ) を識別したり、開発したフォーム内で自分のコメント履歴をコメント ボックスに提供したりするのに便利であることがわかりました。フォームでコードを試し、コントロール ソースに次のコードを含むテキスト ボックスを作成しました。

=ColumnHistory("[Investigations - Target/Victim Joiner]","Offenses","[TargetID]=" & Nz([TargetID],0))

また

=ColumnHistory([RecordSource],"Offenses","[TargetID]=" & Nz([TargetID],0))

もともと私はこれらのいずれかをメイン フォームに配置しようとしましたが、メイン フォームが必要な正しいテーブルを直接取得していないことに気付きました (#Name? エラーが発生し、それを修正できませんでした)。フォームはしました。allegationsubform 内のテキスト ボックスに上記のコードを入力しようとしたところ、#Error コードが返されました。どのように進めればよいか本当にわかりません。私は本質的に、攻撃が変更されたときにその変更 (および最終的には結果) の監査証跡を作成する方法を探しています。私の取り決めに基づく被害者とターゲットの間の多対多の関係も問題を引き起こしているのではないかと思っています (ジャンクション テーブルの TargetID と VictimID はどちらも多対多の一部としての PK です)。その場合、次のコードのようなものかどうか興味があります (そうではありませんでした。

=ColumnHistory([RecordSource],"Offenses","[TargetID]=" & Nz([TargetID],0) & "[VictimID]=" & Nz([VictimID],0))

これに関する助けをいただければ幸いです。私の金曜日は、どこが間違っているのかを明確に説明している記事を特定しようとすることに費やされましたが、これまでのところ、接続を確立するのに役立つものはありませんでした. 私が見たすべてのエラーは、他の人が正しいと見たもので、変更内容の説明なしにコードが奇跡的に機能した結果か、コードに軽微な文法エラー (つまり、引用符の欠落) があったかのいずれかです。

質問する前の調査の情報源:

Access のフォームにメモ フィールドを表示する方法

https://access-programmers.co.uk/forums/showthread.php?t=293527

https://answers.microsoft.com/en-us/msoffice/forum/all/creating-a-comments-history-box/56c1b861-f081-442c-aaa5-02b95eae14b9

https://docs.microsoft.com/en-us/office/vba/api/Access.Application.ColumnHistory

4

1 に答える 1