[AccessD] Help with a snippet

Exactly. I was just noodling around with this and figured out how to copy
and append the record with onclick:

    DoCmd.RunCommand acCmdSelectRecord
    DoCmd.RunCommand acCmdCopy
    DoCmd.RunCommand acCmdPasteAppend

But I don't know how to do the rest of it.

Thanks.

Regards,

Karen Rosenstiel
Seattle WA USA 
-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Darren Dick
Sent: Sunday, July 24, 2005 8:12 PM
To: Access Developers discussion and problem solving
Subject: RE: [AccessD] Help with a snippet

Hi Karen
Am I to assume if the NOTSEEN check box is checked you would like to
create a brand new 'appointment' ?

Darren


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Karen
Rosenstiel
Sent: Monday, July 25, 2005 8:59 AM
To: accessd at databaseadvisors.com
Subject: [AccessD] Help with a snippet

I was wondering if someone would be willing to help me with a snippet of
code.

I want to work with 4 fields in a sub table, as follows:

Checkbox "NotSeen" 
Date field "NextApp"
Textbox "Priority", which runs from 1 to 4 Date field "DateReschedule"

What I would like to do (if only I was any good at VBA) is when NotSeen
is checked, the whole record would be copied and appended. Priorities 2
thru 4 would each move up a notch, i.e., 2 would become 1, etc.
DateReschedule would take the date from NextApp and...

1. For the new priority 1, add 1 day to the date from NextApp and put it
in DateReschedule
     
2. For the new priority 2, add 2 days to the date from NextApp and put
it in DateReschedule
     
3. For the new priority 3, add 3 days to the date from NextApp and put
it in DateReschedule

Finally I would like the whole record to turn red if the priority is #
1, either from this snippet's conversion or when entered directly
(actually I think this will be unattractive, but my boss wants the color
to highlight the priority).

Is this doable in whole or in part?

Thanks in advance.

Regards,

Karen Rosenstiel
Seattle WA USA 


--
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