Hej!

Mitt syfte är att skapa en ny post i en annan tabell med följande kod


Private Sub Status_AfterUpdate()
Dim SQL As String
Dim RunSQL As ADODB.Recordset
Dim TemTabell As String
Set RunSQL = New ADODB.Recordset

TempTabell = "tabHistorik"
RunSQL.Open TempTabell, CurrentProject.Connection, adOpenDynamic
With RunSQL
.AddNew
!BeställningsID = BeställningsID
!Status = Status
!StatDate = StatDate
.Update
.Close
End With
End Sub


Det som händer är att jag får ett felmeddelande vid .Addnew Där det står "Objektet eller Provider kan inte uföra den begärda åtgärden"

när man skriver Addnew så ser det ut så här....

.Addnew ([FiledList], [Values]) ....vad innebär detta..
samt vad gör jag för fel


/phinala

Testa att lägg till adUpdateOptimistic elle adOptimistic(Osäker på hur det stavas...)
på Raden:
RunSQL.Open TempTabell, CurrentProject.Connection, adOpenDynamic
Til:
RunSQL.Open TempTabell, CurrentProject.Connection, adOpenDynamic, adOptimistic

Har för mig att den annars är skrivskuddad...

Addnew kan användas på två sätt
Kalssiska:
rsTemp.AddNew
rsTemp("FieldName1") = Value1
rsTemp("FieldName2") = Value2
rsTemp.Update

Eller med arrayer:
rsTemp.AddNew Array("FieldName", "FieldName"), Array(Value1, Value2)

Känner inte till för och nacdelar med de olika medoderna. KAn inte någon vänlig själa avslöja det?