HI All,

Getting an error with this code. "Complie Error": Else without IF.

Seems straight forward. Thanks for any thoughts. bph

If tblWeekly_Terms.Department Like "Cana*"
Then Set Department = Mid(Department, 10, 50)
ElseIf tblWeekly_Terms.Department Like "FC*"
Then Set Department = Mid(Department, 4, 50)
ElseIf tblWeekly_Terms.Department Like "HEC*"
Then Set Department = Mid(Department, 5, 50)
ElseIf tblWeekly_Terms.Department Like "LC*"
Then Set Department = Mid(Department, 4, 50)
ElseIf tblWeekly_Terms.Department Like "HME*"
Then Set Department = Mid(Department, 5, 50)
ElseIf tblWeekly_Terms.Department Like "Corp*"
Then Set Department = "Corporate"
Else
End If

Figured out part of the issue. I cannot put my conditions on the same line as the keywords. I must use the syntax:

If condition Then
statements
ElseIf condition-n Then
elseifstatements
Else
elsestatements
End If

BUT>>>> I get an Object Required Error seming to point at last line.

ElseIf tblWeekly_Terms.Department Like "Corp*" Then
Set Department = "Corporate"

Thoughts? I'll keep hacking away it. Thx. bph

Yep, one of the object is null...

__________________
HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question.
(Took that from Doug signature and he Took that from Peter profile)
================================================== =========
My programs achieved a new certification :
WORKS ON MY MACHINE
================================================== =========
I know that CVS was evil, and now i got the proof.
================================================== =========

Does your code also include a select...case statement?

I've found that if you've omitted the End Select statement, your if..else..endif loops will throw up this error.