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

Probably Reference Errors. See Douglas J. Steele Web site:

http://members.rogers.com/douglas.j....nceErrors.html

--
HTH
Van T. Dinh
MVP (Access)



"Phoebe Brimer" <(E-Mail Removed)> wrote in message
news:05df01c3786f$b7afa370$(E-Mail Removed)...
> 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....ccessReference
Errors.html
>
>--
>HTH
>Van T. Dinh
>MVP (Access)
>
>
>
>"Phoebe Brimer" <(E-Mail Removed)> wrote in message
>news:05df01c3786f$b7afa370$(E-Mail Removed)...
>> 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
>
>
>.
>