Case Statement

[BSG75]

I am running this Case Statement in Visual Basic and i am getting this error message. Incorrect syntax near keyword 'Case'. Any help is greatly appreciated.

Select HPD_HelpDesk.Priority Case Priority ==1 Then 'Low' End

The full statement is this:

Adodc1.RecordSource = "SELECT HPD_HelpDesk.Submitted_By, DateAdd(s,HPD_HelpDesk.Assign_Time,'12/31/1969 18:00:00 PM') as Ticket_Assigned_Time, HPD_HelpDesk.Case_ID_, HPD_HelpDesk.SubItem, HPD_HelpDesk.Assigned_To_Individual_, HPD_HelpDesk.Priority FROM REMEDY_SUPPORT.dbo.HPD_HelpDesk " & _
"WHERE (HPD_HelpDesk.Assigned_To_Individual_='Leticia Najera' OR HPD_HelpDesk.Assigned_To_Individual_='Loretta G. Villarreal' OR HPD_HelpDesk.Assigned_To_Individual_='Virginia S. Nevarez' OR HPD_HelpDesk.Assigned_To_Individual_='Robert G. Villa' OR HPD_HelpDesk.Assigned_To_Individual_='Calvin D. Drummond') Select HPD_HelpDesk.Priority Case Priority ==1 Then 'Low' End " & _
"AND (HPD_HelpDesk.SubItem <> 'New Printer ID Assignments' AND HPD_HelpDesk.SubItem <> 'EFS Install' AND HPD_HelpDesk.SubItem <> 'Changes to Location Table' AND HPD_HelpDesk.SubItem <> 'Needs more Instant Data Reports Added to site' AND HPD_HelpDesk.SubItem <> 'Setup') " & _
"AND (DATEADD(s, Assign_Time, '12/31/1969 18:00:00 PM') > '" & Date & "')" & "ORDER BY DATEADD(s, Assign_Time, ' 12/31/1969 18:00:00 PM ') DESC"
Adodc1.Refresh

 

[IFRs]

Case is a reserved system word, like sin and if etc. It usually appears like:

select case X
case < 0
do this
case >0
do this
case else
end select

So, the word "case" is reserved for VB - you can't use it as a variable.

Maybe the issue is the double = sign ??

 

[CajunCenturion]

You might be interested in the Switch function. I would suggest that you read about it in the Help system.

Good Luck
--------------
As a circle of light increases so does the circumference of darkness around it. - Albert Einstein