Søgefunktion starter når man åbner formular

Du skriver ikke om CPRnr i forvejen er oprettet, men er det tilfældet kan du bruge denne:

Dim VARa As String
VARa = InputBox(Prompt:="Indtast CPRnr.", Title:="Find CPRnr.", Default:="")
DoCmd.GoToControl "CPRnr"
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True

hej mugs!
jeg er desværre ikke en haj til VBA som du - så kan du sige mig om ovenstående skal ind i den "OpretSag_Click()" jeg allerede har - og hvis ja - hvor det skal ind?

jeg har allerede feltet CPRnr i formularen som "Etiket137"

mvh johnny

"feltet CPRnr i formularen som "Etiket137""

Det skullle gerne være et datafelt. 

Men prøv blot at åbne formularen med denne i din kommandoknap:

Dim VARa As String
docmd.openform "sagsoprettelse"
VARa = InputBox(Prompt:="Indtast CPRnr.", Title:="Find CPRnr.", Default:="")
DoCmd.GoToControl "CPRnr"
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True

Det fungerer fint, tak!
Men jeg kan se at det måske ikke løser hele mit problem alligevel...

vi er en virksomhed der hjælper kommuner med at få deres borgere i arbejde m.m.

vi har derfor en sagsstyrings database hvor vi opretter en sag hver gang vi har en borger inde - og da vi kan lave flere ting med borgeren - har vi også flere sager pr. borger - men vi har altid kun en aktiv sag.

jeg har lavet en tabel hvor vi opretter borgerne og en tabel hvor vi opretter sagerne - og af sagens natur kan borgerne kun optræde en gang i borgertabellen men flere gange i sagstabellen.

når vi nu har lavet denne smarte søgefunktion samtidig med at formularen åbnes - så er det ikke sikkert at det er den rigtige sag der kommer frem - da det ikke nødvendigvis er den der er aktiv.

da jeg har et felt i tabellen "sager" der indikerer om sagen er aktiv eller ej - så ville det være genialt hvis den samtidig med at søge efter cpr nr. også checkede om der var en aktiv sag.

hvorfor jeg skriver det på denne måde er, at man også nogle gange skal søge efter borgere der ikke har en aktiv sag - og så skal den bare finde den første record.

hæves til 100 points (mugs - jeg har sendt dig en intern besked)

Private Sub Kommandoknap20_Click()
Dim VARa As String
VARa = InputBox(Prompt:="Indtast CPRNR.", Title:="Find CPRNR.", Default:="")
DoCmd.GoToControl "CPRNR"
DoCmd.FindRecord VARa, acEntire, False, , True, acCurrent, True
Me.Filter = "aktiv = True"
Me.FilterOn = True
End Sub

hvor aktiv er et felt (Ja/Nej) der er sat til True hvis posten er aktiveret. Det betyder, at du kun vil se poster der matcher dit søgekriterie (CPRNR) og finder den post der er aktiv.

Ovennævnte kode finder det indtastede CPRnr og derefter filtrerer den alle poster, men i dette eksempel, skal der 2 kriterier til. Først findes CPRnr og derefter filtreres de fundne poster til aktiv = true. Så filteret skal modificeres lidt:

Me.Filter = "CPRNR = '" & Me!CPRnr & "' And aktiv = True"