Multiple Items Form - Interaction btw Fields

[Douglasrac]

Hi,

My database have 2 tables, Clients and Payments.
I fill Clients form and open Payments form, which is related by a foreign ID.

The payments form is Multiple Items type, so I can see several records of that table in one form.

The form has one field called Date of Payment. I can only see the payments related to that client, since the form opens with a filter (the foreign ID).

I want to do the following: I type a date and when I press TAB to type the next date (which will be a new record, but in the same form) it will be automatically filled with the date I just typed + 1 month.



So, it's like: get the last record that are showing in the form and add 1 month.
Or, to be more simple, can be: get the last record of the table and add 1 month.

How can I do this?

[pbaldy]

You should be able to use this technique, but use DateAdd() to add a month:

http://www.mvps.org/access/forms/frm0012.htm

[Douglasrac]

You should be able to use this technique, but use DateAdd() to add a month:

http://www.mvps.org/access/forms/frm0012.htm

Hi pbaldy,

Thanks for the reply.

I guess you got this link from here: http://allenbrowne.com/ser-24.html

And for me, I think the best would be the option B. So I implemented this option and I got this error:

Object doesn't support this property or method.

Is it because it's a date? I also have an Input Mask, for dates (00/00/0000;0;_). P.S.: tried without the input mask, same problem.

Instead of just pressing tab, could also be ok a button, which command will be to copy the last record and paste into a new one.
Sorry but I have no idea how to start this things.

[pbaldy]

I got it from where I linked it from. I tested that method and it worked fine with a date. If you're using Allen's method, what line throws the error? I tested with the after update event of the textbox.

[Douglasrac]

I got it from where I linked it from. I tested that method and it worked fine with a date. If you're using Allen's method, what line throws the error? I tested with the after update event of the textbox.

No specific line. There is no debug option. Just a box with the error and an OK button.

How do you use Ashish method? I don't know how to implement that.

I might be going somewhere with this:

Private Sub DateofPayment_AfterUpdate()
DateofPayment.DefaultValue = DateAdd("m", 1, Me.[DateofPayment])
End Sub

The problem is that is not adding 1 month. I put 01/01/2011 and the next record is 12/30/1899. Doesn't make any sense.

[pbaldy]

This is in Allen's CarryOver function? Temporarily comment out the line:

On Error GoTo Err_Handler

and run the code. You should then be offered the option to Debug, which will take you to the offending line.

[pbaldy]

This worked for me with Dev's code:

Const cQuote = """"
Me!datex.DefaultValue = cQuote & DateAdd("m", 1, Me!datex.Value) & cQuote

Datex being the name of the control in my test.

[Douglasrac]

This worked for me with Dev's code:

Const cQuote = """"
Me!datex.DefaultValue = cQuote & DateAdd("m", 1, Me!datex.Value) & cQuote

Datex being the name of the control in my test.

It's not clear to me how to implement this. DefaultValue control? That only allow expression not Event procedure. Whet do I put this expression?

[Douglasrac]

Ok I got it.

Thank you! Working like a charm!

[pbaldy]

Glad you got it working.

[dunnmel4]

Would I be able to see your database? I am trying to create something similar for my current company and I'm a beginner at Access. It would be much appreciated!

[Douglasrac]

Would I be able to see your database? I am trying to create something similar for my current company and I'm a beginner at Access. It would be much appreciated!

Yes of course.
All I learned of Access was in forums, with people that help without asking anything back. I'm more than obliged to share my knowledge.

I will ask you to come here: https://www.accessforums.net/queries...html#post52658

where I posted my database. It's attached to the post.

Hope will be useful, but I already advise you that it is in another language. Fortunately the commands and codes are all universal language.

[Douglasrac]

This worked for me with Dev's code:

Const cQuote = """"
Me!datex.DefaultValue = cQuote & DateAdd("m", 1, Me!datex.Value) & cQuote

Datex being the name of the control in my test.

One more question related to this. How do I make the same button add +1 to another field?
The field is a number (integer). I put 1, then when I click to the button that add 1 month to the new record of date field, should add 1 to the new record of this integer field.

[Douglasrac]

Ok, here is what I did:

Me!NumerodaParcela.DefaultValue = "'" & Me!NumerodaParcela.Value & "'"

Now where the +1 goes?

[Douglasrac]

After several tries, here it goes.

Me!NumerodaParcela.DefaultValue = "'" & Me!NumerodaParcela.Value + 1 & "'"