Hi,

I am currently working in a Word 2003 VBA User Form.  I have been using
the DAO excel table as my list of employees and data that pulls into
the combo box. (got away from Word Tables)  I know how to trap the
error of Null (error 94 Invalid use of Null) by using a If statement
for every boundcolumn...but I was hoping I could accomplish two things
with out typing as much code.  I placed code with ** asterisks to lead
you to my questions in the code.

cmbAuthorsInitials is where the DAO code gets pulled into.

1. Create an error handler that will have one If stmt and handle the
code for each error that occurs.....or is that not the right way to do
it?

2. Simplify code so it isn't retyped over and over again.  I was hoping
to call a sub routine that has all the Dim and Variable information in
it...so I could call on it when I need it and not type the same code
over and over again.  It would hold all the code listed below.  This
way if the DAO boundcolumn changed for Phone I change it in one
location and the variable that is assigned to it now pulls the right
column into the text field therefore into the document.

The problem I am having is this.  The macro below "Sub MyFormFields"
works fine in the exit event of the cmbAuthorsInititals.  This makes it
so it displays the proper column text based on the cmbAuthorsInitials
choice.   But it doesn't work when I want to use the same variables to
insert a signature line into the document.

i.e.  This is in the cmdOK_Click event.  It wont pull in my variable
names AClosing with out repeating everything again.  Is there s way
around this?
Sub cmdOK_Click()
 MyFormFields
 TheSignature = AClosing & "," & vbCr & vbCr & vbCr & vbCr & AName &
vbCr & ATitle & vbCr & UCase(AInitials) & ":" & TInitials
       If ActiveDocument.Bookmarks.Exists("Signature") = True Then
        Selection.GoTo what:=wdGoToBookmark, Name:="Signature"
        Selection.Text = TheSignature
        ActiveDocument.Bookmarks.Add Range:=Selection.Range,
Name:="Signature"
        'UpdateBookmarkText .Bookmarks("Signature"), TheSignature
   End If

Thank you for your help....Kerri

CODE:
Sub MyFormFields()
'**  Use variables here so I don't have to set back to BoundColumn if
used in cmdOk_Click ect...
   Dim AClosing As String      'Very Truly Yours
   Dim AName As String         'Authors Name
   Dim AInitials As String     'Authors Initials
   Dim TInitials As String     'Typist Inititals
   Dim ATitle As String        'Authors Title
      Dim TheSignature As String  ' all above values inserted.
   Dim ALocation As String     'Authors Location
   Dim APhone As String        'Authors Phone

On Error GoTo ErrorHandler

   cmbAuthorsInitials.BoundColumn = 1 'AIntitials
   cmbAuthorsInitials.Value = cmbAuthorsInitials.Value
   AInitials = cmbAuthorsInitials.Value

   cmbAuthorsInitials.BoundColumn = 2 'Name
   txtAuthorsName.Text = cmbAuthorsInitials.Value
   AName = txtAuthorsName.Text

'**  I know for a fact it will error here.  Not everyone has a title.
   cmbAuthorsInitials.BoundColumn = 4 'Authors Title
   If IsNull(cmbAuthorsInitials.Value) Then
       txtAuthorsTitle.Text = ""
       ATitle = txtAuthorsTitle.Text
   Else
       cmbAuthorsInitials.BoundColumn = 4 'Authors Title
       txtAuthorsTitle.Text = cmbAuthorsInitials.Value
       ATitle = txtAuthorsTitle.Text
   End If

   cmbAuthorsInitials.BoundColumn = 6 'Authors Phone
   txtAuthorsPhone.Text = cmbAuthorsInitials.Value
   APhone = txtAuthorsPhone.Text

   cmbAuthorsInitials.BoundColumn = 7 'Location
   cmbOfficeLocation.Value = cmbAuthorsInitials.Value
   ALocation = cmbOfficeLocation.Value

   cmbAuthorsInitials.BoundColumn = 8 'Closing
   txtAuthorsClosing.Text = cmbAuthorsInitials.Value
   AClosing = txtAuthorsClosing.Text

   cmbAuthorsInitials.BoundColumn = 9 'Typist Initials
   txtTypistInitials.Text = cmbAuthorsInitials.Value
   TInitials = txtTypistInitials.Text

Exit Sub
ErrorHandler:
  If Err.Number = "94" Then
'**   'This is how I can trap the error but I need to know what the
text was at the line of the error to customize it for each line it
happens on.
     If IsNull(cmbAuthorsInitials.Value) Then
     MsgBox Err.Description  'Don't need just to see error
'**   I want the first code to appear here on the line it caused the
error i.e. txtAuthorsPhone.text  = ""
     Resume Next
     End If
  End If
 
End Sub