Knap i formular

Hi Johnny, a while since I've seen you around, hope your doing well.
Its not possible to open a query and applying a filter at the same time. You can use VBA to alter the SQL in the query before opening it, but an easy solution is to make a form which displays the query as a datasheet.

Then instead of using DoCmd.OpenQuery you open the form.

docmd.OpenForm "frmToOpen",acFormDS, ,"CPR = '" & Me.CprNr & "'" , acFormEdit

Du kunne også overveje at ændre din forespørgsel (hvis den ikke bruges til noget andet), så du lægger parameteren direkte i forespørgslen.

Altså som Kriterie under feltet CPR:
  [Formularer]![DinForm]![CPR]

(ret selv form- og feltnavnene)

Hi Terry, long time since I heard from you; hope you are doing well. I'll check if I can do as you suggest :-)

Hej fdata - tak for dit bud. Prøvede lige dit forslag - men jeg får en boks op, hvor jeg skal indtaste CPR -nummeret (som jeg gerne ville have at den selv tog fra feltet...

Min formular hedder sagsoprettelse og feltet CPRnr - så jeg har skrevet følgende kriterie i forespørgslen:

[sagsoprettelse]![CPRnr]

Det er ikke helt det du beder mig om; hvad er det jeg mangler?

fdata - det var en forkert formular - beklager...

Formularen hedder Sager og feltet CPRnr - men nu åbner forespørgslen uden at filtrere på cpr nr.

[Sager]![CPRnr]

Tror jeg fandt ud af det:

[Formularer]![sager]![CPRnr]

-så virker det som jeg tænkte :-) men måske skal det se lidt smartere ud

Terry - what do I do wrong?

Private Sub SagerKnapForBorger_Click()
On Error GoTo Err_SagerKnapForBorger_Click

    Dim stDocName As String

    stDocName = "frmSagerPrBorger"
    DoCmd.OpenForm "frmSagerPrBorger", acFormDS, , "CPR = '" & Me.CPRnr & "'", acFormEdit

Exit_SagerKnapForBorger_Click:
    Exit Sub

Err_SagerKnapForBorger_Click:
    MsgBox Err.Description
    Resume Exit_SagerKnapForBorger_Click

What does the error say?

The code is assuming that the button you press is on the form containing the field CPRnr. If the field is on a sub form then you need to refer to that.

You could set a breakpoint at the line before DoCmd.... then in the debug window (CTRL+G)
Write this followed by enter, to see what the string contains
? "CPR = '" & Me.CPRnr & "'"

Is the field in the table named CPR? If not then you need to change it to the correct name ;-)