stLinkCriteria = "[EMPLOYEE#]=" & "'" & Me![EmployeeNumber] & "'"

  • Thread starter Thread starter Guest
  • Start date Start date
help said:
I have converted from access97 to 2003, and received this error.
What is it telling me.
Click to expand...

What error? Your subject line is just a line of code, not an error
message. Please give more information.
 
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
 
"Re: stLinkCriteria = [EMPLOYEE#]= & ' <Re: stLinkCriteria =
[EMPLOYEE#]= & said:
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. [...]

Dirk Goldgar said:
What error? Your subject line is just a line of code, not an error
message. Please give more information.
Click to expand...
Click to expand...

You still haven't actually told me what error message you're getting,
but since you say the problem occurred after you converted from Access
97 to Access 2003, I'm guessing that you have a missing or broken
reference.

Open the VB Editor and click Tools -> References...

+ If there's a reference set to Microsoft ActiveX Data Objects 2.x
Library, uncheck it, as an Access 97 application won't have been using
it.

+ If there is a reference set to Microsoft DAO 3.5 (or 3.51) Object
Library, uncheck that -- note that it's 3.5x I'm talking about, not 3.6.

+ If there is a reference to the Microsoft DAO 2.5/3.51 Compatibility
Library, uncheck that.

+ If there is *not* a check-mark next to Microsoft DAO 3.6 Object
Library, look down the list to where it is and put a check mark next to
it.

+ If any other reference is marked as MISSING, note down what it is and
uncheck it. If it won't let you un-check it, don't worry about it.

Click OK to close the dialog. If you unchecked any MISSING reference
besides the ones I specifically told you to un-check, and you think you
are actually using them, open the dialog again, re-check them, and close
it.

Click Debug -> Compile <project> and see if any errors are found. If
they are due to some missing reference, go back into the References
dialog and recheck that reference, or the latest equivalent version.

Please let us know if that fixes the problem.
 
Back
Top