how to take a value from one form to anothor

[sspreyer]

ok

here's copy of my db

open form "frmplant"

Select Plant Type From Combo Box

then press command button " Add service"

this will open From "frmpopupPlantservice with sub from plantservicetbl subform

this will give you the service details of the plant item
then you will see text box showing next service due in the page footer


the Plantservicetbl subform record source Qryplantservice this were i need you to look

there is speech bubbles to help aswell
View attachment shanetest2.zip

thanks

shane

 

[vbaInet]

Unfortunately there are problems everywhere based on the two forms I've quickly looked at. I don't have time to scrutinise any further but here are some of the issues:

1. You're using subforms when you don't really need them. You parent forms can be set to Continuous forms and you can put the textboxes and combo boxes you don't want repeated in the form's Header section.
2. Saving calculated fields is not necessary (in your case) and a bad practice. Due date can be calculated anytime you need it.
3. Creating a query just so you can use a DateAdd() function that pulls data from a field in a subform is not necessary. There are other ways to get the date value and perform the calculation on it.

At this point the best thing for you to do is to get some advice on your table structure and ask for some help on restructuring your form. You'll need to create separate threads for these questions.

Do it once and get it right!

 

[sspreyer]

hi
VbaInet

just response before I close the thread

after take on board your finding and doing a lot reading and research

I ended up doing a complete re-design of my db:banghead: reduce sub forms and I run everything from one query

I have resolved the issues in this thread by using the dmax function on my new design db but with a criteria

 FindLast: DMax("[MaskServiceDate]","[MaskServiceTbl]","([ImpMaskID]= " & [MaskID] & ")")

then calculating the next service by

NextService: DateAdd("m",[MaskServiceMonths],[FindLast])

and keeping it all on one form hooray
as the say goes "Do it once and get it right!"

thanks for pointing us in the right direction

cheers

shane

 

[vbaInet]

I'm glad you got going in the right direction.