Setting one field when another field is entered

[C8H10N4O2]

How would I set one fields value equal to something based on another table in a form. For instance, could I implement VB on enter in a form's combo box to set a number field equal to one or zero in another table based on the value entered entered in this form( I have a list of 15 names and if a supervisor enters one name as the assignee I want a field DeptID to be either a 1 or 2.

I was thinking it would go something like this

 Private Sub Assigned_To_Enter()
if Supervisor.Name = "John", employee.deptid = 2
else employee.deptid = 1
end if 
End Sub

I think this is the general idea but I am fairly new to vb and dont' know how to implement this. Any help would be appreciated, I've been working on this app for weeks. Thanks

[C8H10N4O2]

How would I set one fields value equal to something based on another table in a form. For instance, could I implement VB on enter in a form's combo box to set a number field equal to one or zero in another table based on the value entered entered in this form( I have a list of 15 names and if a supervisor enters one name as the assignee I want a field DeptID to be either a 1 or 2.

I was thinking it would go something like this

 Private Sub Assigned_To_Enter()
if Supervisor.Name = "John", employee.deptid = 2
else employee.deptid = 1
end if 
End Sub

I think this is the general idea but I am fairly new to vb and dont' know how to implement this. Any help would be appreciated, I've been working on this app for weeks. Thanks

Okay I realize now that this would not work, because there would be no way to match up the fields. So instead I was going to assign the value to a text box
like this

Private Sub Assigned_To_Change()
 Private Sub Assigned_To_Enter()
If "Assigned To" = "John" Then DeptID = 2
Else: DeptID = 1
End If
End Sub
 

I keep getting an error though saying that htere is an else without an if statement

[C8H10N4O2]

Okay I realize now that this would not work, because there would be no way to match up the fields. So instead I was going to assign the value to a text box
like this

Private Sub Assigned_To_Change()
 Private Sub Assigned_To_Enter()
If "Assigned To" = "John" Then DeptID = 2
Else: DeptID = 1
End If
End Sub
 

I keep getting an error though saying that htere is an else without an if statement

Okay I fixed that error, but now the value just goes to one even if I select John from the dropdown menu

[C8H10N4O2]

Got it thanks