Duplicate Record

[abhudd47]

I am an administrative assistant. I use an Access database to track incoming and outgoing calls. (Incoming Calls is one table/form, Outgoing Calls is another.) I want to set it up so that, when I return a call, I can duplicate the incoming call form into the outgoing call form. What I'd really like to do is set it up so that double-clicking the phone number in the incoming call form creates a new record in the outgoing call forms with the name, contact information, and "regarding" fields automatically copied. I'm fairly new to using macros and everything, so might need to talk to me like I'm a moron. But I catch on quick. (Not all Outgoing calls will be in response to incoming calls, so simply having all new outgoing call forms reference the incoming calls table won't work...) Sorry if I sound like a novice. I used to be extremely proficient in Access, but that was back in 2004-2008. Things have changed a bit, and I've grown rusty.

Thanks for any help!

[ranman256]

build an append query to copy the current record, and add field info you need, on the dbl-click event

[Welshgasman]

I would just have one table with a field for incoming/Outgoing status.
Then you could just add record and populate it with whatever data you want from the incoming call.

[June7]

I also think one table is likely preferable.

Whether one table or two, method to duplicate date from a record would be basically same. And there is more than one way to do it. With SQL in VBA, would be like:

CurrentDb.Execute "INSERT INTO [tablename] (field1, field2, field3) SELECT field1, field2, field3 FROM [tablename] WHERE ID = " & Me.tbxID

Use your actual table and field names - second tablename can be same table or another.

Tricky part is figuring out what event to use - button Click or form Double-Click are two possibilities.

[madpiet]

I would just have one table with a field for incoming/Outgoing status.
Then you could just add record and populate it with whatever data you want from the incoming call.

I like buttons, and then I usually add a step to check "Are you sure?" because I don't want people to be duplicating stuff by accident.

dim bytResponse as byte
bytResponse = MessageBox("are you sure?", vbYesNo)
if bytResponse = vbYes then
'do whatever
end if