Tronsliver
Technical User
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
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