Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Compile Error 1

Status
Not open for further replies.

Tronsliver

Technical User
Sep 19, 2000
120
US
This has me confused. This program worked fine now I'm getting a compile error. I assume it has something to do with a unregisted library. However, my skills are basic. When I try to compile I get:

Compile error:
Can't find project or library

Also the apersand is highlighted in the code after Forms!RaterF!LName in the third line of code after "Set rst = ..."

Sure would appreciate some expert help...thanks

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)

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 ")
Forms!RaterF!SSN.SetFocus
End


End If
End Sub
 
OK I opened the form module and went to tools, references and opened. It has many references with check marks and many without. How do I tell which one needs to be loaded?

Thanks
 
This is weird the one that is missing is "Microsoft Jet SQL help topics" this shouldn't have anything to do with compiling the module should it?
 
Damn that worked...why would a help file cause this?
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top