Formularfelt - tillad kun tal og bogstaver (evt. VBA - makro)

Well, et regulært udtryk kan gøre det:

Private Sub TextBox1_Change()
  Dim myRegExp: Set myRegExp = New RegExp
  myRegExp.IgnoreCase = True
  myRegExp.Global = True
  myRegExp.Pattern = "^[\w\d ]+$"
 
  If Not myRegExp.Test(TextBox1.Text) Then
      MsgBox "Fejl i input!"
  End If
End Sub

Jeg forstår det ikke helt - hvordan ændrer jeg denne linje, så det passer til mit tekstfelt (Emne1):

If Not myRegExp.Test(TextBox1.Text) Then

?

Hhmmm...

Har prøvet med dette:


******************
Private Sub TextBox1_Change()

  Dim myRegExp: Set myRegExp = New RegExp
  myRegExp.IgnoreCase = True
  myRegExp.Global = True
  myRegExp.Pattern = "^[\w\d ]+$"
 
  If Not myRegExp.Test(EMNE.Text) Then
      MsgBox "Fejl i input!"
  End If

End Sub
******************

men får følgende fejl, når jeg kører makroen:

Compile Error:
User-defined type not defined

Det er dette, som makroen stopper ved (markeres når fejlen kommer):
New RegExp

Nogen idé?

Har du prøvet med?:
If Not myRegExp.Test(Emne1.Text) Then

Samt ændre:
Private Sub TextBox1_Change()
til:
Private Sub Emne1_Change()

Og så skal du også lige referere til 'Microsoft VBScript Regular Expressions 5.5' under 'Tools >> References...'

Så tror jeg den er ved at være der... :-)

Okay - umiddelbart ingen ændringer. Jeg skal lige høre, om en Private Sub må/kan ligge i et modul under normal.dot?

Har nu refereret til 'Microsoft VBScript Regular Expressions 5.5' under 'Tools >> References...'

Men nu stopper den her (linjen markeres gult):
If Not myRegExp.Test(Emne1.Text) Then

?

Skal lige høre.. Du har en Userform med en Textbox kaldet Emne1, right?

Ja, lige præcis :-)

Hmm, så fatter jeg O. ;-)

Prøv i Object view i VBE at dobbeltklikke Emne1 textbox'en. Så skulle du meget gerne havne i Emne1_Change() rutinen. Gør du det?

Det her forstår jeg ikke helt hvad du mener med:

Prøv i Object view i VBE at dobbeltklikke Emne1 textbox'en

?

Forresten, hvis strengen ikke må indeholde _ skal pattern ændres.
Desuden ku man også slette det forkerte tegn...
Altså noget a la:

Private Sub Emne1_Change()
  Dim myRegExp: Set myRegExp = New RegExp
  myRegExp.IgnoreCase = True
  myRegExp.Global = True
  myRegExp.Pattern = "^[A-ZÆØÅ\d ]+$"

  If Not myRegExp.Test(Emne1.Text) Then
      MsgBox "Fejl i input!"
      Emne1.Text = Left(Emne1.Text, Len(Emne1.Text) - 1)
  End If

End Sub

Det gør desværre ingen forskel med den ekstra linje, da rutinen stadig stopper ved:
If Not myRegExp.Test(Emne1.Text) Then

når jeg kører sub'en.

Er der nogen fejlmeddelelse?

Det er vel ikke fordi at der er sat et Breakpoint?

Med "Prøv i Object view i VBE at dobbeltklikke Emne1 textbox'en" mente jeg at du i designview, altså der hvor man kan hive knapper, textboxe og andet ind på formen, skulle dobbeltklikke på Emne1 for at komme til den rigtig rutine.

Ingen fejlmeddelelse - ingen breakpoints.

Og hvad sker der hvis du for sjov skifter hele betingelsen ud med True og fjerner alt med Emne1.Text?

Private Sub Emne1_Change()
  Dim myRegExp: Set myRegExp = New RegExp
  myRegExp.IgnoreCase = True
  myRegExp.Global = True
  myRegExp.Pattern = "^[A-ZÆØÅ\d ]+$"

  If True Then
      MsgBox "Fejl i input!"
  End If

End Sub

Prøver i morgen.

Okay, så får jeg msgboxen "Fejl i input" - uanset hvad der står i feltet. Hvis feltet ikke findes, så er det det samme - altså msgbox'en.

?

Nu forstår jeg pludselig problemet. Som jeg skrev i mit spørgsmål, så er det et TEKSTFELT (tekstfelt i formular) og ikke en tekstboks via kontrolelementer jeg har oprettet. Derfor hele miseren.

Nu har jeg så prøvet med en tekstboks via kontrolelementer og her kan jeg godt få det hele til at virke, men jeg har et problem:
Tekstboksen (Emne1) skal jeg kunne kopiere fra ét dokument til et andet nyoprettet hvor der også skal valideres på indholdes i Emne1. Derfor spørger jeg, om det er muligt, at valideringen kan ligge i et modul i normal.dot?

tjp, jeg er ked af, at vi fik talt "ved siden af hinanden", men hvis ikke du eller en anden umiddelbart har en løsning på mit problem, må jeg vælge det næste-bedste, nemlig at lave en "søg og erstat" i mit tekst-felt - dette er dog ikke optimalt, men væsentlig bedre end íngenting.