0

古いシステムでは ms access 2003 を使用していましたが、システムを ms access 2016 に移行する と、デバッグ時に
オートメーション エラーが発生します。 msSqlAccessRelations.Add "CurrentUserId", "CurrentUserId" この行でエラーが発生します。 このDim msSqlAccessRelations のようにハッシュテーブルを定義しました。新しいハッシュテーブルとして も mscorlib 参照が既に追加されています。 このコードは ms access 2003 で完全に動作します 








Dim db As Database
Set db = CurrentDb
Dim rs As ADODB.Recordset
Dim msQry(0) As String
Dim accessQry(0) As String
Dim msSqlAccessRelations As New Hashtable
msQry(0) = "Select * From [IFSDB].[dbo].[Notes] Where ReferNum = " & ReferNum & " AND ReferTypeId = " & ReferTypeId & " " & extraFilter & " Order by NoteID desc"
accessQry(0) = "Select CurrentUserId , CurrentUserPrinted from TblCurrentUser"
msSqlAccessRelations.Add "CurrentUserId", "CurrentUserId"
If GetMSSQLDown = False Then
    Set GetNotes = GetDataToDifferentDb(msQry, accessQry, msSqlAccessRelations, "CurrentUserPrinted,Note,NoteID,CurrentUserId,ReferNum,ReferTypeId,AppearOnReport,AppearOnBOLReport,Date,ShowForPickers")
Else
    Set GetNotes = rs
End If
4

0 に答える 0