Program forms to auto populate upon selection of specified criteria

[elamadon0228]

Hello! I'm creating a data form for a research project and I'm trying to utilize MS Access. I'll start right off with that I'm pretty much a novice with Access - I know how to do a lot, but I'm by no means an expert. I'm hoping that if I tell you what I want to do, someone can tell me how to do it (spell it out for me please!)

I have created my table and my data form. My data form consists of several drop down box menus with preselected options. I'm wondering if there is a way to code/program the form so if N/A is selected in a specific field, it will automatically pre-populate in other fields as well.

For example:

If I the field box is "Was the treatment received" and the options are Yes and No. If No is selected, I would like any further form boxes pertaining to treatment to auto populate to N/A (which is an option in my combo box menu for these fields). To clarify: If I select NO in Combo Box 1, I want N/A to automatically be selected as the option for Combo Box 4,5, and 6. Make sense?



Is there a way to do this? Your help is much appreciated!

[ssanfu]

Welcome to the forum....

I'm wondering if there is a way to code/program the form so if N/A is selected in a specific field, it will automatically pre-populate in other fields as well.

Make sense?

Sure.
Should be able to use the after update event of the "Was the treatment received" combo box to change combo box 4,5, and 6 values to "N/A".
What is the row sources for combo boxes 4, 5, and 6? Value list, a query?

[elamadon0228]

The row sources are value lists.

[ssanfu]

So you are storing text. OK, since I don't know your control names, the code would look something like this:

Private Sub cboTreatmentReceived_AfterUpdate()

    If Me.cboTreatmentReceived = "No" Then   '<<- change No to N/A ...not sure what you want here.  
        Me.cboCombo4 = "N/A"
        Me.cboCombo5 = "N/A"
        Me.cboCombo6 = "N/A"
    End If
    
End Sub

Change the control names to your control names.

Could have

Private Sub cboTreatmentReceived_AfterUpdate()

    If Me.cboTreatmentReceived = "No" or Me.cboTreatmentReceived = "N/A" Then  
        Me.cboCombo4 = "N/A"
        Me.cboCombo5 = "N/A"
        Me.cboCombo6 = "N/A"
    End If
    
End Sub

[elamadon0228]

This worked perfectly! Thank you SO MUCH!!! As a resident pharmacist working on her research project, the help from people who know far better than I is SO appreciated!!

Thanks!

[ssanfu]

You're welcome. Happy to help.

Ready to mark this solved?