Show Msgbox / stop code running if Combobox is empty

[ipbr21054]

Hi,
I am currently using the code below & also supplied a screenshot of the form.

The issue i have is that when i press CHECK MY PART NUMBER it should not continue to run the codeif ComboBox2 is empty.
Basically ComboBox2 should show a value for it to continue,if empty then i will add a Msgbox but not sure where ive gone wrong.

Please advise thanks

Private Sub CheckMyPartNumber_Click()
    If ComboBox2.Value > 1 Then
        HondaParts.MyPartNumber.Value = ComboBox2.Value
        HondaParts.Show
    Else
        MsgBox "NO HONDA PART NUMBER WAS SELECTED", vbCritical, "HONDA PART NUMBER LOOK UP MESSAGE"
    End If

End Sub

 

[fadee2]

Add

exit sub

between msgbox and End If statements. this will end your procedure.

 

[ipbr21054]

Hi,
You mean like this ??
As if so its the same.

    Else
        MsgBox "NO HONDA PART NUMBER WAS SELECTED", vbCritical, "HONDA PART NUMBER LOOK UP MESSAGE"
    Exit Sub
    End If

End Sub

 

[fadee2]

yuppers...

Assuming you have another piece of code running, after your End if statement, placing Exit Sub in between will simply end the sub, without proceeding once the msgbox is displayed.

 

[ipbr21054]

That didnt works and the code still runs.
The Msg in the code didnt even show

 

[fadee2]

this should have exited the code once your condition for partsnumber is matched and the msgbox is displayed.

 

[ipbr21054]

Wait
The question was if the value = 0 / empty value dont continue

 

[fadee2]

how are you populating your combobox?

 

[ipbr21054]

Its a list from a table BUT if i dont select anything and press CHECK MY PART NUMBER then the code should see that nothing was selected and then show the Msg in the code MsgBox "NO HONDA PART NUMBER WAS SELECTED", vbCritical, "HONDA PART NUMBER LOOK UP MESSAGE"

This part isnt happening

 

[ipbr21054]

Ok i think i got it.
The code should be

If ComboBox2.ListIndex > -1 Then