
Automation error (Error 440)
Hello!
When I add a record to my database and then open a nother form to edit the
record I cet the foloing error when try to update..
Automation error (Error 440)
"Cant find the records, som data can have bean change."
(or somthing like that)
Her's the code at the Save button...:
If Me.Forandring = True Then
Svar = MsgBox("?nsker du ? lagre forandrenger...?", vbQuestion +
vbYesNo, "Lagre...")
Select Case Svar
Case vbYes
mod_Databaser.Tabel_Faktura!Sum = CCur(Me.txtAntall *
Me.txtPris)
mod_Databaser.Tabel_Faktura!Sum =
CCur(mod_Databaser.Tabel_Faktura!Sum - (mod_Databaser.Tabel_Faktura!Sum *
Me.txtRabatt) / 100)
mod_Databaser.Tabel_Faktura.Update ' Error.. <-----
Me.Forandring = False
Unload Me
Case vbNo
Me.Forandring = False
mod_Databaser.Tabel_Faktura.CancelUpdate
End Select
End If
Unload Me
Somebody that has having this problem before....?
From
Svein J. Reiakvam