Here's the code with indents:
Code:
Option Compare DatabaseConst SpecialCharacters As String = "!,@,#,$,%,^,&,*,(,),{,[,],},?,-,_, ,<,>,/,\,.,+"
Sub RemoveChar()
Dim rstTbl As DAO.Recordset
Dim strNewMfg As String
Dim strNewVendor As String
Dim strNewPart As String
Dim strNewTCost As String
Dim myMStr As String
Dim myVStr As String
Dim myPStr As String
Dim char As Variant
Dim TCost As String
Dim myTCost As String
Set rstTbl = CurrentDb.OpenRecordset("Parts", dbOpenDynaset)
'----------------------------------With---------------------------
With rstTbl
.MoveFirst
'-----------------------------If 2------------------------
If Not rstTbl.BOF And Not rstTbl.EOF Then
'--------------------DO Until----------------
Do Until rstTbl.EOF = True
myMStr = rstTbl![MfgPartNumber]
myVStr = rstTbl![VendorPartNumber]
myTCost = rstTbl![TCost]
strNewMfg = myMStr
strNewVendor = myVStr
strNewPart = myPStr
strNewTCost = myTCost
'-----------For Each----------
For Each char In Split(SpecialCharacters, ",")
strNewMfg = Replace(strNewMfg, char, "")
strNewVendor = Replace(strNewVendor, char, "")
strNewTCost = Replace(strNewTCost, char, "")
'------If 1-----
If strNewMfg = strNewVendor Then
rstTbl.Edit
rstTbl![PartNumber] = strNewMfg & " - " & Right("0000" & strNewTCost, 7)
rstTbl.Update
Else
rstTbl.Edit
rstTbl![PartNumber] = strNewVendor & " - " & strNewMfg & " - " & Right("0000" & strNewTCost, 7)
rstTbl.Update
End If
'---End If 1-----
'-------------Next For Each----------
Next
rstTbl.MoveNext
'--------------------Loop----------------
Loop
'-------------------------End If 2------------------------
End If
'------------------------------End With-------------------------
End With
End Sub