---
title: "Varför är Null ogiltigt??"
type: "forum-thread"
url: "https://www.webforum.nu/amne/databaser-sql/98788-varför-är-null-ogiltigt"
topic: "Databaser & SQL"
topic_url: "https://www.webforum.nu/amne/databaser-sql"
author: "Jester"
published: "2004-03-05T13:54:34.000Z"
updated: "2004-03-05T17:56:51.000Z"
replies: 5
views: 263
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/98788-varför-är-null-ogiltigt"
---

# Varför är Null ogiltigt??

## #1 — Jester, 2004-03-05T13:54Z

Hej

Har tidigare fått hjälp med denna funktion och den fungerar utmärkt. Nu tänkte jag vara lite kreativ själv och lägga till lite kod som varnar om man försöker dubblera innehållet. Dock fungerar den inte, den säger körfel 94 och att null är ogiltigt. Deklarerar jag den som Variant så kommer Msg boxen upp oavsett ingångsvärden.
Understrykningen markerar den nya koden.

```
Private Sub cmdNyInmatning_Click()

Dim startTime As Variant
Dim endTime As Variant
[U]Dim check As Integer[/U]

check = 0
startTime = DLookup("Open", "Tbl_Positioner", "Posit_ID=" & Me.cboPosit)
endTime = DLookup("Close", "Tbl_Positioner", "Posit_ID=" & Me.cboPosit)
[U]check = DSum("PAntal", "Tbl_Perskontroll", "Datum =#" & Me.txtDate & "# AND Post_ID=" & Me.cboPosit)[/U]

[U]If IsNull(check) Then[/U]
    CurrentProject.Connection.Execute "INSERT INTO Tbl_PersKontroll (Datum, Post_ID, Tim) " & _
    "SELECT #" & Me.txtDate & "#, '" & Replace(Me.cboPosit, "'", "''") & "', Timmar FROM tbl_timmar " & _
    "WHERE Timmar BETWEEN #" & startTime & "# AND #" & endTime & "#", , adExecuteNoRecords
  
    DoCmd.OpenForm "Frm_NyDagPersonal", acNormal, , "Datum = #" & Me.txtDate & "# AND Post_ID = " & Me.cboPosit, acFormPropertySettings
    
Else
    MsgBox "Anteckningen är gjord.", vbOKOnly, "Anteckningen finns redan"
    
End If
```

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

## #2 — cyprys, 2004-03-05T14:06Z

nått sånt här då?

```
check = DSum("PAntal", "Tbl_Perskontroll", "Datum =#" & Me.txtDate & "# AND Post_ID=" & Me.cboPosit)[b] + 0[/b]

if check = 0 then
```

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

## #3 — Jester, 2004-03-05T14:12Z

Nä tyvärr...samma fel och i felsökningen så är just DSum raden markerad...

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

## #4 — Engine^, 2004-03-05T16:04Z

Tja... DSum returnerar null om inga poster matchar kriteriet. Att tilldela en integer värdet null är väl inte tillåtet.

Testa såhär istället:

```
If IsNull(DSum("PAntal", "Tbl_Perskontroll", "Datum =#" & Me.txtDate & "# AND Post_ID=" & Me.cboPosit)) Then
```

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

## #5 — Jester, 2004-03-05T17:52Z

Funkar ju kanon!!
Du är en klipppa!!

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

## #6 — Engine^, 2004-03-05T17:56Z

Varsågod :)

glöm inte "acceptera som svar"-funktionen ;)

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

---

Tråden på webben: https://www.webforum.nu/amne/databaser-sql/98788-varför-är-null-ogiltigt