My code:

WITH THISFORM
	DO CASE 
	CASE ALLTRIM(.txtcompany.VALUE) = ""
		=MESSAGEBOX("No Company name has been Entered",0,"No Company Name")
	CASE ALLTRIM(.txtbranch.VALUE)    = ""
		=MESSAGEBOX("No Branch name has been Entered",0,"No Branch Name")
	CASE ALLTRIM(.txtserver.VALUE)    = ""
		=MESSAGEBOX("No Server IP has been Entered",0,"No Server IP")
	CASE ALLTRIM(.txtip.VALUE)     = ""
		=MESSAGEBOX("No Ip has been detected",0,"No Server IP")
	CASE ALLTRIM(.txtfirebrick.VALUE) = ""
		=MESSAGEBOX("No Firebrick IP has been Entered",0,"No Firebrick IP")
	CASE ALLTRIM(.txttxtanother.VALUE)= ""
		=MESSAGEBOX("No Other IP has been Entered",0,"No Other IP")
	OTHERWISE
		USE company
		INSERT INTO company(company, branch, serverip, thisip, fireip, another, refip) ;
			VALUES;
			(.txtcompany.VALUE,.txtbranch.VALUE,;
			.txtserver.VALUE,.txtIP.VALUE,;
			.txtfirebrick.VALUE,.txtanother.VALUE,"81.187.187.68")
	ENDCASE
ENDWITH

Am I making a silly mistake - case .value is empty then display message, simple ! What am I missing ?