betingede kriterier i udtryk

Du er nødt til at lægge kode på din formular, da du ikke kan lave denne form for validering på tabel-niveau.

Prøv at lægge denne kode på feltets VedTastetryk-hændelse:

Private Sub Text0_KeyPress(KeyAscii As Integer)
    If Me![Dit Andet felt] = "Danmark" Then
        If (KeyAscii >= vbKeyA And KeyAscii <= vbKeyK) Or (KeyAscii >= Asc("a") And KeyAscii <= Asc("k")) Then
        Else
            KeyAscii = 0
        End If
    Else
        If (KeyAscii >= vbKeyL And KeyAscii <= vbKeyS) Or (KeyAscii >= Asc("l") And KeyAscii <= Asc("s")) Then
        Else
            KeyAscii = 0
        End If
    End If
End Sub

/Thomas

Hej Thomas!
Har du et andet bud, jeg har prøvet at kopiere teksten ind og rettet feltet til. Det skal sige at det er en underformular som er knyttet til en formular, men det gør vel ingen forskel.

Hey lady,

Der kan være flere ting, som går galt. Prøv derfor at følge denne anvisning:

-Åbn underformularen alene i design
-Marker det felt, som skal valideres.
-Find egenskaben VedTastetryk og klik på knappen med de 3 prikker til højre (og vælg kodegenerator)
-Herefter skal du blot indsætte nedenstående kode mellem de 2 linier:

    If Me![Dit Andet felt] = "Danmark" Then
        If (KeyAscii >= vbKeyA And KeyAscii <= vbKeyK) Or (KeyAscii >= Asc("a") And KeyAscii <= Asc("k")) Then
        Else
            KeyAscii = 0
        End If
    Else
        If (KeyAscii >= vbKeyL And KeyAscii <= vbKeyS) Or (KeyAscii >= Asc("l") And KeyAscii <= Asc("s")) Then
        Else
            KeyAscii = 0
        End If
    End If

Udksift [Dit Andet felt] med navnet på feltet hvor der skal stå "Danmark".

Hvis du ikke følger denne rækkefølge, kan Access ikke knytte koden korrekt til hændelsen.

Jeg håber, at dette hjælper :o)

/Thomas

Jeg beklager, det hjalp alså ikke. Har du et bedre bud?

Ligger [Dit Andet felt] på samme formular eller ligger det på hovedformularen?

det ligge på hovedformularen

Så skal koden se således ud:
If Me.Parent![Dit Andet felt] = "Danmark" Then
        If (KeyAscii >= vbKeyA And KeyAscii <= vbKeyK) Or (KeyAscii >= Asc("a") And KeyAscii <= Asc("k")) Then
        Else
            KeyAscii = 0
        End If
    Else
        If (KeyAscii >= vbKeyL And KeyAscii <= vbKeyS) Or (KeyAscii >= Asc("l") And KeyAscii <= Asc("s")) Then
        Else
            KeyAscii = 0
        End If
    End If

Hovedformularen hedder 1-klubtilmedling over og underformularen hedder 2- klubtilmelding under.

Mit felt retter jeg til [1-klubtilmelding over.land] når jeg har kopieret din formel ind, men det er måske forkert?

Ja, det er ikke helt rigtigt.

Hvis Land ligger på hovedformularen og dit indtastningsfelt ligger på underformularen, så skal koden bare se således ud:

If Me.Parent!Land = "Danmark" Then
        If (KeyAscii >= vbKeyA And KeyAscii <= vbKeyK) Or (KeyAscii >= Asc("a") And KeyAscii <= Asc("k")) Then
        Else
            KeyAscii = 0
        End If
    Else
        If (KeyAscii >= vbKeyL And KeyAscii <= vbKeyS) Or (KeyAscii >= Asc("l") And KeyAscii <= Asc("s")) Then
        Else
            KeyAscii = 0
        End If
    End If

Tak for det. Det virker. Jeg skulle egentlig have de nordiske lande skrevet på samme sted som Danmark står, jeg har forsøgt med at udvide
If Me.Parent!Land = "Danmark" ; "Norge" o.s.v. Then
men uden held, kan du stadig hjælp mig?

Sorry, har ikke været på Eksperten i et stykke tid :o(

If Me.Parent!Land = "Danmark" Or Me.Parent!Land = "Norge" Or Me.Parent!Land = "Sverige" Or Me.Parent!Land = "Findland" Then
...
...

Er det sådan, du mener?

tak det virker