---
title: "Formulär med händelse"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/74327-formulär-med-händelse"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "Insider"
published: "2003-04-17T13:52:39.000Z"
updated: "2003-04-22T13:34:01.000Z"
replies: 7
views: 237
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/databaser-sql/74327-formulär-med-händelse"
---

# Formulär med händelse

## #1 — Insider, 2003-04-17T13:52Z

Jag har ett formulär med ett fält.

När man skrivit in ett värde i fältet ska det ske en kontroll om det värdet finns i en tabell. Om inte så ska det komma upp ett meddelande.

Hur gör jag?
Ska man använda kod-verktyget?

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

## #2 — Engine^, 2003-04-22T06:20Z

Ta först fram egenskaperna för fältet (F4). Under fliken Events/Händelser markerar du sedan After Update/Efter uppdatering (?), klicka på den lilla knappen med de tre punkterna till höger och välj Code Builder / Kodverktyget (?). Nu är det bara att knappra  in lite kod för det du vill göra. 

Kan du inte VBA, så är det bara att återkomma :)

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

## #3 — Insider, 2003-04-22T09:21Z

Nej, jag fattar nada när det gäller VBA till Access. VB kan jag ju men det kan jag inte använda.

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

## #4 — Insider, 2003-04-22T09:23Z

Kör man ADO som vanligt, precis som med VB.6???

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

## #5 — Insider, 2003-04-22T09:25Z

Eller DAO?

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

## #6 — Engine^, 2003-04-22T09:50Z

Du kan använda dig av ADO eller DAO utan problem, så länge det finns med i objektreferensen.

Så här skulle det teoretiskt kunna se ut:

```
Private Sub [i]namnpåfältet[/i]_AfterUpdate()
  Dim strSQL As String
  Dim objRS As New ADODB.RecordSet
  
  strSQL = "SELECT [i]kolumnnamn[/i] FROM [i]tabellnamn[/i] WHERE [i]kolumnnamn[/i] = '" & Me.[i]namnpåfältet[/i] & "';"
  Set objRS = CurrentProject.Connection.Execute (strSQL, lngResult, adExecuteNoRecords)

  If objRS.EOF Then
    [blue]'Inga poster hittades av frågan alltså finns inte värdet...[/blue]
    MsgBox "Värdet finns inte.", vbExclamation
    Me.[i]namnpåfältet[/i].SetFocus
  End If
End Sub
```

**red.** Slarvade i koden...

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

## #7 — Insider, 2003-04-22T11:13Z

Tackar!

Men det hänger upp sig på den här raden:

```
Set objRS = CurrentProject.Connection.Execute (strSQL, lngResult, adExecuteNoRecords)
```

Ändrade till:

```
Set objRS = CurrentProject.Connection.Execute (strSQL)
```

Då funkade det.

Blir det bra så?

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

## #8 — Engine^, 2003-04-22T13:34Z

Jodå. Ytterligare en miss från min sida som jag glömde redigera :r

```
Set objRS = CurrentProject.Connection.Execute (strSQL, , adCmdText)
```

Det hade jag tänkt ändra till, men minnet är lite upp och ner ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/74327-formulär-med-händelse