Hej...
Ok, man lærer noget nyt hver dag, og når det har med vb at gøre lærer jeg
mange nye ting hver dag, men mon ikke det holder op på et eller andet
tidspunkt..
Jeg har prøvet at bruge Like og det virker rigtigt godt. Jeg får dog en
følgende fejlmelding
Additional information: Cast from string "##########" to type 'Long' is not
valid.
Hvis jeg prøver at gøre følgende.
ElseIf Cprnr Like Not "##########" Or Not "######-####" Then
Jeg har prøvet at bytte rundt på not og sætte paranteser ind osv, men har
ikke lige fundet kombinationen... Hvi jeg anvender dem hver for sig virker
det godt nok.
Lidt mere hjælp?
Mvh
Thorbjørn
"Tomas Christiansen" <toc@blikroer.removethis.dk> wrote in message
news:amla1d$1lql$1@news.cybercity.dk...
> Thorbjørn Jørgensen skrev:
> > Jeg har et tekstfelt hvor det er meningen at man skal skrive CPRnr
> ind...
> > ...Den første ting jeg gerne vil gøre er at tjekke et stringen kun
> > indeholder 10 tal, og ikke bogstaver...
>
> Jeg kan se at du har fået et masse gode forslag til hvordan man kan
> begrænse hvad der kan tastes, og nogle mere eller mindre gode forslag
> til at kontrollere indholdet af det indtastede.
>
> Efter min mening er funktionen IsNumeric ubrugelig til dit formål (og
> det er den iøvrigt også til langt de fleste andre formål), idet den
> tillader *ALT* for meget.
> Eksempler hvor IsNumeric returnerer true: "1.1" eller "1e2" eller
> "&hf" eller "&O3" eller "-123" eller...
>
> Det er vel egentlig også noget mærkeligt noget at betragte et
> CPR-nummer som et tal. Det er vel ret 10 cifre fra 10-tals systemet,
> som hver i sær har en numerisk betydning, men sammensat har cifrene
> ingen betydning.
>
> Den slags ville jeg nok teste med Like-operatoren. Den kan teste for
> forekomster af diverse bogstaver, cifre og tegn.
>
> Eksempel (hvis CPR-nummeret ligger i tekst-boksen txtCPRnr):
>
> If txtCPR.Text Like "##########" Then
> 'Dette kan være et CPR-nummer
> End If
>
> Det er også let at teste på om brugeren skulle have indtastet en
> bindestreg (kunne nogle måske finde på):
>
> If txtCPR.Text Like "######-####" Then
>
> Like kan bruges til mange ting, men understøtter desværre ikke
> regulære udtryk (suk, Microsoft...)
>
> -------
> Tomas
>