ikke så klog

I tabellen kan du definere, at feltet CPR skal være indekseret uden dubletter.

Du kan også lave en modulus 11 beregning, der kontrollerer om det indtaste CPRNR er korrekt.

Et CPRNR er ikke blot en række tilfældige tal. De første 6 cifrer er naturligvis afhængige af din fødselsdato. De sidste 4 er en nøje udregnet matematisk formel, der tager højde for både:

-dit køn
-hvilket århundrede du er født i


Jeg har en testdb liggende der beregner om det indtastede CPRNR er matematisk korrekt. Læg din e-mail hvis du vil have den tilsendt.

Ellers burde flg fungere i et numerisk felt:

DCount("*", "Tabel", "[Feltnavn] > 1 )

Hvis feltet er alfanumerisk skal det se sådan ud:

DCount("*", "Tabel", "[Feltnavn] > '"1"' )

Kroteriet skal selvfølgelig ikke være >1 men >0!!!

DCount("*", "Tabel", "[Feltnavn] > 1 )´ kan jeg ikke bruge til noget ..
jeg skal jo tjekke cprnr. er indtastet i forvejen derfor ..
DCount("[Cprnr]", "tbl_Journal", "[cprnr]" = Me.Cprnr) = 0

If DCount("[Cprnr]", "tbl_Journal", "[cprnr]'" = Me.Cprnr & "'") = 0 Then

I am assuming that CPR field is TEXT!

terry rart at se dig igen !!!
det er virker ikke , jeg tror det er fordi at i tabellen er der(-)  xxxxxxx-xxxx

Hi Juks hows thing?
Send the dB to terry@santhell.dk and I will take a look!

As I suspected you have are using a text field so you have to use '' around the field.
You could also try Me!Cprnr
You use ! if your referencing the database field name and . when you reference the field name on the form. Quit eoften they are the same so it shouldnt matter but if they are different then it will give problems!

If DCount("[Cprnr]", "tbl_Journal", "[cprnr]'" = Me!Cprnr & "'") = 0 Then

jeps den er sendt påforhånd tak....

Hi juks
This is what you have
If DCount("[Cprnr]", "tbl_Journal", "[cprnr]'" = Me.Cprnr & "'") = 0 Then

This is what you SHOULD have!
If DCount("[Cprnr]", "tbl_Journal", "[cprnr] ='" & Me.Cprnr & "'") = 0 Then

Sorry, my fault!

terry og juks > Tager Jeres kode højde for, om der indtastes forkert?

Koden kontrollerer blot, om man ikke har indtastet det samme CPRNR 2 gange. Men hvis man laver den samme fejl 2 gange, bliver fejlen accepteret, dog kan man ikke indtaste CPRNR 2. gang og således ikke gentage fejlen. Men det retter dog ikke 1. gang fejlen er indtastet.

Man kan sige meget om vores danske gennemkontrollerede samfund, men m.h.t. CPRNR, der har man (sgu) virkelig tænkt sig om.

terry > jeg tillader mig at sende min testdb til dig. jeg ved fra tidligere at du benytter xp, så jeg zipper den.

mugs>No its deosnt but that wasnt the question! Only if it already exists. There COULD be code elsewhere which could do that check!
:o)

terry > It wasnt the question - I agree with You, but not many people kwows, that it is possible to check the CPRNR in this way, AND I guess that juks doesn't has the code to check the CPRNR.
:o)

Hey mugs>Can you remember AGES ago where I think we both gave an answer to a CPR check question? This i swhat I gave:

Function CPR_Ok(ByVal CPR As Variant) As Variant
' Returns TRUE if CPR is valid

Dim I As Integer
Dim Multipliers(1 To 10) As Integer
Dim Sum As Integer

    If Not IsNull(CPR) Then
        Multipliers(1) = 4
        Multipliers(2) = 3
        Multipliers(3) = 2
        Multipliers(4) = 7
        Multipliers(5) = 6
        Multipliers(6) = 5
        Multipliers(7) = 4
        Multipliers(8) = 3
        Multipliers(9) = 2
        Multipliers(10) = 1
       
        Sum = 0
       
        If Len(CPR) = 10 Then
            For I = 1 To 10
                Sum = Sum + CInt(Mid$(CPR, I, 1)) * Multipliers(I)
            Next I
       
            CPR_Ok = (Sum Mod 11) = 0
           
        End If
    End If
           
End Function

This function ONLY checks for a valid CPR it doesnt give an indication as to what might be wrong as your example does, but it all depends on what you want (what is needed) :o)

terry > I have found the question You referring to. You are right, the answer depends of what you want. That answer is correct, but I think that, in many cases, it is nessecarey (nødvendigt) in a MsgBox to tell what's wrong and not only: It's wrong.

mugs du må gerne sende cprdb'en til mig  help@mail.dk

Sendt til juks