Allowing to type anything in TextBox except for:

Re: Allowing to type anything in TextBox except for:

Don't know if this helps:

Private Sub TextBox1_Change()
    If Right(TextBox1.Text, 1) = " " Then
        TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
    End If
End Sub


Private Sub cmdSave_Click()
    If TextBox1.Text <> "" Then
        ActiveDocument.Save
    Else
        MsgBox "You must enter some text!"
        TextBox1.SetFocus
        Exit Sub
    End If
End Sub

Re: Allowing to type anything in TextBox except for:

Maybe something like -
[vba]
If Right(TextBox1.Text, 1) = " " _
or If Right(TextBox1.Text, 2) = "NA" _
or If Right(TextBox1.Text, 7) = "NATURAL" _
Then
[/vba]

Re: Allowing to type anything in TextBox except for:

i do not code much in Word, did my above code work?

jiuk

Re: Allowing to type anything in TextBox except for:

This will check for various entries. Include a command button to save the document. When a user clicks on the save button the various checks will be made and if everything is ok it will save the document otherwise it will prompt the user accordingly. Hope this is of some help.

Private Sub cmdSave_Click()
    If TextBox1.Text = "NA" Or TextBox1.Text = "na" Then
        MsgBox TextBox1.Text & " is not allowed, please re-enter", vbInformation, "Input Error"
        TextBox1.Text = ""
        TextBox1.SetFocus
        Exit Sub
    ElseIf TextBox1.Text = " " Then
        MsgBox "A space is not allowed, you must enter some text!", vbInformation, "Input Error"
        TextBox1.Text = ""
        TextBox1.SetFocus
        Exit Sub
    ElseIf TextBox1.Text = "" Then
        MsgBox "You must enter some text!", vbInformation, "Input Error"
        TextBox1.SetFocus
        Exit Sub
    Else
        ActiveDocument.Save
    End If
End Sub

Re: Allowing to type anything in TextBox except for:

Not sure why it's running slow for you - just checked it on my machine using your attachment but with the revised code and a Save command buttton and it seems to respond exactly as it should.

Re: Allowing to type anything in TextBox except for:

Change
[vba]
Else
ActiveDocument.Save
End If
[/vba]
To:
[vba]
Else
' ActiveDocument.Save
End If
[/vba]

Re: Allowing to type anything in TextBox except for:

Ok, I see the problem now. You've inserted the code into the Textbox1_Change() procedure. What will happen is that everytime you enter or change text in the box the file will be saved.

To prevent this, create a command button either below or to the side of your text box and put the code in the cmdSave_Click() procedure and remove the Textbox1_Change() procedure. Now the save operation will only happen when your user has entered data correctly and clicked on the Save button.

I've updated your file and attached it so you can hopefully see what I mean

Re: Allowing to type anything in TextBox except for:

Sorry the file attached to my previous post is wrong, this one should do it:confused:

Re: Allowing to type anything in TextBox except for:

Nawaf,
I'm assuming that you want to save the document via the normal File | Save menu system rather than having a button on the document page? If so then I think the only way to check the textbox is to do it every time a character is entered, which would mean that you couldn't check for NA or include spaces in the text. Rather than include a text box in the document have you considered using VBA's UserForms to allow your user to enter data which you can then validate. If you're not familiar with using VBA in this way let me know and I'll put something together for you.

john

Re: Allowing to type anything in TextBox except for:

Hi Nawaf,
Hope you enjoyed your leave.

I'll do what I can to help but before I start can you give me more of an idea of what you are trying to achieve. If possible upload a copy of how you want your document to look and let me know roughly what information you need your users to input and where you want the data inserting etc.
John