Single message box for multiple IF statements

[Simon]

I have three separate IF statemnts. Currently when they
are true, the following code is executed:

First IF statement

MsgBox "Please enter a Client Name"
Cancel = True

Second IF statement

MsgBox "Please enter a Sub Client"
Cancel = True

Third IF statement

MsgBox "Please enter a File Barcode"
Cancel = True


This produces three message boxes.

Is it possible to have one message box that shows the
statements that are true.

 

[Lars Kofod]

First IF Statement
sText="Please enter a Client Name

2. If Statement
sText="Please enter a Sub Client"

3. IF Statement
sText="Please enter a File Barcode"

msgbox sText
Cancel=true

 

[Nikos Yannacopoulos]

Simon,

msg = ""

IF 1st is true then msg = "Please enter a Client Name" &
(chr10)
IF 2nd is true then msg = msg & "Please enter a Sub
Client" & (chr10)
IF 3rd is true then msg = msg & "Please enter a Sub
Client" & (chr10)

msgbox msg

 

[Tom Ogilvy]

Dim msg as String
msg = ""
If criteria1 then msg = msg & "Please enter a Client Name" & vbcrlf
if criteria2 then msg = msg & "Please enter a Sub Client" & vbCrLf
if critiera3 then msg = msg & "Please enter a file BarCode"
if msg <> "" then
msgbox msg
End if

 

[Guest]

this solution worked great.

many thanks.

-----Original Message-----
Dim msg as String
msg = ""
If criteria1 then msg = msg & "Please enter a Client Name" & vbcrlf
if criteria2 then msg = msg & "Please enter a Sub Client" & vbCrLf
if critiera3 then msg = msg & "Please enter a file BarCode"
if msg <> "" then
msgbox msg
End if

--
Regards,
Tom Ogilvy





.