Run-time error 2489

[dhicks]

Hello,

I have a main form with a subform. The subform is bound to a table. I am trying to create a command button that will go to a new record in the subform and also auto-populate a field with the current date. This is the code:

Private Sub cmdNewChkOut_Click()


Me.Controls("frmChckOutHist").SetFocus
DoCmd.GoToRecord acDataTable, "tblChkInOutHist", acNewRec
Me!Reservation_Date = Date


End Sub

When I click on the button I get the run-time error 2489 stating that the bound table is not open. What am I missing? I can see the data in the table displaying in the subform, so I would think it would be open. Any help would be greatly appreciated.



Many thanks!

[Bob Fitz]

Try:

Me.[frmChckOutHist].SetFocus
DoCmd.GoToRecord , , acNewRec
Me!Reservation_Date = Date

[Bob Fitz]

You could omit the line:

Me!Reservation_Date = Date

and just set the controls Defult Value on the sub form or field in the table instead

[dhicks]

That seemed to have done the trick, thanks! However, now I am getting error 2465 for the last line of code, saying that Access can't find the field 'Reservation_Date' referred to in the expression. I'm assuming I should be using the field name from the table itself, is that right?

[Bob Fitz]

Try:

Me.[frmChckOutHist].form.Reservation_Date = Date

[dhicks]

Yes! That did it. I was just missing the "form" part of the syntax. Thanks much to all!!

[Bob Fitz]

You're welcome. Glad to help

[dhicks]

I don't want to press my luck here, but I am 99.99% complete with this form except for one line of code. Based on the item selected in the main form, I want the Serial Number field in the subform to match what is displayed in the Main form. Both fields use Short Text data types and hold alphanumeric data. I am getting error 13 Type Mismatch for this line of code"

Forms!frmChckOutHist!Service_Tag_SN = Service_Tag_SN!Forms!frmLnrLckrInv.Refresh

[Bob Fitz]

Perhaps:

Me.[frmChckOutHist].form.Service_Tag_SN = Me.Service_Tag_SN

[dhicks]

You are awesome, it's perfect!! Thank you very much!

[Bob Fitz]

You are awesome, it's perfect!! Thank you very much!

Thank you for your kind words but as I said before, just happy to help. Having said that, adding to my reputation by clicking on the star at the bottom left would be much appreciated

[dhicks]

Happy to do it!!