something like this?
if too many then ask the user if they want to just use whats there...
if No.. exits sub
if yes.. then.. do your code
VB Code:
If ship2_no.Text Then metal1 = ship2_no.Text * 300 metalt = CLng(Label1.Caption - metal1) If metal1 > metalt Then If MsgBox("Not enough to build that many! Would you like to use whats available? (" & _ Label1.Caption & ")", vbYesNo + vbQuestion, "Not Enough") = vbNo Then Exit Sub metal1 = metalt 'do othe code.. End If End If




Reply With Quote