"HI GUYS... I CAN CHECK FOR DUPLICATE RECORDS WHEN ADDING NEW RECORDS, BUT 
I AM HAVING AN ISSUE WHERE I CANT CHECK FOR DUPOLICATE RECORDS WHEN 
UPDATING RECORDS...I HAVE A SCRIPT THAT OPENS A DATABASE, FINDS AN UNQIUE 
RECORD (id) WHICH UPDATES THAT RECORD..NOW WHAT I WANT TO BE ABLE TO DO IS 
TO CHECK TO SEE IF THE RECORD THAT HAS BEEN UPDATE ISNT DUPLICATING WHAT 
IS ALREADY IN THE DATABASE. FOR INSTANCE, IF A USER SELECTS MONDAY AS A 
DATA WHEN UPDATING A RECORD, I WANT THE DATABASE TO STOPE PROCCESSING AND 
TELL THE USER THAT THERE IS A RECORD ALREADY ENETERED... I HAVE BEEN 
TRYING 2 WORK THIS OUT, BUT TO NO AVAIL!!!! PLEASE PLEASE CAN ANYONE HELP 
ME.... CHEERS DALE""


dim oRS, SQLtxt, oRS2
dim varItemDay
dim varItemPool
dim varItemActivity
dim varItemStartTime
dim varItemEndTime

ID=Request.querystring("ID")
varItemDay = Request.querystring("Day")
varItemPool = Request.querystring("Pool")
varItemActivity = Request.querystring("Activity")
varItemStartTime = Request.querystring("Start_Time")
varItemEndTime = Request.querystring("End Time")

set oRS=server.CreateObject("ADODB.recordset")
oRS.Open "PoolTimeTable",db,adOpenKeyset
oRS.find "ID = " & ID

SQLtxt = "SELECT * FROM PoolTimeTable WHERE Date =" & varItemDay & ""

Set oRS2 = Server.CreateObject("ADODB.Recordset")
oRS2.CursorLocation = adUseClient
oRS2.Open SQLtxt, adOpenDynamic, adLockOptimistic

if oRS2.RecordCount > 0 Then

Response.Write "Record already entered"

Else

If varItemDay<>"" then oRS("Date") = varItemDay
If varItemPool<>"" then oRS("Pool") = varItemPool
If varItemActivity<>"" then oRS("Activity") = varItemActivity
If varItemStartTime<>"" then oRS("Start_time") = varItemStartTime
If varItemEndTime<>"" then oRS("End Time") = varItemEndTime
oRS.Update

End if

Ors.Close
Ors2.Close

I'd try a couple of things:

1. If the field in your table is a date field, change your
SELECT:

SQLtxt = "SELECT * FROM PoolTimeTable WHERE Date =" & varItemDay
& ""

to:

SQLtxt = "SELECT * FROM PoolTimeTable WHERE Date =#" &
varItemDay & "#"

2. Change your test for existence:

if oRS2.RecordCount > 0 Then

to:

if Not oRS2.EOF  Then


Larry Woods



> -----Original Message-----
> From: Dale James Wright [mailto:dwright@c...]
> Sent: Monday, July 08, 2002 10:48 AM
> To: Access ASP
> Subject: [access_asp] RECORDSET PROBLEM - CHECKING DUP
>
>
> "HI GUYS... I CAN CHECK FOR DUPLICATE RECORDS WHEN
> ADDING NEW RECORDS, BUT
> I AM HAVING AN ISSUE WHERE I CANT CHECK FOR DUPOLICATE
> RECORDS WHEN
> UPDATING RECORDS...I HAVE A SCRIPT THAT OPENS A
> DATABASE, FINDS AN UNQIUE
> RECORD (id) WHICH UPDATES THAT RECORD..NOW WHAT I WANT
> TO BE ABLE TO DO IS
> TO CHECK TO SEE IF THE RECORD THAT HAS BEEN UPDATE
> ISNT DUPLICATING WHAT
> IS ALREADY IN THE DATABASE. FOR INSTANCE, IF A USER
> SELECTS MONDAY AS A
> DATA WHEN UPDATING A RECORD, I WANT THE DATABASE TO
> STOPE PROCCESSING AND
> TELL THE USER THAT THERE IS A RECORD ALREADY
> ENETERED... I HAVE BEEN
> TRYING 2 WORK THIS OUT, BUT TO NO AVAIL!!!! PLEASE
> PLEASE CAN ANYONE HELP
> ME.... CHEERS DALE""
>
>
> dim oRS, SQLtxt, oRS2
> dim varItemDay
> dim varItemPool
> dim varItemActivity
> dim varItemStartTime
> dim varItemEndTime
>
> ID=Request.querystring("ID")
> varItemDay = Request.querystring("Day")
> varItemPool = Request.querystring("Pool")
> varItemActivity = Request.querystring("Activity")
> varItemStartTime = Request.querystring("Start_Time")
> varItemEndTime = Request.querystring("End Time")
>
> set oRS=server.CreateObject("ADODB.recordset")
> oRS.Open "PoolTimeTable",db,adOpenKeyset
> oRS.find "ID = " & ID
>
> SQLtxt = "SELECT * FROM PoolTimeTable WHERE Date =" &
> varItemDay & ""
>
> Set oRS2 = Server.CreateObject("ADODB.Recordset")
> oRS2.CursorLocation = adUseClient
> oRS2.Open SQLtxt, adOpenDynamic, adLockOptimistic
>
> if oRS2.RecordCount > 0 Then
>
> Response.Write "Record already entered"
>
> Else
>
> If varItemDay<>"" then oRS("Date") = varItemDay
> If varItemPool<>"" then oRS("Pool") = varItemPool
> If varItemActivity<>"" then oRS("Activity") = varItemActivity
> If varItemStartTime<>"" then oRS("Start_time") 
> varItemStartTime
> If varItemEndTime<>"" then oRS("End Time") = varItemEndTime
> oRS.Update
>
> End if
>
> Ors.Close
> Ors2.Close