Open form with combo box value set to last record

[joecamel9166]

This was working at one point, but I had to change some things around and now it is not.
I have a combo box(cmbCustID) where I select my customer. If the customer is already in the system, I click the name and my subform fills in automatically. The problem lies when it is a new customer, I have a button that closes frmReceive and opens frmNewCustomer.
Once I fill in the customer info and I click the save button, this closes frmNewCustomer and opens frmReceive to last record.
If I drop down the combo box (cmbCustID) the customer that I just entered is in there, but I want that new customer info already filled in.



As far as I know I didn't change any of the code that would relate to these forms.

Is there a specific code that I can put in (maybe with parameters like)

Private Sub Form_Load()
If Not me.newrecord then
Me.Customer_Number = DLast("CustNumber", "tblCustID")
else
end if.
End Sub

This code was put in frmReceive. I thought this would work, but all that happens is when I click new customer, frmNewCustomer opens to last record.

[John_G]

What form is your combo box on?

I think you want to set the value of the combo box to the last customer ID, not the Customer_ID field.

me!cmbCustID = DLast("CustNumber", "tblCustID")

[joecamel9166]

cmbCustID is on frmReceive as the master field to the subform.

this still doesn't work.

and I need it somewhere so when I save frmNewCustomer, frmReceive opens back up with this data filled in( cmbCustID as well as all the data on the subform).

I do not want these to be filled in when I open frmNewCustomer to new record.

[John_G]

What you need then is a way to tell frmReceive that it is being re-opened after a new customer was added, and that the combo box should be set to the new customer ID. You could use a Global variable for that.

Another way to do this would be to have the code behind your new customer button just hide frmReceive, rather than closing it, open the new custome form as modal (see below), and then unhide frmReceive, something like this (untested, but close I think)

'
' Hide frmReceive
'
Forms!frmReceive.Visible = False
'
' Open form for new customer in dialog mode, to pause THIS code until that form is closed
'
DoCmd.OpenForm "frmNewCustomer", , , , , acDialog
'
' Unhide the frmReceive form
'
Forms!frmReceive.Visible = True
'
' Requery the combo box to ensure new customer is included
'
Forms!frmReceive!cmbCustID.Requery
'
' Set the combo box value to the new customer
'
cmbCustID = DLast("CustNumber", "tblCustID")

This way you don't have to worry about communicating between forms quite as much.

[joecamel9166]

So in the above code, I would unhide it when I was done and save frmNewCustomer.

Just so I am clear, this is not all done under the same function, and these can be separated to work on different button clicks on separate forms?

[joecamel9166]

Please disregard last post!

[joecamel9166]

Changed slightly

me.cmbCustID.Requery
me.cmbCustID = DLast("CustNumber", "tblCustID")

Works Perfectly now

[John_G]

Sorry - I posted this before I saw the disregard note. Glad you got it working. Sometimes the easiest way to pass information between forms is to keep them open.

I would unhide it when I was done and save frmNewCustomer.

The code would unhide frmReceive when you added a new customer and closed frmNewCustomer.
The code would be in the On Click event of the button in frmReceive, and it pauses as long as frmNewCustomer is open.

this is not all done under the same function, and these can be separated to work on different button clicks on separate forms?

As I have it here, it would all be in the same On_Click event procedure of the button in frmReceive. Putting parts in different forms probably would not work because you cannot access any other forms as long as frmNewCustomer is open. That is the effect of the acDialog setting in the DoCmd.openform statement.