---
title: "Problem med Run-Time error '440'"
type: "forum-thread"
url: "https://www.webforum.nu/amne/dotnet/162487-problem-med-run-time-error-440"
topic: ".NET"
topic_url: "https://www.webforum.nu/amne/dotnet"
author: "znyder"
published: "2007-07-12T14:30:42.000Z"
updated: "2007-07-12T14:30:42.000Z"
replies: 0
views: 323
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/dotnet/162487-problem-med-run-time-error-440"
---

# Problem med Run-Time error '440'

## #1 — znyder, 2007-07-12T14:30Z

Jag håller på med ett auktionsprogram.
Det ska kolla igenom utgående auktioner och meddela vinnaren.

MEN!

Ibland funkar det smärtfritt och det skickas utan problem.. men ibland står det:

**Run-Time Error '440':
Operations are not allowed when the object is closed.**

Vad menas med det?
Jag testar med samma auktion... ibland funkar det ibland inte...

Någon som vet vart man ska börja kolla?

Detta är koden som triggar själva felmeddelandet..

```
If bidders("bid") >= rst("reservation") Then

Set end_a = con.Execute("select * from members where id=" & bidders("user_id") & "")

Set poSendMail = New vbSendMail.clsSendMail
poSendMail.SMTPHost = "mailout.comhem.se"
poSendMail.From = "pay@pbay.se"
poSendMail.FromDisplayName = "PBAY"
poSendMail.Recipient = "pontusholm@comhem.se"
poSendMail.ReplyToAddress = "pontusholm@comhem.se"
poSendMail.Subject = "Du vann auction med reservationspris!"
poSendMail.Message = "This is a test"
poSendMail.Send
Set poSendMail = Nothing
Set end_a = Nothing

Set end_a = con.Execute("insert into won_ids(auction_ID, typ_auction, user_ID, feedback_ID, feedback, datum) VALUES(" & rst("ID") & ", 1, " & rst("user_ID") & ", " & bidders("user_ID") & ", 0, '" & Now & "') ")
Set end_a = Nothing
Set end_a = con.Execute("insert into won_ids(auction_ID, typ_auction, user_ID, feedback_ID, feedback, datum) VALUES(" & rst("ID") & ", 2, " & bidders("user_ID") & ", " & rst("user_ID") & ", 0, '" & Now & "') ")
Set end_a = Nothing
Set end_a = con.Execute("update auctions set sold=1 WHERE ID=" & rst("id") & "")
Set end_a = Nothing

End If
```

 

Tacksam för hjälp.

Permalänk: https://www.webforum.nu/p/162487

---

Tråden på webben: https://www.webforum.nu/amne/dotnet/162487-problem-med-run-time-error-440