If CurrentRecord > Me.Recordset.RecordCount - 1 Then Exit Sub 上記のコードでアクセス本体が異常終了してしまいます。 同じコードを数か所に使っていますが、正常に通る所と異常終了する所があります。 Debug.Print Me.Recordset.RecordCount と、しただけでも異常終了します。 試しに If CurrentRecord > Me.RecordsetClone.RecordCount - 1 Then Exit Sub にすると、全て正常に通ります。 結局、Me.Recordset.RecordCountがダメで Me.RecordsetClone.RecordCountだといいことが分かりました。 しかし心配なのは、他にも「Me.Recordset.RecordCount」を使っている個所が、数え切れないほどあります。 全てを確認するのは不可能な状態なので、これを全て「一括置換」しようと思っていますが、 Me.Recordset.RecordCount と Me.RecordsetClone.RecordCount は、完全に同じでしょうか？
↧