Both the textbox and the combobox are members of the form and you must refer to them where they exist as in;

ThisForm.txtBox_date and ThisForm.ccombobox1. If you change your code to:

IF EMPTY(Alltrim(Thisform.txtBox_date.value)) .and. Empty(thisform.ccombobox1.Value) then

   MESSAGEBOX("Please enter somthing in both fields")

else

   Excute code.

endif

It should work fine for you.



>Any ideas why this code is not working thanx for the help.
>
>Defined varibles
>
>IF EMPTY(Alltrim(txtBox_date.value)) .and. Empty(ccombobox1.Value) then
>
>MESSAGEBOX("Please enter somthing in both fields")
>
>else
>
>Excute code.
>
>endif