Combobox Values are Disappearing

[warren0127]

Hello,



I have created a subform that lists three comboboxes for organizations and are cascading (dependent on each other) depending on which selection the user makes. IE: Combobox B will only show items that are tied to whatever selection the user made in Combobox A.

The comboboxes are:

Customer Organization (cboCustomer1)
Sub Organization (cboSubOrganization1)
POR (cboPOR1)

All of this is working fine.. but the issue appears when the subform loses its focus. So what happens is, the second and third comboboxes are "blanked out" in all records when you go back and look at the form.. all except the "First" record of the subform (first record data seems to still appear fine)

..And the values are being stored in the table and all seem to appear there fine.. but still disappears in the form itself...

I have included this VBA in the form as instructed in a previous tutorial I followed:

Private Sub cboCustomer1_AfterUpdate()

Me.cboSubOrganization1.Requery
Me.cboSubOrganization1.Value = ""


Me.cboPOR1.Requery
Me.cboPOR1.Value = ""


End Sub

Private Sub cboSubOrganization1_AfterUpdate()


Me.cboPOR1.Requery
Me.cboPOR1.Value = ""


End Sub

Any idea what I am doing wrong? Again, the cascade logic seems to work fine - just would like the values to not disappear after scrolling past the first record.

Thanks for your help.

[ranman256]

Me.cboPOR1.Value = ""
means the value will disappear.

[warren0127]

I took out the Me.cboSubOrganization1.Value = "", and the Me.cboPOR1.Value = "" and ran the program again.

Still continues to blank out the second and third dropdowns - but keeps the first dropdown box value. Also, when clicking in the second and third dropdowns, it shows the dropdown choices relevant to the previous record's dropdowns...

[warren0127]

Apologize for the double post here - but has anyone else had something similar happen to them with what I am experiencing?

Appreciate any help on this.