エラー3622識別列を持つSQL Serverテーブルを開きます

Question

何が間違っていますか？テーブルdbo_customerからレコードを1つコピーしてから、テーブルdbo_active_taskにコピーする必要があります。しかし、エラー "エラー3622 - IDENTITY列を持つSQL Serverテーブルにアクセスするときに、OpenRecordsetでdbSeeChangesオプションを使用する必要があります。"

Dim stSQlIns As String 
Dim stSqlD As String 
Dim rs As DAO.Recordset 

If MsgBox("Copy № " & Me![id].Value, vbYesNo + vbDefaultButton2, "Moving to the archive ") = vbYes Then 

stSQlIns = "INSERT INTO [dbo_new] " _ 
& "SELECT [dbo_customer].[id], [dbo_customer].[apartment], [dbo_customer].[description], [dbo_customer].[documents], [dbo_customer].[email], [dbo_customer].[first_name], [dbo_customer].[house_number], [dbo_customer].[last_name], [dbo_customer].[middle_name], [dbo_customer].[passport_number_str], [dbo_customer].[passport_number], [dbo_customer].[passport_series], [dbo_customer].[tel_number], [dbo_customer].[street_id], [dbo_active_task].[check_number], [dbo_active_task].[enable], [dbo_active_task].[production_datetime], [dbo_active_task].[production_method], [dbo_active_task].[shedule_datetime], [dbo_active_task].[shedule_end_datetime], [dbo_active_task].[task_desc], [dbo_active_task].[vip], [dbo_active_task].[customer_id], [dbo_active_task].[schedule_person_id], [dbo_active_task].[task_id]" _ 
& "FROM [dbo_customer], [dbo_active_task] " _ 
& "WHERE ((([dbo_customer].[id])=" & Me![id].Value & ")) " 

stSqlD = "DELETE [dbo_customer].*, [dbo_active_task].* " _ 
& "FROM [dbo_customer], [dbo_active_task] " _ 
& "WHERE ((([dbo_customer].[id])=" & Me![id].Value & "))" 
Set rs = Me.Recordset 
CurrentDb.Execute (stSQlIns) 
CurrentDb.Execute (stSqlD) 
Me![id].Requery 

End If 

Answer 1

& "FROM [dbo_customer], [dbo_active_task] " _ 
& "WHERE ((([dbo_customer].[id])=" & Me![id].Value & ")) " 

これは、あなたが顧客のためではなく、タスクをフィルタリングデカルト積です。

したがって、レコード数はdbo_active_taskになります。

このソーステーブルが必要な場合は、単一タスクをフィルタリングするためにWHERE句を追加する必要があります。