Access VBA custom Function to count substring in string

PHOTO

Thu Jul 28 2022 10:54:03 GMT+0000 (UTC)

Saved by @paulbarry

Public Function wCountSubStr(str As String, substr As String) As Integer
    lenstr = Len(str)
    lensubstr = Len(substr)
    
    For i = 1 To lenstr
        tempString = Mid(str, i, lensubstr)
        If tempString = substr Then
            count = count + 1
        End If
    Next i
    wCountSubStr = count
End Function

https://access-excel.tips/access-count-substring-in-string-or-text/

Save snippets that work from anywhere online with our extensions

Available in the Chrome Web Store

Get Firefox Add-on

Get VS Code extension

Comments

More like this

VBA

@paulbarry

Regex for Access Build Pass through query using Regex to replace Form fields in query VBA to auto Refresh Linked Table Manager or linked tables - Microsoft Access / VBA QUESTION: Get All Procedure Names from Modules | Access World Forums MS Access DLookup Example MS Access Logging Split String or Text Run Update or Delete in MS Access SQL Access VBA custom Function to count substring in string Code to loop through all records in MS Access how-to-filter-an-existing-recordset check-if-textbox-is-empty http://azlihassan.com/apps/articles/visual-basic-for-applications-vba/vba-check-valid-email Email verification Use Temporary tables for quick analysis https://www.access-programmers.co.uk/forums/threads/setting-a-group-of-controls-visible-hidden-or-enabled-disabled.293412/ Templete For Notes Field - Hide on empty and display only when there is text. Filename with spaces running WScript.Shell how-pass-variable-one-form-another-form

Browse more snippets >>