I want to delete all charters on the right side of the last comma.

[Jon123]

Raw data
aaa, bb, ccc, dd
or
aa, bbb, cc

I want field1 to be
aaa, bb, ccc
or
aa, bbb


This drops everything to the right of the 1st comma
field1 would = dd
or cc

  Me.field1 = (Right([field1], (InStr(1, [field1], ",") - 1)))

This drops everything from the 1st comma on the left to the end.
field 1 would = aaa
or aa

  Me.field1 = (Left([field1], (InStr(1, [field1], ",") - 1)))

 

[nanscombe]

I've not used it but there is an InstrRev() function which works like Instr() but right to left rather than left to right.

There is an example on that page for removing extensions from filenames.

Left([Filename],InStrRev([Filename],".")-1)

Perhaps it would work if you adapted the expression to look for the "," instead of the "."

Left([Filename],InStrRev([Filename],",")-1)

 

[Jon123]

sorry I dont follow? I thought I was looking for the ","

 

[nanscombe]

You were, but the code in the original example wasn't, it was looking for the "."

Left([Filename],InStrRev([Filename],"[COLOR="Red"].[/COLOR]")-1)

This code is looking to remove the file extension "file.txt"

Which is why I mentioned about changing it to look for the "," instead.

Left([Filename],InStrRev([Filename],"[COLOR="Red"],[/COLOR]")-1)

 

[Jon123]

got it, tried it and I'm getting a type mismatch error.

 

[nanscombe]

So that's ..

Me.field1 = Left(Me.field1, InStrRev(Me.field1, ",") -1)

You may need to account for null fields.

If Len(Me.Field1 & vbNullString) > 0 Then Me.field1 = Left(Me.field1, InStrRev(Me.field1, ",") -1)

 

[Jon123]

I had an extra () when inputting it into my code. This works great . Thank you so much.