Microsoft Access 掲示板

【自己解決済】エラー3343を解消したい。 / 6

15 コメント
views
4 フォロー
6

りんご様
コメントありがとうございます…!

りんご様のお察しの通り、SQLを上書きするコードを組み込んでおりました。
これは別箇所で条件を書き加えたいケースに対応するために入れたものでした。
以下クラスのファンクション抜粋(変数宣言略)
====================
【1】
 Public Sub SetQuery(ByVal strQue As String)

     Set qf = CurrentDb.QueryDefs(strQue)

     ' クエリSQL取得(元)
     baseSQL = qf.sql

 End Sub
【2】
 Public Sub Execute()

     ' クエリ実行
     qf.Execute

     ' SQL文を元に戻す
     If Not 別モジュール.IsNullOrEmpty(baseSQL) Then
         qf.sql = baseSQL
     End If

 End Sub
【3】
 Public Sub ObjClose()

     Set qf = Nothing: Close
     baseSQL = ""

 End Sub
====================

baseSQLはString型で、元のSQL文は3652文字です。

開発者→確認者1→確認者1(続けてもう一度)と
開発者→確認者2→確認者2(続けてもう一度)のケースは
上手くいくとの報告でした。

両確認者の方が丁度予定が多忙となっており、
昨日から同環境での検証が進んでおらず非常に歯がゆいです。
検証のアドバイスを頂いている中、恐縮です。

通報 ...