Microsoft Office Forums - View Single Post - [Solved] Fieldupdate before saving and save document where documentname is resut of field values

gmayor · 03-06-2015, 01:22 AM

The 8 digits check requires two changes

1. In the FileSaveAs macro immediately before the line 'Next oCC'
add:

Code:

           If oCC.Title = "Personeelsnummer" Then
                If Len(oCC.Range) > 8 Then
                    MsgBox "'Personeelsnummer' mag alleen 8 cijfers hebben."
                    GoTo lbl_Exit
                End If
            End If

2. In the 'GetFilename' function add the line

Code:

strNumber = Format(strNumber, "00000000")

immediately after 'Next oCC'

Translation to Dutch courtesy of Google, so feel free to fix the grammar