formating using VBA, if then statements

[jwalt]

ok kids.....

I need to format a control (i.e. tblepartnumbers) for two different formats depending on the beginning digit to the left. The formats might be 6-666-66
or 7-777-777

Using a scanner to retrieve the bar code and place it in the control i want to use VBA to write code in the Properties/On Click to format the data and store it.

My thought which of course doesn't run is to use the first digit as the "if" and wildcards as the remaining digits:

if me.tblepartnumbers = 6?????
then me.tblepartnumbers = 6-???-??
elseif me.tblepartnumbers = 7??????
then me.tblepartnumbers = 7-???-???

Please advise, thanks in advance, john

 

[tomschafer]

Try this...

If Left(Me.tblepartnumbers, 1) = "6" Then
s = Format(Me.tblepartnumbers, "#-###-##&quot
ElseIf Left(Me.tblepartnumbers, 1) = "7" Then
s = Format(Me.tblepartnumbers, "#-###-###&quot
End If