MSG Box Error

[Tronsliver]

I've built a simple database with a "MSGBOX" action that pops up when I try and delete a record. Its only function is to give a warning if it finds certain entries in a table. It works fine on my machine but gives this error on two other machines I have it installed on: Compile Error: Can't find Project or Library.

Shown below is the code. I'm thinking it may have something to do with VB but I'm not sure. Apprecaite any help

Private Sub Form_Delete(Cancel As Integer)
Dim rst As Recordset
Dim x, varx As Byte

Set rst = CurrentDb().OpenRecordset("Rater", dbOpenTable)

x = Findx(varx) (This is a function reference)

If x > 0 Then
MsgBox (Forms!RaterF!LName & " is in " & x & " rating scheme(s)." _
& Chr(13) & "Must replace " & Forms!RaterF!LName & " in all" & Chr(13) & _
"schemes before you can delete &quot
Forms!RaterF!SSN.SetFocus
End


End If [sig][/sig]

 

[jimmythegeek]

On the machines that have the error, do the following:

Open any Access database.
Go to the design of any module, or to the code behind any form.
Select Tools | References
Uncheck anything that says "Missing" next to it.
Close the form or module, and exit Access.

That should do it. [sig]<p>Jim Lunde<br><a href=mailto:compugeeks@hotmail.com>compugeeks@hotmail.com</a><br><a href=

http://www.cgeek.com>CompuGEEKS</a><br>Custom

Application Development[/sig]