Tronsliver
Technical User
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 "
Forms!RaterF!SSN.SetFocus
End
End If [sig][/sig]
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 "
Forms!RaterF!SSN.SetFocus
End
End If [sig][/sig]
