Trimming data

[Guest]

Hi guys,
I need some assistance with trimming part of the data string that is entered
(scanned) in field. Here is the situation;
I have form called frmReceived and one the form there is a text field called
CaseNo.
I can scan (via barcode scanner) some barcodes in the unfinished database
just fine but my manager want's me to trim suffix on the case if one exists.
There are 2 types of case structure; 22050-03700 and 0722-AC03061, there
could be also suffixes to these cases like -01 or -02 (22050-03700-01), I
would like to trim these suffixes as the data is scanned. I'm not sure how to
validate the case and say delete last 3 values if there is a suffix to the
case.
I tried using input mask but the best I can get is when they scan the case
in - or 0 will show up in the end.. neither is good enough.
Thanx in advance and I hope you guys can help me out.

 

[Damon Heron]

This will work-

Dim strlen As Integer
strlen = Len(CaseNo)
If Mid(CaseNo, (strlen - 2), 1) = "-" Then
Me.CaseNo = Left(CaseNo, strlen - 3)
End If

Damon

 

[Guest]

That works great!!!

Thanx and take care

This will work-

Dim strlen As Integer
strlen = Len(CaseNo)
If Mid(CaseNo, (strlen - 2), 1) = "-" Then
Me.CaseNo = Left(CaseNo, strlen - 3)
End If

Damon