Help with "Select Case"

[Mebs]

Need some help with 'Select Case'.

I have the following; on a form
Comb_buyer
Comb_comp
Comb_job
txtBx_Projtitle
txtBx_BU
TxtBx_PurOrdNo
TxtBx_PurOrdDate

What I need to do is, on click of Cmdbtt_Draft button, I need to check if any of the above is blank (empty, null, etc) then display message box listing which ones are blank (empty, null, etc). If none are blank (empty, null, etc) then message box with "Written to Database, with Status of Draft". Any suggestions?

 

[Rasm]

You dont use select case - but something like this - I assume these are textboxes and ComBoBoxes.


If isempty(txtbx_Projtitle) then MsgBox"Enter data": exit sub

If Comb_job.listindex<0 then MsgBox"Select data":exit sub

Need some help with 'Select Case'.

Comb_job
txtBx_Projtitle

then message box with "Written to Database, with Status of Draft". Any suggestions?

 

[Mebs]

Rasm, thanks for the quick response. The combo boxes work fine but the text boxes don't? But if they are blank or empty then no message appears?

 

[Rasm]

try this - trim removes spaces on both ends

If trim(txtbx_Projtitle.text) = vbnullstring then MsgBox"Enter data": exit sub

 

[Rasm]

BTW - it is a bad idea to use _ in your names - that is how an event is normally triggered - I dont know if it is an actual problem - But I suggest you dont use underscores.

 

[Mebs]

Thanks, it works. I'll bear the underscore in mind next time.

Is there a way that I get one message box that appears listing all the ones that are blank?