<div>
Try this:<br />
<br />

<pre><code id="code-20-39191320-1">Function FormatData(strInput as string) as string
      dim s() as string
      s = split(strinput, &quot;-&quot;)
      s(1) = Val(s(1))
      formatData = join(s,&quot;-&quot;)
End Function</code></pre>
<br />
You can call it from a query as follows:<br />
<br />

<pre><code id="code-20-39191320-2">UPDATE YourTable SET YourField = FormatData(&quot;&quot; &amp;  YourField )</code></pre>
</div>


Try this:



Function FormatData(strInput as string) as string
      dim s() as string
      s = split(strinput, "-")
      s(1) = Val(s(1))
      formatData = join(s,"-")
End Function


You can call it from a query as follows:



UPDATE YourTable SET YourField = FormatData("" &  YourField )

<div>
<div class="content wysiwyg-content">
I'm using the folling code to replace zero after only the first occurance of a dash:<br />
&nbsp;Replace([FieldName],&quot;-0&quot;,&quot;<wbr />-&quot;,1 ,1)<br />
However the codes does not work in all cases. For Example:<br />
<br />
75-01-0140 Before<br />
75-1-0140 After - Ok<br />
<br />
75-10-0140 Before<br />
75-10-140 Incorrect -- Only if &nbsp;zero after the first dash other wise do nothing<br />
75-10-0140 After - Ok
</div>
</div>


I'm using the folling code to replace zero after only the first occurance of a dash:
 Replace([FieldName],"-0","-",1 ,1)
However the codes does not work in all cases. For Example:

75-01-0140 Before
75-1-0140 After - Ok

75-10-0140 Before
75-10-140 Incorrect -- Only if  zero after the first dash other wise do nothing
75-10-0140 After - Ok

Access String

Microsoft applications include a variety of software programs, including development and digital authoring programs (Expression and Media Center), educational programs, Internet software, including Essentials, Skype and the Live family, anti-virus, productivity applications and suites like Office, Excel, Word, Outlook, Access and PowerPoint, video games and server applications such as Exchange, SharePoint, IIS and Virtual Server.

Microsoft Applications

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.

Microsoft Office

Microsoft Access is a rapid application development (RAD) relational database tool. Access can be used for both desktop and web-based applications, and uses VBA (Visual Basic for Applications) as its coding language.