I would like to display the calculated field result from a query in a text box on the form
I have a Training details form which has a control, Training_Date text box and then a combo box Frequency which has a number of set days. This is calculated in the query and I would like to have the result displayed in the form control Due_Date once the choice from the combo box is chosen.
This will then allow the value to be recorded in the table allowing for reports and queries on training due.
I have tried a number of methods without any luck as yet.
Many thanks for the reply
I placed your code in the update event for cboDue_Date and it still didn't work, I then put the Control Source for txtDue_Date as =[qryTraining Query]![Due_Date]. I am now displaying #Name? in the text box.
This is the code in the form module.
'Code to display calculated field from Training_Query in form
May be you can prepare sample DB with this form and some dummy data in table?
Michael
ASKER
Hi als315
I have attached the database with some info though please excuse the errors as I am trying to fix them with another expert from this forum as we speak.
When you open the database if you close the error message and double click frmPPS_Training_Register the tabbed form will open and then click on the Training Details tab to see the Due Date text box.
Look at sample. txtDue_Date field should be bounded if you like to store it in table. Change cboFrequency and you will see changes PPS-Employee-Training-1.accdb
Michael
ASKER
Many thanks als315
The changes work well and update immediately allowing the user to view before saving the record.
Cheers
als315
Michael! You didn't select any my comment as an answer, so it will not be marked as a solution and no points will be assigned to it.
I placed your code in the update event for cboDue_Date and it still didn't work, I then put the Control Source for txtDue_Date as =[qryTraining Query]![Due_Date]. I am now displaying #Name? in the text box.
This is the code in the form module.
'Code to display calculated field from Training_Query in form
Private Sub cboFrequency_AfterUpdate()
Me.[txtDue_Date] = Dateadd("d", [cboFrequency], Datevalue([txtTraining_Dat
End Sub
Cheers