Exit when press cancel Form

[Gregory23]

Hello all,



Could you please help me how to exit the form if Cancel button is pressed in the inputbox ?

Also is it possible to set a rule to only be able to enter to letters and 4 numbers (e.g SH1234)

Private Sub PrintShLabel_Click()


DoCmd.OpenForm "ShipperLabelForm", acViewPreview, , "[UIC]=" & InputBox("Enter UIC")


End Sub

[ranman256]

for a normal form, (a non-INPUT box.)

sub btnClose_click()
docmd.close
end sub

for INPUT box, its built in.
either use a form, or the input box, not both.

[Gicu]

I think you want something like this

Private Sub PrintShLabel_Click()

dim sUIC as string

sUIC=InputBox("Enter UIC")

if sUIC="" then exit sub

DoCmd.OpenForm "ShipperLabelForm", acViewPreview, , sUIC     '"[UIC]=" & InputBox("Enter UIC")


End Sub

Cheers,
Vlad

[Micron]

Also is it possible to set a rule to only be able to enter to letters and 4 numbers (e.g SH1234)

You can trap for invalid entry, including no entry, but you cannot stop the input box form from closing. You'd either have to reopen it and repeat until the entry is satisfactory, or use your own input form.