How do I change the selection of a combo box to a default value when text box content changes in Access 2013 VBA

Question

I'm needing to change the selections of two combo boxes to the a default value when the contents of a text box change. I have an audit trail tied to the fields, and I need the user to select a new 'change reason' and 'change initiator' (the combo boxes Qtr1Date1Changer and Qtr1Date1Initiator) when an inventory date changes (the text box Qtr1Date1). I have an AfterUpdate event for the text box to record the new date in the audit table; can I add something here to change the contents of the two combo boxes if the date changes to a default value?

    Private Sub Qtr1Date1_AfterUpdate()
       Call LogChanges(StoreCode) 
    End Sub

You should always look for simular SO questions and explain what you tried so far and what problem you encountered — Jeroen Heier
Thanks, @JDV, I saw this one when I was looking for similar but just wasn't sure about all the excel stuff in it. Oi. — Erika
@Erika, reading other Q&A will help you understand your own problem better. You need to exhaust those first to be sure this is not a duplicate. — user1531971
I did it, got it to work with that one. Added Qtr1Date1Changer = "<Select>" — Erika

Erika Erika · Accepted Answer · 2017-08-24T17:41:00

This is how I was able to solve:

   Private Sub Qtr1Date1_AfterUpdate()
       Call LogChanges(StoreCode) 
       Qtr1Date1Changer = "<Select>"
       Qtr1Date1Reason = "<Select>"
   End Sub

How do I change the selection of a combo box to a default value when text box content changes in Access 2013 VBA

1 Answers