Before Delete Event

I have a Time Card table and an authorization table with EmpKey, Month and Campus, actually the field names are:

Do a redirect if your test is true...

Hi,
you need to pull all values from TblTimeCard table and then compare these values with values from the QryAuthorizations table. Here is a sample:

str = "select from " & strTableName & " where " & where

I tried it using your sample for the Before Delete and it still didn't work.

Here's the code. Any ideas what I'm doing wrong? Do I have the tables backward?

Thanks for any help.
Function BeforeDelete(where)
' Parameters:

' where - string with WHERE clause pointing to record to be deleted.
'** Check if specific record exists ****

str = "select from " & strStaffTimeCard & " where " & where

set rsInfo = Server.CreateObject("ADODB.Recordset")

rsInfo.Open str,dbConnection
set rstmp = Server.CreateObject("ADODB.Recordset")

rstmp.Open "select from QrySListAuth where EmpKey='" & rsInfo("EmpKey") & "' and CampusAuth='" & rsInfo("Campus") & "' and MonthAuth='" & rsInfo("MonthTC") & "'", dbConnection
if not rsExists.eof then

BeforeDelete = False

response.write "This Time/Effort Entry cannot be deleted. You have already authorized this month and campus."
else

BeforeDelete = True
end if

rsExists.Close : set rsExists = Nothing
' set BeforeDelete to True if you like to proceed with deleting record

' set it to False in other case
End Function

Hi,

Variable strTableName contains table name of the current table. So you don't need to replace it with your actual table name:

...