-1

Facebookで使われているようなコメント画面として機能する画面を用意する必要があります。アクセスフォームで用意しないといけません。ユーザーがコメントを入力する場所は、PartNumber と ItemNumber を含むテーブルに格納されます。また、最近のコメントも同じフォームに表示されます。

コメントを保存する必要がある表として、Recordsource を持つフォームを用意しました。ユーザーがボタンをクリックすると、コメントがテーブルに保存されるクリックイベントを作成します。しかし、問題は、テキストボックスに値を入力してフォームを閉じると、そのボタンをクリックせずに、クリックする前にテーブルが値で更新されることです。以下はコードです

Private Sub Post_cmnt_Click() 
    Me.RecordSource = "Part_GeneralPartComment" 
    Call FromForm_Add 
End Sub
4

1 に答える 1