Updating A Date Field Via A Button (1 Viewer)

03erringtonl · Feb 19, 2014

Hi,

I'm having a problem trying to update a date field from a button.

I have a form called Add_New_Domain which runs from a table called Domain_Names.

Within the form there is a field called Expiry_Date which tells me when the domain is set to expire. When I first create an entry I manually enter a date in here.

However, every year when the domain renews I would like to increase this date by exactly a year by clicking a button which is also on the form.

Can anyone help me with the code which I need to make this happen as I have tried everything that I can see on the internet already and nothing seems to work.

Thanks is advance

namliam · Feb 19, 2014

I personally wouldnt over write any existing data, because once lost it isnt recovarable...
You might administrate your lost data in a subtable or even administrate your expiry dates in a seperate table....

However to answer your question
Me.Expiry_Date = Dateadd("YYYY",1,Me.Expiry_Date)

Should do what you are discribing...

03erringtonl · Feb 19, 2014

Thanks for your quick reply... I have tried the code that you send and I am now presented with the following error message when I click the button

Microsoft Access cannot find the object 'Me.'

If 'Me' is a new macro or macro group, make sure you have saved it and that you have typed its name correctly.

Does that mean anything to you?

namliam · Feb 19, 2014

Me should be a reference to the form you are in? are you not using the code inside the form?

03erringtonl · Feb 19, 2014

Yes... I'm using the code inside the form. I am right in thinking that the code should be applied to the on click event on the button?

Mile-O · Feb 19, 2014

From memory, should it not be this?

Code:

Me.[Expiry_Date] = DateAdd("yyyy", 1, Me.[Expiry_Date]

If you're going to put horrible characters in your names, you're going to have to remember to add square brackets every time.

03erringtonl · Feb 20, 2014

Hi,

Thanks for your reply.

I am still getting the same response when I use the square brackets.

namliam · Feb 20, 2014

I dont know what you are doing wrong, I just tested it to make sure on an empty form I made a control txtTest
Made a button btnTest
added this code to the button:

Code:

Private Sub btnTest_Click()
If IsNull(Me.txtTest) Then Me.txtTest = Date
Me.txtTest = DateAdd("YYYY", 1, Me.txtTest)
End Sub

It works like a charm, you will need to post your DB with the form and control and code to see whats going on and what you are doing wrong... cause it should just work.

03erringtonl · Feb 20, 2014

Thanks for your continued efforts... I really appreciate it.

Database is attached... The form in question is Add New Domain.

namliam · Feb 20, 2014

Cant see what you did or didnt try, since your database doesnt contain ANY VBA at all...
However,

Code:

Private Sub Command33_Click()
Me.Expiry_Date = DateAdd("YYYY", 1, Me.Expiry_Date)
End Sub

Worked just perfectly.

Please do have a read here: http://www.access-programmers.co.uk...1152269&highlight=Name+convention#post1152269

03erringtonl · Feb 20, 2014

Can you upload the files I sent you with the added code in.

I am either seriously getting this wrong as its still not working when I put the code in or there is something messing up with my computer/access.

Thanks

namliam · Feb 21, 2014

I already gave you the exact code.... Just go into design mode of the form,
right click the button,
choose "build event..."
Choose "code builder"
The private sub and end sub lines are already there, paste the one line of code there and your golden :/

Updating A Date Field Via A Button (1 Viewer)

03erringtonl

New member

namliam

The Mailman - AWF VIP

03erringtonl

New member

namliam

The Mailman - AWF VIP

03erringtonl

New member

Mile-O

Back once again...

03erringtonl

New member

namliam

The Mailman - AWF VIP

03erringtonl

New member

Attachments

namliam

The Mailman - AWF VIP

03erringtonl

New member

namliam

The Mailman - AWF VIP

Similar threads

Users who are viewing this thread