Auto populate record based on last record

[deepakg27]

HI Guys,

I am working on a production database. Where Just storing the product and quantity being produced of a particular product on basis of each machine. Form has following fields:
Date, Product, DayQty & NightQty.

I was wondering if it is possible to auto populate product field of each new record automatically to what was entered in the immediate last record. Though the user has freedom to choose the product type and change it. Product field in form is Combo Box, where it is getting values from tblProduct & in tblProduction productID is being stored.

Looking forward to your help.


Thanks and Regards
Deepak Gupta

[davegri]

Try this:

Private Sub Form_Current()
    If IsNull(TempVars!tvProduct) Then Exit Sub
    If Not Me.NewRecord Then
        TempVars!tvProduct = Me.cboProduct.Value
    Else
        Me.cboProduct = TempVars!tvProduct
    End If
End Sub

[orange]

You might try using a variable or tempVar. It would be helpful if you showed us your form and/or a sample of the filled form.

[deepakg27]

Dear Davegri & Orange,

Thanks for your reply.

Davegri, I am trying to understand your code, but sorry to say unable to understand in detail. As I am a total novice in VBA & access also I am a newbie. What I have been able to make out of your code till now, it would work if we were making entries repeatedly in a single instance, Where as I need the auto populate to work for the first time form is opened.

I agree this might work for my problem, but slight modification might be required. Hence I am attaching my Access file for your reference. I need to Auto populate Product_FK automatically same as last record, If user needs he can change the value if required. I am opening the form through a macro in New Record mode (M1NewRecord).

Thanks for all your help.
Regards
Deepak Gupta

Prd.zip

[davegri]

Prd-davegri-v001.zip
Added form_open code to frmProductionM1.
Form will now open with new record, initialized to the last product added to tblProductionM1.
I hope that's what you described.

[orange]

Cross posted with responses and sample database at http://www.utteraccess.com/forum/ind...ic=2048506&hl=

Deepak --when you post the same question on multiple forums (CROSS POSTING)

Please do the following:
-tell readers that you have done so
-identify a link to the other post(s)

Here is why: https://www.excelguru.ca/content.php?184

[deepakg27]

Dear Orange,

Kindly look into the question asked on other forum. I have used the same DB but the question is totally different. Here I have asked how to auto populate a feild based on last record AND in the other link (Utter Access) I am just trying to find out is it possible to use 1 Form to feed data directly into 2 or 3 different tables.

Still, if you feel that the questions are same, please accept my sincere apology and I will try to point out, in future if any related posts have been posted in different sites.

Laslty, I am not a random poster who just keeps posting and feel forums are one of the best gifts of Internet, which help us in learning and solving our problems. Thanks to every one who is helping others, to get through there projects.

Thanks and Regards
Deepak Gupta

[orange]

Deepak,
Not a problem. I just wanted you to know that cross posting is acceptable and encouraged. But the forums are "staffed" with volunteers who participate and share their knowledge freely. It is considered proper etiquette/netiquette generally to advise those who may be assisting and/or researching to post related links. I was not suggesting that you were a random poster.

The table structure suggested on the other forum seems appropriate, but you know your environment better than readers.

Good luck with your project.

[deepakg27]

Thanks Orange, I totally understand and agree with your point of view.

[deepakg27]

Thanks Davegri, solution works perfectly.

Regards
Deepak Gupta

[davegri]

Glad to help. You'll have to add the code to the other 2 forms, adapting for the other 2 tables.

[deepakg27]

Davegri, Already did that.

Thanks