Thanks Dirk, I thought I cut and pasted the whole item. Here it is.

Private Sub Safety_Form_Click()
On Error GoTo Err_Safety_Form_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[EMPLOYEE#]=" & "'" & Me![EmployeeNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Safety_Form_Click:
   Exit Sub

I am unable to open certain forms (approx 45) due to the conversion and this
along with the following.
ion Compare Database
Option Explicit

Private Sub Command90_Click()
On Error GoTo Err_Command90_Click

   DoCmd.Close

Exit_Command90_Click:
   Exit Sub

Err_Command90_Click:
   MsgBox Err.Description
   Resume Exit_Command90_Click
   
End Sub
Private Sub Command91_Click()
On Error GoTo Err_Command91_Click

   DoCmd.Close

Exit_Command91_Click:
   Exit Sub

Err_Command91_Click:
   MsgBox Err.Description
   Resume Exit_Command91_Click
   
End Sub
Private Sub Command94_Click()
On Error GoTo Err_Command94_Click

   DoCmd.PrintOut

Exit_Command94_Click:
   Exit Sub

Err_Command94_Click:
   MsgBox Err.Description
   Resume Exit_Command94_Click
   
End Sub
Private Sub Command95_Click()
On Error GoTo Err_Command95_Click

   Dim stDocName As String

   stDocName = "EmployeesEmergencyReport"
   DoCmd.OpenReport stDocName, acPreview

Exit_Command95_Click:
   Exit Sub

Err_Command95_Click:
   MsgBox Err.Description
   Resume Exit_Command95_Click
   
End Sub
Private Sub Command100_Click()
On Error GoTo Err_Command100_Click

   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.PrintOut acSelection

Exit_Command100_Click:
   Exit Sub

Err_Command100_Click:
   MsgBox Err.Description
   Resume Exit_Command100_Click
   
End Sub
Private Sub Command178_Click()
On Error GoTo Err_Command178_Click

   Dim stDocName As String

   stDocName = "EmployeeFormQuery"
   DoCmd.OpenReport stDocName, acPreview

Exit_Command178_Click:
   Exit Sub

Err_Command178_Click:
   MsgBox Err.Description
   Resume Exit_Command178_Click
   
End Sub
Private Sub Command179_Click()
On Error GoTo Err_Command179_Click

   Dim stDocName As String

   stDocName = "EmployeesEmergencyReport"
   DoCmd.OpenReport stDocName, acPreview

Exit_Command179_Click:
   Exit Sub

Err_Command179_Click:
   MsgBox Err.Description
   Resume Exit_Command179_Click
   
End Sub
Private Sub Command180_Click()
On Error GoTo Err_Command180_Click

   DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
   DoCmd.PrintOut acSelection

Exit_Command180_Click:
   Exit Sub

Err_Command180_Click:
   MsgBox Err.Description
   Resume Exit_Command180_Click
   
End Sub
Private Sub Command10154_Click()
On Error GoTo Err_Command10154_Click

   Dim oApp As Object

   Set oApp = CreateObject("Word.Application")
   oApp.Visible = True

Exit_Command10154_Click:
   Exit Sub

Err_Command10154_Click:
   MsgBox Err.Description
   Resume Exit_Command10154_Click
   
End Sub
Private Sub Command10434_Click()
On Error GoTo Err_Command10434_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "SchoolAddress Subform"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command10434_Click:
   Exit Sub

Err_Command10434_Click:
   MsgBox Err.Description
   Resume Exit_Command10434_Click
   
End Sub
Private Sub Command10435_Click()
On Error GoTo Err_Command10435_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeePosition"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command10435_Click:
   Exit Sub

Err_Command10435_Click:
   MsgBox Err.Description
   Resume Exit_Command10435_Click
   
End Sub
Private Sub Command11084_Click()
On Error GoTo Err_Command11084_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "RiskAssessmentForm"
   
   stLinkCriteria = "[Last Name]=" & "'" & Me![LASTNAME] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command11084_Click:
   Exit Sub

Err_Command11084_Click:
   MsgBox Err.Description
   Resume Exit_Command11084_Click
   
End Sub
Private Sub Safety_Form_Click()
On Error GoTo Err_Safety_Form_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[SocialSecurityNumber]=" & "'" &
Me![SocialSecurityNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Safety_Form_Click:
   Exit Sub

Err_Safety_Form_Click:
   MsgBox Err.Description
   Resume Exit_Safety_Form_Click
   
End Sub
Private Sub Safety_Form_Click()
On Error GoTo Err_Safety_Form_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[EMPLOYEE#]=" & "'" & Me![EmployeeNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Safety_Form_Click:
   Exit Sub

Err_Safety_Form_Click:
   MsgBox Err.Description
   Resume Exit_Safety_Form_Click
   
End Sub
Private Sub Command15732_Click()
On Error GoTo Err_Command15732_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command15732_Click:
   Exit Sub

Err_Command15732_Click:
   MsgBox Err.Description
   Resume Exit_Command15732_Click
   
End Sub
Private Sub Command15733_Click()
On Error GoTo Err_Command15733_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[SocialSecurityNumber]=" & "'" &
Me![SocialSecurityNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command15733_Click:
   Exit Sub

Err_Command15733_Click:
   MsgBox Err.Description
   Resume Exit_Command15733_Click
   
End Sub
Private Sub Command15734_Click()
On Error GoTo Err_Command15734_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[SocialSecurityNumber]=" & "'" &
Me![SocialSecurityNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command15734_Click:
   Exit Sub

Err_Command15734_Click:
   MsgBox Err.Description
   Resume Exit_Command15734_Click
   
End Sub
Private Sub Command15735_Click()
On Error GoTo Err_Command15735_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[EMPLOYEE#]=" & "'" & Me![EmployeeNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command15735_Click:
   Exit Sub

Err_Command15735_Click:
   MsgBox Err.Description
   Resume Exit_Command15735_Click
   
End Sub
Private Sub Command15737_Click()
On Error GoTo Err_Command15737_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[SocialSecurityNumber]=" & "'" &
Me![SocialSecurityNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command15737_Click:
   Exit Sub

Err_Command15737_Click:
   MsgBox Err.Description
   Resume Exit_Command15737_Click
   
End Sub
Private Sub Command15954_Click()
On Error GoTo Err_Command15954_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[LastName]=" & "'" & Me![LASTNAME] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command15954_Click:
   Exit Sub

Err_Command15954_Click:
   MsgBox Err.Description
   Resume Exit_Command15954_Click
   
End Sub
Private Sub Command15955_Click()
On Error GoTo Err_Command15955_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command15955_Click:
   Exit Sub

Err_Command15955_Click:
   MsgBox Err.Description
   Resume Exit_Command15955_Click
   
End Sub
Private Sub Command16497_Click()
On Error GoTo Err_Command16497_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[EmployeeNumber]=" & "'" & Me![EmployeeNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command16497_Click:
   Exit Sub

Err_Command16497_Click:
   MsgBox Err.Description
   Resume Exit_Command16497_Click
   
End Sub
Private Sub Command16606_Click()
On Error GoTo Err_Command16606_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeSafetyForm"
   
   stLinkCriteria = "[EmployeeNumber]=" & "'" & Me![EmployeeNumber] & "'"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command16606_Click:
   Exit Sub

Err_Command16606_Click:
   MsgBox Err.Description
   Resume Exit_Command16606_Click
   
End Sub
Private Sub Command_9597_Click()
On Error GoTo Err_Command_9597_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeDept"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command_9597_Click:
   Exit Sub

Err_Command_9597_Click:
   MsgBox Err.Description
   Resume Exit_Command_9597_Click
   
End Sub
Private Sub Command_9596_Click()
On Error GoTo Err_Command_9596_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeDeptForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command_9596_Click:
   Exit Sub

Err_Command_9596_Click:
   MsgBox Err.Description
   Resume Exit_Command_9596_Click
   
End Sub
Private Sub Command_9595_Click()
On Error GoTo Err_Command_9595_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeDeptForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command_9595_Click:
   Exit Sub

Err_Command_9595_Click:
   MsgBox Err.Description
   Resume Exit_Command_9595_Click
   
End Sub
Private Sub Command_9594_Click()
On Error GoTo Err_Command_9594_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeDeptForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command_9594_Click:
   Exit Sub

Err_Command_9594_Click:
   MsgBox Err.Description
   Resume Exit_Command_9594_Click
   
End Sub
Private Sub Command_9593_Click()
On Error GoTo Err_Command_9593_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeDeptForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command_9593_Click:
   Exit Sub

Err_Command_9593_Click:
   MsgBox Err.Description
   Resume Exit_Command_9593_Click
   
End Sub
Private Sub Command_9592_Click()
On Error GoTo Err_Command_9592_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeDeptForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command_9592_Click:
   Exit Sub

Err_Command_9592_Click:
   MsgBox Err.Description
   Resume Exit_Command_9592_Click
   
End Sub
Private Sub Command_9591_Click()
On Error GoTo Err_Command_9591_Click

   Dim stDocName As String

   stDocName = "EmployeeDeptQuery"
   DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Command_9591_Click:
   Exit Sub

Err_Command_9591_Click:
   MsgBox Err.Description
   Resume Exit_Command_9591_Click
   
End Sub
Private Sub Command_9590_Click()
On Error GoTo Err_Command_9590_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeDeptForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command_9590_Click:
   Exit Sub

Err_Command_9590_Click:
   MsgBox Err.Description
   Resume Exit_Command_9590_Click
   
End Sub
Private Sub Command_9589_Click()
On Error GoTo Err_Command_9589_Click

   DoCmd.Close

Exit_Command_9589_Click:
   Exit Sub

Err_Command_9589_Click:
   MsgBox Err.Description
   Resume Exit_Command_9589_Click
   
End Sub
Private Sub Command_9588_Click()
On Error GoTo Err_Command_9588_Click

   Dim stDocName As String
   Dim stLinkCriteria As String

   stDocName = "EmployeeDeptForm"
   DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_Command_9588_Click:
   Exit Sub

Err_Command_9588_Click:
   MsgBox Err.Description
   Resume Exit_Command_9588_Click
   
End Sub