Calculate Field Code Block VB Help

DarrochKaye

Hi folks,

I have an empty field that I want to populate with text dependent on the value of another field. In Excel this would be a breeze but I'm having trouble with the syntax and the code block structure of the Calculate Field tool. I'm using the tool in VB mode and below is what I have currently got, resulting in the very helpful 99999 Error Code.

In Expression dialogue box:
temp

In Code Block:

DIM temp as String IF OBJECTID='1' THEN temp = 'Very Destructive' ELSEIF OBJECTID='2' THEN temp = 'Destructive' ELSEIF OBJECTID='3' THEN temp = 'Damaging' ENDIF 

This is resulting in errors as described above; 'Expecting end of statement'. I'm fairly certain this is a syntax issue but if it is more complicated then please advise. any assistance would be greatly appreciated.

Thanks,
DK

ChrisFox3

A couple things, VBScript does not allow you to explicitly declare any data types; all variables are implicitly Variant. Statements like Dim x as String should be removed or simplified to Dim x. If you want to execute only one statement when a condition is true, you can write the code on one line, otherwise each statement needs to be on a new line ie

If....Then
statement
elseif....Then
statement
else statement
end if

Dim temp If [OBJECTID] =1 Then  temp = "Very Destructive" elseif [OBJECTID] = 2 Then  temp = "Destructive" elseif [OBJECTID] =3 Then  temp = "Damaging" else temp ="Nothing" end if