Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
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/ |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Prevent dialogue: "save changes"? | New Users to Excel | |||
Prevent color change open/save sheet? | Excel Discussion (Misc queries) | |||
Prevent from save if... | Excel Discussion (Misc queries) | |||
HOW CAN I PREVENT EXCEL FILES FROM BEING DELETED OR PREVENT TRASH | Excel Discussion (Misc queries) | |||
prevent user from saving file to a folder but allow my code to save from behind. | Excel Programming |