Compile Error (from Windows 2000 converted to Windows XP Pro)

  • Thread starter Thread starter Phoebe Brimer
  • Start date Start date
P

Phoebe Brimer

We have a form w/ a subform used for data entry of sales.
We recently installed a new computer and our database,
which works fine in Windows 2000 and Windows XP Home, now
gives a compile error in Windows XP Pro. HELP!

The error reads "Compile Error: Can't find project or
library". The code error is below on line starting
rs.FindFirst.... it doesn't like the "Str".

Option Compare Database

Private Sub Combo18_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[niMaster_ID] = " & Str(Me![Combo18])
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Cannot find Master Record!" & vbCrLf
& "Please contact your Administrator.",
vbCritical, "Unable to Locate Master Record"
End If
End Sub

Can anybody help??

Thanks,
Phoebe
 
Van,

Thanks. It worked like a charm.

Phoebe
-----Original Message-----
Probably Reference Errors. See Douglas J. Steele Web site:
http://members.rogers.com/douglas.j.steele/AccessReference
Click to expand...
Errors.html

--
HTH
Van T. Dinh
MVP (Access)



Phoebe Brimer said:
We have a form w/ a subform used for data entry of sales.
We recently installed a new computer and our database,
which works fine in Windows 2000 and Windows XP Home, now
gives a compile error in Windows XP Pro. HELP!

The error reads "Compile Error: Can't find project or
library". The code error is below on line starting
rs.FindFirst.... it doesn't like the "Str".

Option Compare Database

Private Sub Combo18_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[niMaster_ID] = " & Str(Me![Combo18])
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
MsgBox "Cannot find Master Record!" & vbCrLf
& "Please contact your Administrator.",
vbCritical, "Unable to Locate Master Record"
End If
End Sub

Can anybody help??

Thanks,
Phoebe
Click to expand...


.
Click to expand...
 
Back
Top