Handlingsprocedure søg, opret

Se evt. hvteknik's forslag i dette spørgsmål:

http://eksperten.dk/spm/462237

Hvis du VBA søger efter en post og intet finder bliver du stående hvor du er(sidste del af dit spørgsmål).
Følgende søgning i en af mine egne baser virker:

Private Sub FINDTIT_AfterUpdate()
            [ID].SetFocus
            DoCmd.FindRecord [FINDTIT]
            [FINDTIT] = Null
            [FINDTIT].SetFocus
End Sub

Næstsidste linje nulstiller søgefeltet og kan slettes, hvis det du søger efter skal
blive stående.

Nu er jeg desværre en rookie i VBA. Kan du uddybe?
På forhånd tak :o)

Jeg har prøvet at gå ind i egenskaber under det felt hvor kundenummeret tastes. Herfra har jeg så gået ind i hændelse efter update, og lagt din private Sub;

Når jeg så skrive et kundenr. kommer der fejl i følgende linie:
[ID].SetFocus

Nogen gode forslag?

Har du et felt i formularen med navnet ID?

Nej, jeg bruger ikke ID, jeg prøver at rette det til det korrekte (kundenummer)

Nu går den så videre til næste linie:
DoCmd.FindRecord [FINDTIT]
og melder fejl?!?

FINDTIT er et feltnavn. Ret det til kundenummer.

Har rettet det til kundenr., men der kommer stadig fejl. Hvis posten eksistere skriver den at det ville give dubletter og hvis den ikke eksistere vil den stadig ikke oprette den da den ikke vil tillade en null værdi?!? (og det var ikke 0 eller blank jeg havde skrevet)

Når du forsøger at oprette en ny post må formularen nødvendigvis stå i den tilstand hvor du opretter en ny post, altså en helt blank formular uden data.

Du har indsat koden i feltets AfterUpdate, hvilket vil sige, at koden først eksekveres efter at de nye data er sendt til tabellen, og hvis kundenummeret eksisterer vil du få fejlen med dubletter. Koden skal indsættes i feltets BeforeUpdate.
Jeg har ikke afprøvet koden.

Jeg står på en tom post når jeg forsøger.

Vil du have at jeg omdøber koden så den hedder:
Private Sub FINDTIT_beforeUpdate()
Ved at gøre dette kan jeg slet ikke oprette en ny.

Kan du sende db til:

mugs@mail.dk

Så ser jeg på den senere. Husk at zippe den.

Db er modtaget, rettet og returneret. Flg. kode er indsat:

Private Sub Ordernr_BeforeUpdate(Cancel As Integer)
Dim VARa As Long
If Me.NewRecord Then
VARa = Me.Ordernr
If DCount("*", "HovedTB", "[Ordernr] =" & VARa) > 0 Then
MsgBox "Der er allerede poster med denne værdi."
Me.Undo
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True
Exit Sub
End If
End If
End Sub