Der må da være en anden måde at gøre dette på.

Jeg har 12 tekst-felter, og en knap på en form.

når jeg skriver noget i det første tekstfelt og trykker på knappen, så bliver den indtastet værdi, tjekket med følgende kode:

If Me.ur2 <> "" Then
        Set rstjek = CurrentDb.OpenRecordset("SELECT SQPRDC FROM iordre WHERE SQPRDC = '" & Me.ur2 & "'")
        If Not rstjek.EOF Then
            fejl = False
        Else
            If DCount("[SQPRDC] & [SQDESC]", "iordre", "[iordre]![SQPRDC] Like '*" & Replace(Me![ur2], "'", "?") & "*' or [iordre]![SQDESC] Like '*" & Replace(Me![ur2], "'", "?") & "*'") > 0 Then
                Me.id = 2
                link = "[SQPRDC] Like '*" & Replace(Me![ur2], "'", "?") & "*' or"
                link = link & "[SQDESC] Like '*" & Replace(Me![ur2], "'", "?") & "*'"
                DoCmd.OpenForm "iordre_tjek", , , link
            Else
                MsgBox "Inpen poster fundet"
                Me.ur2.SetFocus
            End If
        End If
    End If

-------------------------------------
Men der må da være en lidt smartere måde at tjekke alle 12 felter, end at sætte sådan 12 kodestykker efter hinanden..?

Jeg har prøvet at lave en løkke, men uden held. Problemet ligger i referencen til tekstfeltet, alså "Me![ur2]" og "Me.ur2".
Er der nogle som har en mulig løsning..