<div>
HI,<br />
<br />
pls try<br />

<pre><code id="code-20-42295577-1">Function fIP3Octets(txt As String) As String
Dim aTxt As Variant
aTxt = Split(txt, &quot;.&quot;)
ReDim Preserve aTxt(2)
fIP3Octets = Join(aTxt, &quot;.&quot;)
End Function</code></pre>
Regards
</div>


HI,

pls try


Function fIP3Octets(txt As String) As String
Dim aTxt As Variant
aTxt = Split(txt, ".")
ReDim Preserve aTxt(2)
fIP3Octets = Join(aTxt, ".")
End Function

Regards

<div>
In one line:<br />
<br />

<pre><code id="code-20-42295608-1">IpAddress = &quot;192.168.3.12&quot;
Octet3 = StrReverse(Split(StrReverse(IpAddress), &quot;.&quot;, 2)(1))

Octet3 -&gt; &quot;192.168.3&quot;</code></pre>
/gustav
</div>


In one line:



IpAddress = "192.168.3.12"
Octet3 = StrReverse(Split(StrReverse(IpAddress), ".", 2)(1))

Octet3 -> "192.168.3"

/gustav

<div>
<div class="content wysiwyg-content">
Hi can someone help please?<br />
<br />
I have an Access database which contains a table of IP addresses.<br />
<br />
I want to add a further column to the table which only contains the 1st three octets of the IP address.<br />
<br />
e.g<br />
<br />
IP Address &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;Octet<br />
1.1.1.1 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 1.1.1<br />
172.0.1.27 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 172.0.1<br />
192.168.3.1.2 &nbsp; &nbsp; &nbsp; &nbsp;192.168.3<br />
<br />
How can this be done?<br />
<br />
Many Thanks<br />
<br />
Jay
</div>
</div>


Hi can someone help please?

I have an Access database which contains a table of IP addresses.

I want to add a further column to the table which only contains the 1st three octets of the IP address.

e.g

IP Address            Octet
1.1.1.1                   1.1.1
172.0.1.27             172.0.1
192.168.3.1.2        192.168.3

How can this be done?

Many Thanks

Jay

extract 1st threee octets from IP address

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.

Microsoft Access

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.