Use a For / Next Loop to Count Specific Characters in a String

In this Microsoft Access tutorial, I will teach you how to use a FOR NEXT statement in Microsoft Access VBA to count the number of time a specific character occurs in a string. We can use this to also count how many lines are in a long text field (textbox). 

Paul from Houston TX (Silver Member) asks, "I get emailed a (text) list of products every day. Next to each product is a + if that product is new. I need to know both of these counts to put in my daily report. Is there a way I can just copy and paste this text into Access and have it count the number of lines and the number of + it finds?"

Members

I'll show you how to create your own function. We will make CountChar into a function that returns a value. We will learn about Rich Text Fields and how to add color and HTML codes to your long text fields. We will learn how to count the number of open ( and close ) in a box and change the colors accordingly to allow you to see where they may not match up.

•  Extended Cut Video - Silver
•  Database Template Download - Gold

Silver Members and up get access to view Extended Cut videos, when available. Gold Members can download the database template from class plus get access to the Code Vault. If you signed up on YouTube you have to register on my YouTube Find User page so I can set up your account here on my web site. If you're not a member, Join Today!

Update

While the CountChar function that we create in this lesson works just fine and is a great teaching example, I have since discovered a faster, more efficient method for calculating these occurrences. See the updated, new and improved Count Occurrences video.

Links

Concatenation: https://599cd.com/concatenation
Enter Key Behavior: https://599cd.com/enter+key+behavior
New Line in Field: https://599cd.com/new+line+in+field
For Loops: https://599cd.com/acd3
Intro to VBA: https://599cd.com/IntroVBA
LEN Function: https://599cd.com/acd8
MID Function: https://599cd.com/acx25
While Loop: https://599cd.com/While
Create Functions: https://599cd.com/acd2
Create Public Module: https://599cd.com/acd11
Exit Function: https://599cd.com/exit+function
DoEvents: https://599cd.com/acd12
Rich Text Boxes: https://599cd.com/acx5
Arrays: https://599cd.com/arrays
Combo Box .Column: https://599cd.com/acd15

Extras

Alex's Online Balance Braces Tool

Learn More FREE Access Beginner Level 1 FREE Access Quick Start in 30 Minutes Access Level 2 for just $1 Free Templates TechHelp Free Templates Blank Template Contact Management Order Entry & Invoicing More Access Templates

Resources Mailing List - Get emails when new videos released Consulting - Need help with your database Tip Jar - Your tips are graciously accepted Questions? Please feel free to post your questions or comments below or post them in the Forums.