VBA-help needed. Field calculator. IF THEN ELSE

Question

Hi,
I am quite new to the scripting thing an hope you guys can give me some hands on advice.

Here`s the problem:

I have a table containing a field called "BO_FUNK" filled with integer values from 1 to 4 that represent categories. Now my team leader decided to change the category values.

Old   New
4      1
3      2
3      3
1      4

I have a new integer field called "BO_FUNK_v1", that shall contain the new values.

How can I populate the new field, using IF THEN ELSE Expressions???

I tried it like this, which did not work:

If  [BO_FUNK] = 4 Then
[BO_FUNK_v1] = 1
If  [BO_FUNK] = 3 Then
[BO_FUNK_v1] = 2
If  [BO_FUNK] = 2 Then
[BO_FUNK_v1] = 3
If  [BO_FUNK] = 1 Then
[BO_FUNK_v1] = 4
End If

What am I doing wrong???

Hope you can help some newby like me.

I already searched the topics and could not find anything useful for me.

TIA

Christian

ChristianSchreiner · Answer

Thanks for your replies.

The 5 - [BO_FUNK] would have been great. I forgot to say, that I also have 0 that will be 99 in the new field. But anyway, thanks for reminding me of good old maths 101. 🙂

The IF THEN ELSE worked fine. Thanks for your advice.

Great forum here.

Christian

Senthil_KumarShanmugasundaram · Answer

Your syntax is wrong, but there are several ways you do this

click on advance and paste one of the 2 method below in script pre-Logic

Method 1
dim val as integer
If  [BO_FUNK] = 4 Then
val  = 1
End If

If  [BO_FUNK] = 3 Then
val  = 2
End If

If  [BO_FUNK] = 2 Then
val  = 3
End If

If  [BO_FUNK] = 1 Then
val  = 4
End If

In the second text box (fieldname), enter
val

Method 2

dim val as integer
If  [BO_FUNK] = 4 Then
val = 1
ElseIf  [BO_FUNK] = 3 Then
val = 2
ElseIf  [BO_FUNK] = 2 Then
val = 3
ElseIf  [BO_FUNK] = 1 Then
val = 4
Else
val = 0
End If

In the second text box (fieldname), enter
val
Cheers

JamesGonsoski · Answer

See if this helps: http://forums.arcgis.com/threads/3019-Calculate-Field-VBA-Statement-If...Then...Else-in-ModelBuilder?p=18006#post18006