Mandatory field

[thedeadzeds]

Hi Guys,

I have the follwoing code which works great as long as its used in 'Normal ThisDocument'. Any ideas how I get this to work in the 'Project Thisdocument'

This VBA does not allow the user to save the form unless specifc fields in a word form have any entry.


Kind regards
Craig

Option Explicit 
Private WithEvents oApp As Word.Application 

Private Sub Document_New() 
     'assign Word to the application variable
    If oApp Is Nothing Then 
        Set oApp = ThisDocument.Application 
    End If 
End Sub 

Private Sub Document_Open() 
     'assign Word to the application variable
    If oApp Is Nothing Then 
        Set oApp = ThisDocument.Application 
    End If 
End Sub 

Private Sub oApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean) 
    If Doc.AttachedTemplate <> ThisDocument Then Exit Sub 
     
    If Doc.FormFields("Text1").Result = "" Then 
        Cancel = True 
        MsgBox "An entry is required in the Customer Name field.", , "Error" 
        Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="GoBacktoText1" 
        Exit Sub 
    End If 
     
    If Doc.FormFields("Text2").Result = "" Then 
        Cancel = True 
        MsgBox "An entry is required in the DOB field.", , "Error" 
        Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="GoBacktoText2" 
        Exit Sub 
    End If 
     
    If Doc.FormFields("Text3").Result = "" Then 
        Cancel = True 
        MsgBox "An entry is required in the Work Number field.", , "Error" 
        Application.OnTime When:=Now + TimeValue("00:00:01"), Name:="GoBacktoText3" 
        Exit Sub 
    End If

End Sub 

Sub GoBacktoText1() 
    ActiveDocument.Bookmarks("Text1").Range.Fields(1). Result.Select 
End Sub 

Sub GoBacktoText2() 
    ActiveDocument.Bookmarks("Text2").Range.Fields(1). Result.Select 
End Sub 

Sub GoBacktoText3() 
    ActiveDocument.Bookmarks("Text3").Range.Fields(1). Result.Select 
End Sub

[macropod]

IIRC, Your event code needs to exist in the template from which the document is created. Accordingly, you should consider creating a specific template for your form.

PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.

[fumei]

It also seems an odd methodology to use OnTime and a Sub to work this. Especially as you have no serious error trapping.

For example, if "Text3" - and that is an excellent name for the field - is blank, GoBacktoText3 gets fired. But what if the value is "Yogi Bear", or 2156-78923-11? I am not saying someone would put a stupid entry, but as it stands ANY entry at all is acceptable.

However, be that as it may, are you wedded to trying to validate the values of the formfields on document save, rather than as each is exited.

I have the follwoing code which works great as long as its used in 'Normal ThisDocument'. Any ideas how I get this to work in the 'Project Thisdocument'

Are you saying it does not work if you put it in the ThisDocument module of the Active Document?