|
'********** Check if specific record exists
************
dim rsExists
set rsExists = dal.Table("Clients").Query("SSN='" &
values("SSN") & "'","")
if not rsExists.eof then
' if record exists do something
message = "SSN " &
$values("SSN") & " aleready exists."
BeforeAdd = false
else
' if dont exist do something else
BeforeAdd = true
end if
rsExists.Close : set rsExists = Nothing
|