MSG Box Error
MSG Box Error
(OP)
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
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
Talk To Other Members
RE: MSG Box Error
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.
Jim Lunde
compugeeks@hotmail.com
CompuGEEKS
Custom Application Development