Question : Visual Basic in Access 2007

I am trying to da a repetive code in Access using Visual Basic. I ran out of room with my code and didnt know how to extend my code to the next line.

this is an example of the code. how can i move my code to the next line so that i could continue programming my form

1: 2: 3: 4: 5: 6: 7:

Private Sub Team_Leader_AfterUpdate() SDL = Switch(Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl"Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl"Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl"Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl"Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl"Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl"Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl"Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl"Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", Team_Leader = "Vn", "Nl" End Sub

Answer : Visual Basic in Access 2007

Private Sub Team_Leader_AfterUpdate()
SDL = Switch(Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl", Team_Leader = "Jo", "Rh", Team_Leader = "Kl", "La", Team_Leader = "Ae", "Be", _
    Team_Leader = "Vn", "Nl")




End Sub