Function to get KeyWords from the database

[Luthius]

Guys,
Is there a way we can create a function that get all the nouns (keywords) from a database and can store these non-repeteable nouns in a table creating something like a dictionary?

Nouns not verbs or prepositions or vowels. If the sentence has verbs or vowels it will capture only the nouns.
It will work like the Tag Cloud function we have on this forum, that captures the keywords...

 

[Micron]

I don't get what vowels has to do with nouns or verbs. Plenty of nouns have vowels in them. Consonants too.
And where are these nouns to be found? Table data? Query sql? Code? Form/report labels?
AFAIK, you can only search for specific words in a string (be that table data, table names, whatever) as long as you supply that word as the word to search for. To do that, you'd need a list of nouns to look for. Expect any search to take a VERY long time.

 

[Luthius]

Sorry related to vowels - I was in a hurry and put it wrongly -
Well, will be a function so I can use it in any table of my database.
The good example we have in here on our forum that easily identifies "tags" on any thread. Check the bottom section.
I want some function like that to implement in my database.

 

[xenou]

What you are describing isn't really what Access is good at. I don't know of any already made functions for this. Generally, having a lot of tables that all have lot of fields that all have a lot of random text is not a relational design. What you are describing is basically unstructured data.

 

[Luthius]

I created a table called tblKeyWords where there is a text field called strKeyWord. I would like assistance from you guys on how to before insert the word check if the word exists in my tblKeyWords table.

Public Function GetWord(strInput As String) As Variant

    Dim strSpecialChars As String
    Dim i As Long
    Dim counter As Integer
    Dim strArray() As String
    
    ' Define chars to strip
    strSpecialChars = ",-""()*.:@!"
    
    ' First pass (char at a time), remove special chars
    For i = 1 To Len(strSpecialChars)
        strInput = Replace$(strInput, Mid$(strSpecialChars, i, 1), "")
    Next


    
    ' Return result
    strArray = Split(strInput, " ")
    For counter = 0 To UBound(strArray)
       'Check if the word exists on my table, if not insert the word strArray(counter)
    Next
    
End Function

 

[Luthius]

Searching on internet I found something called Parts-Of-Speech and our Microsoft has some API already created using Ms Word.

Scratching here and there I could develop the function below

Public Function PartOfSpeechVerification(strWordToBeVerified As String) As Boolean'Reference Microsoft Word XX Application
Dim objWord As Word.Application
Dim wordSynInfo As Word.SynonymInfo


Set wordSynInfo = SynonymInfo(strWordToBeVerified, LanguageID:=wdEnglishUS)


PartOfSpeechVerification = (wordSynInfo.MeaningCount > 0)


Set wordSynInfo = Nothing
Set objWord = Nothing
End Function

The problem now is the following

Check the existence of the word on my table tblKeyWords without create the error 5824 (Insufficient memory) due the lot of back and foward in the code (check if it is part of SynonymInfo list and exists or not in my tblKeyWords table).

 

[Luthius]

Hello guys
Any feedback on this?

 

[james_lankford]

> I created a table called tblKeyWords where there is a text field called strKeyWord. I would like assistance from you guys on how to before insert the word check if the word exists in my tblKeyWords table

just go to the table design for tblKeyWords and create a unique index on strKeyWord

any time someone tries to insert the same word access will pop up a message saying the word already exists

if you have a form doing the insert then you can catch the error number and display your own custom error message

I think that's the normal way of doing it

 

[Luthius]

The issue is the following

Check the existence of the word on my table tblKeyWords without create the error 5824 (Insufficient memory) due the lot of back and foward in the code (check if it is part of SynonymInfo list and exists or not in my tblKeyWords table).