Help! MsgBox and Prevent Save
 

I have 3 textboxes lined up horizontally on a sheet... I have a cmd
button on the far right that loses the focus from the textboxes and
saves the workbook. See below....

'....loses focus of textboxes
Private Sub Commandbutton_Click()
Me.TxBName.Enabled = CBool(Me.TxBName.Value = "")
Me.TxBAddress.Enabled = CBool(Me.TxBAddress.Value = "")
Me.TxBCity.Enabled = CBool(Me.TxBCity.Value = "")
'....saves workbook
ActiveWorkbook.Save
End Sub

My question, how do I force the user to fill all textboxes. For example
an user completes the name and address textboxes but fails to complete
the city textbox... then he/she presses the cmd button... I want a
msgbox to pop up "complete all fields before booking" and would not let
him/her save the workbook. How do I accomplish this???


---
Message posted from http://www.ExcelForum.com/

Help! MsgBox and Prevent Save
 

You are already checking if the textbox is empty. Use the same logic with
an IF statement to put up a msgbox, then exit the sub so the workbook is not
saved.

--
Regards,
Tom Ogilvy

"nrage21 " wrote in message
...
I have 3 textboxes lined up horizontally on a sheet... I have a cmd
button on the far right that loses the focus from the textboxes and
saves the workbook. See below....

'....loses focus of textboxes
Private Sub Commandbutton_Click()
Me.TxBName.Enabled = CBool(Me.TxBName.Value = "")
Me.TxBAddress.Enabled = CBool(Me.TxBAddress.Value = "")
Me.TxBCity.Enabled = CBool(Me.TxBCity.Value = "")
'....saves workbook
ActiveWorkbook.Save
End Sub

My question, how do I force the user to fill all textboxes. For example
an user completes the name and address textboxes but fails to complete
the city textbox... then he/she presses the cmd button... I want a
msgbox to pop up "complete all fields before booking" and would not let
him/her save the workbook. How do I accomplish this???


---
Message posted from http://www.ExcelForum.com/

Help! MsgBox and Prevent Save
 

Hi,
Add following if statement :

if Me.TxBName.Enabled<"" And Me.TxBAddress.Enabled<"" And
Me.TxBCity.Enabled Then
Activeworkbook.Save
else
Msgbox "Please fill out all the fields"
end if


---
Message posted from http://www.ExcelForum.com/

Help! MsgBox and Prevent Save
 

'....loses focus of textboxes
Private Sub Commandbutton_Click()
Me.TxBName.Enabled = CBool(Me.TxBName.Value = "")
Me.TxBAddress.Enabled = CBool(Me.TxBAddress.Value = "")
Me.TxBCity.Enabled = CBool(Me.TxBCity.Value = "")
if Me.TxBName.Enabled<"" And Me.TxBAddress.Enabled<"" And
Me.TxBCity.Enabled<"" Then Activeworkbook.Save
else
Msgbox "Please fill out all the fields"
end if
End Sub

:( It doesn't work... what am I doing wrong??


- Larry -
VBA Amateur


---
Message posted from http://www.ExcelForum.com/

Help! MsgBox and Prevent Save
 

Sorry, is my fault,

I just copied the lines without reading. should be like this :

if Me.TxBName<"" And Me.TxBAddress<"" And Me.TxBCity<"" The
Activeworkbook.Sav

--
Message posted from http://www.ExcelForum.com

Help! MsgBox and Prevent Save
 

I made the change.... I get an error message..

End without If !!!!


:(
nrage2

--
Message posted from http://www.ExcelForum.com

Help! MsgBox and Prevent Save
 

Hi,

If you have a statement after "then" on the same line, you don't nee
an "end if"

The correct syntax is as follows :

if Me.TxBName<"" And Me.TxBAddress<"" And Me.TxBCity<"" Then
Activeworkbook.Save
else
msgbox
end i

--
Message posted from http://www.ExcelForum.com

Help! MsgBox and Prevent Save
 

Thanks Tolgag... you're the man... It's finally working

final code:

Private Sub CommandButton1_Click()
'....loses focus of textbox
Me.TextBox1.Enabled = CBool(Me.TextBox1.Value = "")
Me.TextBox2.Enabled = CBool(Me.TextBox2.Value = "")
Me.TextBox3.Enabled = CBool(Me.TextBox3.Value = "")
'....if user leaves a textbox blank triggers messagebox and sets focus
if user completes everything then locks textbox and saves. Nice Tolgag
If Me.TextBox1 < "" And Me.TextBox2 < "" And Me.TextBox3 < "" Then
ActiveWorkbook.Save
Else
MsgBox "Unable to book"
Me.TextBox1.Enabled = True
Me.TextBox2.Enabled = True
Me.TextBox3.Enabled = True
End If
End Sub


:) nrage21 <= happy camper!

--
Message posted from http://www.ExcelForum.com