forspørgelse vedr tjekning af om der findes andre rec

er der nogen  =?

Brug DCount.

har du en eks. ?

Her med et alfanumerisk og et numerisk kriterie:

DCount("*", "Tabel1", "[Felt1]= '" & Me.Felt1 & "' And [Felt2]= " & Me.Felt2 & "")

Kombiner det med en If DCount... Then
gør noget hvis det er opfyldt
Else:
gør noget andet
end if

den melder argumen not optional
If DCount <> 0 Then
  MsgBox "1"
Else:
  MsgBox "2"
End If

Ja - Se mit eksempel og medtag tabel og feltnavn, ellers ved den jo ikke hvad den skal tælle.

Syntaksen for at tælle poster i en tabel er:

DCount("*", "TABELNAVN")

det hele ser sådan ud, men jeg ved ikke hvordan jeg smider kon in? og den melder
stadige argument not optionel ved  If DCount <> 0 Then

strsql = DCount("*", "Person", "[nr]= " & nr& " " & _
            "And [National]= " & National& "")
           
If DCount <> 0 Then
  MsgBox "1"
Else:
  MsgBox "2"
End If

kan du se noget galt med 
08/08-2005 10:09:33

Du kna ikke bruge DCount på den måde. Se  10:01:23 og 10:07:08 og 10:08:33 og medtag tabel- og feltnavn.

Denne f.eks har 3 DCount der tæller med et alfanumerisk, et numerisk og et datofelt og gemmer resultatet i 3 variabler.
Derefter en betingelse der lagrer en ny post hcis du trykker Yes i MsgBox, ellers gør den noget andet:

Dim a As String, Svar, b As Integer, c As Date
a = DCount("*", "Tabel1", "[Felt1]= '" & Me.Felt1 & "'")
b = DCount("*", "Tabel1", "[Felt2]= " & Me.Felt2 & "")
c = DCount("*", "Tabel1", "[Felt4]= #" & Me.Felt4 & "#")
If a > 0 And b > 0 And c > 0 Then
If MsgBox("Vil du oprette posten?", vbYesNo) = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Else:
Me.Undo
DoCmd.GoToRecord acForm, "Form1", acPrevious, 1
Exit Sub
End If
End If

strsql = DCount("*", "Person", "[National]= " & National & " " & _
          "And [nr]= " & nr & " And [kon] = '" & kon & "'")

    Msgbox strsql
denne melder intet fejl men fungere ikke som jeg gerne vil have den.
hvordan kan jeg få den til at give mig en værdi i tilfælde af kon er forskellige fra hinanden men har sammen nr og national ?

"kon er forskellige fra hinanden"

Hvis kon skal være forskellig skal du ikke bruge lighedstegn:

And [kon] = '" & kon & "'")

Men forskellig fra <>

det hjælper ikke ret meget den tæller alle poster alligevel
men det er jo ikke det jeg vil bare gerne vide hvormange om der er forskellige kon med samme nr og national,

Prøv at dele den op og tag de 2 første kriterier og kontroller at den tæller rigtig.

jeg har droppet det her dcount ..... og bruger istedet en sql udtryk og looper mig igennem hele recordsetet og finder på denne måde ud af det

Hvorfor returnerer du ikke bare Kon?:
if DLookup("Kon", "Person", "[National]= " & National & " And [nr]= " & nr) <> AktueltKøn then ...