Validering

Du kan bruge VBScript udvidelser mht. regular expression til at tjekke at formatet er rigtigt.

Flg. kode virker hvis du indsætter en textbox og en trykknap på din formular. Samt sætter en reference til "Microsoft VBScript Regular expression 5.5"

Kedde

Og her kommer koden :-))

Private Sub Command1_Click()
    Dim i As RegExp
    Set i = New RegExp
   
    i.Pattern = "\w+ \w+"
   
    If i.Test(Text1.Text) Then
        MsgBox "Formatet er rigtigt!!"
    End If
   
    Set i = Nothing
End Sub

Vil det også virke i VBA?. Måske lidt sent at indskyde.

Ja det ville det, du skal blot huske at sætte den reference som jeg nævnte ovenfor.

Oki :D

Hvor sætter man den reference henne ?

Hvis vi snakker VBA, så går du i menuen tools - references

Kedde

Tark tark :)

Men jeg synes bare at den bliver ved med at sætte den til false ?

Har du prøvet at skrive en tekst med melemrum?

jeps

Får du ikke en messagebox op hvis du laver mellemrum?

Well har ikke lige sat det op på samme måde
If i.Test(FuldeNavn) Then
'ting og sager
Else
GoTo 10
End If
Set i = Nothing
Men den hopper bare ned til GoTo 10 hver gang

Har lige prøvet at kopirer dit eks

Det virker heller ikke

Kommer der nogle fejlmeddelser?

Nej

well... jeg fik det aldrig til at virke :(  Men det skal sikkert nok virke det du har skrevet så her er dine 30 points :)