レコードの通知に関する問題が更新されました

Question

これが解決された場合はお詫び申し上げますが、今は徹底的に検索する時間がありません。部分的に私は仕事のためにやっているから。私は電話から尋ねるので、スクリーンショットなどはできません。

私はAccess 2016で構築されたデータベースを持っており、問題が発生しています。

私は入力したwhatsに基づいてテーブルを更新するフォームを持っていて、クエリを開いて結果をスクロールせずに、テーブルで実際に更新されたものがあるかどうかを確認したいと思います。

私は、特定のフィールドの値に基づいて別のクエリを実行する '更新'ボタンをクリックしたときに実行するマクロを設定しました。 I.

"フィールド= 6、によってRunQueryのupdate6場合" 私は& を "レコードが変更され、" [ AffectedRowsの=は のMsgBox CStr関数（AffectedRows）をCurrentDb.RecordsAffected文字通り

あるRecordsChangedと呼ばれるVBAの事で機能を書きました]

私はここから取得した場所： How to show how many records were updated by an update query?

がまとまり終了するには、メッセージボックスが表示されますが、常に0のレコードが変わっ言ってもそこWA場合1つが変更されました。私はマクロの最後にRunCodeアクションを持って、レコードチェンジを呼び出すフォームのボタンにフックします。

誰にでもアドバイスや説明をいただけますか？

Answer 1

私が知る限り、VBAのDAO.Database.RecordsAffectedプロパティは、DAO.Database.Executeメソッドで実行されるSQLクエリにのみ適用されます。あなたは

あなたのマクロが

を行うだろう

Public Function RunMyUpdateQuery(queryName As String) 
    Dim cdb As DAO.Database 
    Set cdb = CurrentDb 
    Dim qdf As DAO.QueryDef 
    Set qdf = cdb.QueryDefs(queryName) 
    qdf.Execute dbFailOnError 
    Dim affected As Long 
    affected = qdf.RecordsAffected 
    Set qdf = Nothing 
    Set cdb = Nothing 
    MsgBox affected & " record(s) affected." 
End Function 

、例えば、あなたはより良い運がDAO.QueryDefオブジェクトを使用してVBAでクエリを実行し、そのRecordsAffectedプロパティを使用していて、とにかくあなたのマクロからVBA関数を呼び出しているので、