Åbne en speciel post i formularen

Dim strInput As String, strMsg As String

    strMsg = \"Angiv varenr.\"
    strInput = InputBox(Prompt:=strMsg, Title:=\"User Info\", XPos:=2000, YPos:=2000)
   

Me.Filter = strInput
   
    If sFilter = \"1 \" Then \'No filter
        Me.FilterOn = False
    Else
        Me.FilterOn = True

Try again!

Dim strInput As String, strMsg As String

    strMsg = \"Angiv varenr.\"
    strInput = InputBox(Prompt:=strMsg, Title:=\"User Info\", XPos:=2000, YPos:=2000)
   

    Me.Filter = strInput
    Me.FilterOn = True 

answer...

yoi can also place a button or toggle button on the form to remove the filter.


Me.FilterOn = False

Hej Terry.
Din sidste kommentar forstår jeg ikke.
Men din ovenliggende kode fungerer udmærket, men jeg skal jo på en eller anden måde fortælle systemet, hvad det er for en formular, der skal åbnes.
Jeg har bare lavet din kode, og så åbnet foremularen(via VBA). Formularen viser da det første varenummer.
Hvad gør jeg forkert?

The form you say \"viser alle oplysninger om en given vare\" I was assuming that it shows one \"vare\" at a time but you can scroll through them all. So you open this form and place your buuton on it. When the button is pressed you on click event gets done and its here where you place the code.
If you have another form where you open your msbgox then you have to use

DoCmd.OpenForm \"YourForm\", , ,\"Varenr = \'\" & Me.Varenr & \"\'\"

If the varenumber is numeric then

DoCmd.OpenForm \"YourForm\", , ,\"Varenr = & Me.Varenr

Kære Terry.
Er du sikker på, at din syntaxt er rigtig?
Du må huske på, at det er amatører, du omgås her.

What is it you thinkis wrong?
The easiest way is to place a button on a from using the wizard. In the wizard select form operations and open form.
Then select the from you want to open.

When you have done this the code for the on click event will look SOMETHING like this, where the name in this example is YourForm.

    Dim stDocName As String
    Dim stLinkCriteria As String
       
    stDocName = \"YourForm\"
    DoCmd.OpenForm stDocName, , , stLinkCriteria

The stLinkCriteria is at the mement empty. This is the same as the where clause in an SQL statement. So you need to alter this to contain the field in your table that you are interested in in for example varenr, and the specific varenr your interested in seeing.

So before the  docmd object palce a line that looks like this.
NOTE change the first varenr to the name of the field in the table, and alter the me.varenr to the name of the field on your form where the user enters a Varenr.

If you still dont understand what is going on then send the database to tbs@io.dk

stLinkCriteria = \"Varenr = \" & Me.varenr

Beklager Terry.
Jeg forstår ikke dine 4 første linier, det har nok noget med sproget at gøre.
Men jeg har beslutet mig til at bruge en ganske enkelt forespørgsel, så brug ikke mere tid på dette emne. Tak for din deltagelse.