DateAdd to a field in access

Since you are already on the new duplicated record, you can just add this:

   Me.Eval_date = DateAdd("d", 1, Date)
   Dirty = False

Select allOpen in new window

Ok, so I tried the above and I have this:

 DoCmd.RunCommand acCmdSelectRecord
   DoCmd.RunCommand acCmdCopy
   DoCmd.RunCommand acCmdRecordsGoToNew
   DoCmd.RunCommand acCmdSelectRecord
   DoCmd.RunCommand acCmdPaste
   Me.Eval_date = DateAdd("d", 1, Date)
   Dirty = False

Select allOpen in new window

But instead of taking the last date (like if the Record was from 12 Dec), it takes the current date and adds 1 to it. So it copied the record and then the script put 3 Jan in there (and today is the 2nd of Jan) instead of it being 13 Dec.

Use this:
   Me.Eval_date = DateAdd("d", 1, Me.Eval_Date)

Brilliant!

So, if I have a number stored in a field, and the field type is set to number, if I want to add 1 to it I thought it would look like this

Me.Current_visit = [Me.Current_visit] + 1

Select allOpen in new window

But I'm getting an error with that too. Why wouldn't that work?

What error message are you getting?

The MS Visual Basic for Applications opens up and then says

Compile error:

Method or data member not found.

Do you have a textbox named Current_visit in your form?

I don't, it's just called Visit

If Visit is bound to a field in your table and you want to increment it by 1, you would use:
Me.Visit = [Me.Visit] + 1

Yea, it's still not going.

I've attached it here for you to look at if you want.

If you bring up a record (I was testing with Dora TheExplorer), if you click on Initial Evaluation, and then Create re-Evaluation, it copies the record and adds 1 to the date like it's suppose to.

I took that code (to add the date) and put it on the Daily Note Form/Tab, and that same code to copy the date and add 1 gets that Method error, as well as when I try to increment the visit +1

So, what should happen on the Daily Notes page, when you click "New Note/Copy Current" it should copy the note, add 1 to the date and increase the Visit by 1.

Any ideas what I'm doing wrong?
V3.accdb

Can you save your database as 2007 version.  I don't have 2010.

I just tried and it won't let me because it says it uses features that are only available in access 2010

Do I need to declare the variables? I've been reading some stuff about that.

For the current form, the code is.

DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdCopy
  DoCmd.RunCommand acCmdRecordsGoToNew
  DoCmd.RunCommand acCmdSelectRecord
  DoCmd.RunCommand acCmdPaste
  Me.Apt_Date = DateAdd("d", 0, Me.Apt_Date)
  Me.Current_visit = [Me.Current_visit] + 1
  Dirty = False
MsgBox "Re-Evaluation Created", vbInformation, ""

Select allOpen in new window

Go ahead and save a copy of your database in 2007.  Don't worry about the warning.  I just need to see what you have.

It won't even give me the option, unless there is a way I don't know how.

When I do a Save As, I can't change the file type or hit the drop down to select "All Files" and then change the extension.

If I do a Save & Publish, and Save Database As, and then Acess 2002-2003 .mbd, an error pop up comes and the only option is OK.

I've attached a screen shot of the error, let me know if it's any assistance at all.

Brilliant! It's working perfectly now, for the changes to both variables. Thanks a ton, you've been a lifesaver.