A very simple program that I wrote using Microsoft Access to ask the user to give a string or a sentence and then our program will count the number of words in the given sentence.
I am currently accepting programming and web development work kindly contact me in the following email address for further details. Thank you.
My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.
My telephone number at home here in Bacolod City, Negros Occidental is (034) 4335675.
Sample Program Output
Program Listing
'Count Words in a Sentence in Microsoft Access
' Written By Mr. Jake R. Pomperada, MAED-IT
' January 5, 2018 Frinday
Option Compare Database
Public Function WordCounter(Text As String) As Integer
Dim Counts As Integer
Dim dupText As String
dupText = Replace(Trim(Text), vbNewLine, " ")
If dupText = "" Then
Counts = 0
Else
Counts = 1
For i = 1 To Len(dupText)
If Mid(dupText, i, 1) = " " Then ' use Mid to search space
If Mid(dupText, i - 1, 1) <> " " Then
Counts = Counts + 1
End If
End If
Next
Me.Label15.Caption = "Total number of words is " + Str(Counts) + "."
End If
End Function
Private Sub Command16_Click()
Dim word_count As Integer
If Len(Trim(Me.Text13) & vbNullString) = 0 Then
MsgBox "Enter a sentence", vbInformation
Me.Text13.SetFocus
Exit Sub
End If
WordCounter (Me.Text13)
End Sub
Private Sub Command17_Click()
Me.Text13 = ""
Me.Label15.Caption = ""
Me.Text13.SetFocus
End Sub
Private Sub Command18_Click()
DoCmd.OpenForm "frmAbout"
End Sub
