Parameterværdi hvis ikke-eksisterende record

?
what do you mean, do you want to create a new record?

Ja, når man indtaster et cpr der ikke er nogen record på i forvejen, vil den oprette en ny record, og det må den også gerne. Jeg vil bare have at cpr nummeret er udfyldt så brugeren ikke skal taste det 2 gange

Thats not easy! The value you entered is in a criteria in the query, and because it doesnt return any records it  can NOT return what you entered!

Det må jeg leve med

Without changing your program then yes you will

if you are finished with this question then you can place an answer and accept it to get your points back!

Ok

Måske jeg har misforstået er eller andet, men:

Hvis man sletter parameteren i forespørgslen og opretter en ubundet tekstboks (Tekst0) i formularen, og lader forespørgslen's CPR-felt referere til denne ubundne boks således:

[Forms]![FORMULARNAVN]![Tekst0]

Herefter i formularens Tekst+ indsætten en DCount:
Dim a As String
a = Me.Tekst0
If DCount("*", "TABELNAVN", "[CPRNR]= '" & Me.Tekst0 & "'" = 0) Then
Gå til ny post
Me.CPRNR = a
Else:
DoCmd.Openform "FORMULARNAVN"
Hvor formularen baseres på forespørgslen referende til formularen.

Hmmm - Måske lidt sort.

Ikke helt sort. Hvordan indsætter jeg en dcount ?

Yes its possible to make a solution mugs but dane022 wrote "Det må jeg leve med" so I didnt go further :o)

Hmm - Det er jeg ikke helt klar over. Ovenståen var bare en strøtanke. I første omgang vil jeg indsætte det i en kommandoknap indtil det fungerer. Så kan vi altid bakse med at indsætte den et mere hensigtsmæssigt sted.

Jeg kan følge tanken. Hvis jeg skal lave det ligesom det blev lavet med de 3 felters kombinationssøgning som du hjalp mig med Mugs, så vil det blive en formular med ubundet tekstfelt der søges fra og så med en kommandoknap indeholdende ovenstående sætning f.eks. [Forms]![FORMULARNAVN]![Tekst0]

Dette er forespørgslens kriterie:

[Forms]![FORMULARNAVN]![Tekst0]

som refererer til den formular i hvilken du indtaster et CPRNR i Tekst0.

Denne indsætter du i en kommandoknap:

Dim a As String
a = Me.Tekst0
If DCount("*", "TABELNAVN", "[CPRNR]= '" & Me.Tekst0 & "'" = 0) Then
Gå til ny post
Me.CPRNR = a
Else:
DoCmd.Openform "FORMULARNAVN"
Hvor formularen baseres på forespørgslen referende til formularen.

Du skal naturligvis indsætte den korrekte kode, og ikke m it pseudo-snak.

dane022 -> Det er ved at være sent, så jeg slutter for iaften. Er du interesseret kan jeg prøve at bakse et eksempel sammen imorgen aften. Blot giv mig besked samt en e-mail.