resetting combo box

[xopherira]

How do you reset combo box to first item in list after a selection has been made and a process ran?

Private Sub mdr_bom_ComboBox_AfterUpdate()
    DoCmd.SetWarnings (WarningsOff)
    
    If mdr_bom_ComboBox.Value = "1" Then
    DoCmd.RunMacro "3BSM_BOM_Load_Template", , ""
    ElseIf mdr_bom_ComboBox.Value = "2" Then
    DoCmd.RunMacro "LiftFan_BOM_Load_Template", , ""
    ElseIf mdr_bom_ComboBox.Value = "3" Then
    DoCmd.RunMacro "Roll_Post_BOM_Load_Template", , ""
    ElseIf mdr_bom_ComboBox.Value = "4" Then
    DoCmd.RunMacro "VAVBN_BOM_Load_Template", , ""
    End If
    
End Sub

[ranman256]

cboBox = "MyFirst Item"
or
cboBox = cboBox.itemdata(1)
or
cboBox = 7 (IF YOUR COMBO BOX IS BOUND TO A NUMERIC INDEX NOT SHOWN and 7 is the 1st item)