In The Project I am working on I made a Form with 1 Text box in and and 2 Combo Boxes. One Combo box to work with Employee IDs and One Combo Box to work with Equipment IDs. All Employee IDs at work Start with 0 and are 8 characters long and all Equipment ID's start with 1 and are 5 Characters long. What i want the Text Box to do is Take in ether The Employee ID or the Equipment ID and pass it to the Correct Combo Box.In the after update of the Text box I use the InStr Function to tell if the first Number is a 0 or 1. If its 0 i want it to pass that value to the Employee ID Combo and Clear out, If its a 1 then i want to pass it to the Equipment ID Combo and Clear out. with this Code:

Private Sub Scanner_AfterUpdate()

If InStr(Scanner, "0") <> 0 Then
SFEmpIDCbo.Value = Scanner
Scanner = ""
End If

End Sub

The Combo Box of the Employee ID Combo is still blank

I have not written the second part of that code for the 1 value until i can get the first combo box to work.

The Combo Boxes job is to Open a Form to the 1 record where the value in the box Match the ID in the table

When the EmpIDC Combo gets the value it will open up the Employee Form

When the Equipment ID Combo box gets the value it will open up the Equipment Form

---

Reply from Richard Rost:

InStr checks the WHOLE string, not just the first character. If you want to look at the first character, use LEFT.

If LEFT(Scanner,1)="0" then ...

You could also use the LEN function to check the length of the string.