Write this scrip in the QuerySave event of the form
Sorry Kiran, i like my code much more :o)
Const rtFieldName$ = "Body"
If Len(Trim$(Source.FieldGetText(rtFieldName))) = 0 Then
Msgbox "No text found in this document.."
Continue = False