[AccessD] Data copied to both tables????

This gives me an invalid option error.  :(

Keith E. Williamson
Ashland Equipment, Inc
phone # (410) 273-1856
fax #     (410) 273-1859


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of DWUTKA at marlow.com
Sent: Friday, August 27, 2004 4:12 PM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Data copied to both tables????


Try replacing this line:

Set mytable2 = db.OpenRecordset("tempfax_" & CurrentUser)

With 

Set mytable2 = db.OpenRecordset("tempfax_" & CurrentUser, dbOpenTable)

See if that makes a difference.

Drew
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Keith Williamson
Sent: Friday, August 27, 2004 2:30 PM
To: 'Access Developers discussion and problem solving'
Subject: RE: [AccessD] Data copied to both tables????


Thump!!  Thump!!  Thump!!  Thump!!  (Banging head on
desk)......arrrrrfffggghghghghg!!!

Keith E. Williamson
Ashland Equipment, Inc
phone # (410) 273-1856
fax #     (410) 273-1859


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Keith Williamson
Sent: Friday, August 27, 2004 1:45 PM
To: accessD at databaseadvisors.com
Subject: [AccessD] Data copied to both tables????


3rd Attempt to post this...my posts to this list are not coming through....

Can someone please tell me why the code below adds data to BOTH the tblfax
table AND the (tempfax_& currentuser) table??????

I'm at wits end here. All the fields being added to recordset "mytable2" are
from unbound fields in the open form. The intent here is to copy an empty
table "tblfax" (which has no data), and call it "tempfax_" & current
user.....copy the forms data to this table...and use it for the data source
for a report. For some reason...the data is being copied to both tables. I
can't understand why. Any ideas???

Dim db As Database

Dim stDocName As String

Dim mytable2 As Recordset

Dim sqlstring As String

Dim recSource As String

Set db = CurrentDb

DoCmd.CopyObject , "tempfax_" & CurrentUser, acTable, "tblfax"

Set mytable2 = db.OpenRecordset("tempfax_" & CurrentUser)

With mytable2

.AddNew

![faxto] = [TempFaxTo]

![phonenum] = [tempphone]

![faxfrom] = [TempFrom]

![faxnum] = [TempFaxNum]

![Pages] = [TempPages]

![urgent] = [TempUrgent]

![review] = [TempForReview]

![comment] = [TempPleaseComment]

![reply] = [TempPleaseReply]

![message] = [TempMessage]

.Update

End With

 

Thanks,

Keith E. Williamson

Ashland Equipment, Inc

phone # (410) 273-1856

fax # (410) 273-1859

-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com


-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com
-- 
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com