Я пытаюсь обновить записи или создать записи, если уникальный идентификатор не существует.
Код выдает ошибку, сообщающую, что он будет создавать повторяющиеся значения.
Мне нужночтобы включить это в мой код «SQL: если существует обновление, вставьте еще».
Sub Upload_Excel_to_Access()
Dim wbpath As String
wbpath = Application.ActiveWorkbook.Path
Dim con As Object '' ADODB.Connection
Set con = CreateObject("ADODB.Connection") '' New ADODB.Connection
con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data source=\\at\HRS SD Performance Data\Capacity DB.accdb;"
con.Execute _
"INSERT INTO AssigenedVol_tbl " & _
"SELECT * FROM [Excel 12.0 Xml;HDR=YES;IMEX=2;ACCDB=YES;DATABASE=C:\Users\luga\Desktop\Databasetest\DB Macro Test.xlsm].[rawdata$]"
con.Close
Set con = Nothing
End Sub
Имя таблицы «AssigenedVol_tbl»
Поля: Process_Identifier, Login, Volume, effDate, ID_Unique(Это первичный ключ в базе данных)