Error 3265 Item Cannot Be Found in the Collection

B

benheld

Joined
Sep 5, 2007
Messages
4
Reaction score
0
I'm having some SERIOUS problems running a query from an Excel VBA Application to Access--I've gotten it to work in other areas of the application, but for whatever reason, I cannot get it to run from this particular event. I've done a lot of playing around, broke and fixed a bunch of things, but when it comes down to it, I still get this error message!! 3265: Item Cannot Be Found in the Collection Corresponding to the Requested Name or Ordinal. I've definitely been googling it too, to no avail. Please help.

Code: 
Private Sub cmdSubmit_Click()
On Error GoTo cmdSubmit_Click_Err
	Dim SIP As New ADODB.Connection
	Dim ManagerSearch As New ADODB.Recordset
	Dim managerFID As String
	Dim managerSQL As String
 
SIP.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
			 "Data Source=S:\Fin and Corporate\Skills Inventory Project\SDLC_PMLC\Database\SIPDB.mdb"
 
If cboSearchCriteria.Value = "Resource Manager" Then
 
	managerFID = Me.cboCriteriaChoices.Value
	managerSQL = "SELECT ManagerResults.Id_Emp, ManagerResults.LastName_Emp, ManagerResults.FirstName_Emp," & _ 
"ManagerResults.Name_Skills, ManagerResults.Desc_Ctgy, ManagerResults.Level_Expertise, ManagerResults.Comments_Emp_Skill," & _ 
"ManagerResults.Manager_Emp_Resource FROM ManagerResults WHERE ManagerResults.Manager_Emp_Resource='" & managerFID & "';"
 
	ManagerSearch.Open managerSQL, SIP, adOpenStatic
 
	lboxResults.Clear
	lboxResults.AddItem "FID"
	lboxResults.Column(1, Me.lboxResults.ListCount - 1) = "Last Name"
	lboxResults.Column(2, Me.lboxResults.ListCount - 1) = "First Name"
	lboxResults.Column(3, Me.lboxResults.ListCount - 1) = "Skill Category"
	lboxResults.Column(4, Me.lboxResults.ListCount - 1) = "Skill"
	lboxResults.Column(5, Me.lboxResults.ListCount - 1) = "Level"
	lboxResults.Column(6, Me.lboxResults.ListCount - 1) = "Comments"
 
ManagerSearch.MoveFirst
	With Me.lboxResults
	 Do
			.AddItem ManagerSearch![Employees.Id_Emp]
			.Column(1, lboxResults.ListCount - 1) = ManagerSearch![ManagerResults.LastName_Emp]
			.Column(2, lboxResults.ListCount - 1) = ManagerSearch![ManagerResults.FirstName_Emp]
			.Column(3, lboxResults.ListCount - 1) = ManagerSearch![ManagerResults.Desc_Ctgy]
			.Column(4, lboxResults.ListCount - 1) = ManagerSearch![ManagerResults.Name_Skills]
			.Column(5, lboxResults.ListCount - 1) = ManagerSearch![ManagerResults.Level_Expertise]
			.Column(6, lboxResults.ListCount - 1) = ManagerSearch![ManagerResults.Comments_Emp_Skill]
			ManagerSearch.MoveNext
		Loop Until ManagerSearch.EOF
	End With
End If
 
cmdSubmit_Click_Exit:
	On Error Resume Next
	ManagerSearch.Close
	SIP.Close
	Set ManagerSearch = Nothing
	Set SIP = Nothing
	Exit Sub
cmdSubmit_Click_Err:
	MsgBox Err.Number & vbCrLf & Err.Description, vbCritical, "Error!"
	Resume cmdSubmit_Click_Exit
 
End Sub
 
Back
Top