Valideringsregel om en værdi der ikke genkendes i tabelen

Hvis du benytter dig af combobokse, kan du benytte hændelsen NotInList()

If DCount("*", "varenr", "[FELTNAVN]= 0") Then
MsgBox "Der er ikke nogen post med dette varenr."
End If

det skal være sådan at når man i formularen skriver et varen nummer der ikke findes i tabelen lige som hvis det havde været et postnummer der skulle hente en by her er det så bare et produkt der skal hentes, og varenummet ikke findes så skal den skrive varenummert findes ikke

Hvad vil du gøre, hvis varenummeret ikke eksisteret ???

Vil du oprette det, eller forhindre brugeren i at benytte det ???

Det er et spørgsmål om relationer mellem tabellen "varenr" og feltet i den tabel hvori du skriver varenummeret. Hvis ikke du vil benytte relationer kan du anvende funktionen DLookUp i f.eks. en forespørgsel.

hvis varenummet ikke eksister skal brugen have en medelse om at hun / han har skrevet et varenummer der ikke eksister som det er nu kommer der bare til at stå det "forkerte som brugerne har indtastet"  P.S relationer virker fin den kommer frem med det produkt den skal når man skriver varenummet men ikke frem med noget hvis man skriver et varenummer der ikke findes det er klart nok det jeg så skal bruge er en regl + meddelse om at brugeren har tastet et varenummer der ikke findes

Så burde min kode fungere. Hvis det indtastede skal slettes kan du bruge denne:

If DCount("*", "varenr", "[FELTNAVN]= 0") Then
MsgBox "Der er ikke nogen post med dette varenr."
Me!Undo
End If

Private Sub VARENR_Exit(Cancel As Integer)
If DCount("*", "[PL]", "[VARENR]= 0") Then
MsgBox "Der er ikke nogen post med dette varenr."
Me!Undo
End If
End Sub

den her virker ikke kan du se fejlen

du skal tænke på at i varenr kan alle tegn ind gå så den skal slå op
og se om den genkender nogle ligesom access selv gør når man prøver at gå
til næste post det er også fin nok ville bare gerne have den gjorde det
når man gik ud af feltet så man kunne rette det forkerte varenummer med det
samme lige efter man havde prøvet at taste det ind

access gør det jo selv fordi den så ikke genkender relationen

Så har du altså et alfanumerisk kriterie, så prøv denne:

Dim VARa As String
VARa = Me.FELTNAVN
If DCount("*", "TABELNAVN", "[FELTNAVN] ='VARa'") = 0 Then
MsgBox "Der er ingen poster med denne værdi."
Me!undo
End If

den laver fejl ved Me!undo (skriver det med rød)

Min fejl - Prøv:

Me.Undo

Undskyld.

nu skriver den Der er ingen poster med denne værdi selv om der er og så laver den en
runtime error "varenr"

den ser såan her ud
Private Sub VARENR_Exit(Cancel As Integer)
Dim VARa As String
VARa = Me.Varenr
If DCount("*", "PL", "[VARENR] ='VARa'") = 0 Then
MsgBox "Der er ingen poster med denne værdi."
Me.Undo
End If
End Sub

kan ikke finde indputtablen eller forspørgsel "varenr"

Hvad skriver den mere end Runtime Error?

Stavefejl eller også har du byttet om på feltnavn og tabelnavn:

If DCount("*", "TABELNAVN", "[FELTNAVN] ='VARa'") = 0 Then

undskyl jeg tog din tid jeg bruger bare den access selv kommer med
når man vil gå til næste post eller lukke men tak for hjælpen

Øhh - Hvorfor ikke få det til at fungere efter hensigten?

oki vi prøver lidt endnu men TABELNAVN er pl og FELTNAVN er varenr

Kan du sende db til:

mugs@mail.dk

som en .zip fil. Skriv lige navnet på formularen.

jep

db returneret med en kode der fungerer, så dette spørgsmål kan vel afsluttes nu.