cut a sentence in words

[FROGGY01]

hi everyone
so this my problem i want to cut in sentence in word:
the sentence is in a first table with a code like :

table_sentences
sentence : " the dog run in the garden "
code : 01
(sorry for the sentence, next time i will make better)

and i want this result in table_word
words|code|
------|----|
the |01 |
dog |01 |
run |01 |
in |01 |
the |01 |
garden|01 |

thanks

 

[p27br]

hello

you should use the split function :

Option Explicit

Private Sub Command1_Click()
Dim strTest As String
Dim strArray() As String
Dim intCount As Integer

strTest = "Fred & Wilma & Barney & Betty"
strArray = Split(strTest, "&&quot

For intCount = LBound(strArray) To UBound(strArray)
Debug.Print Trim(strArray(intCount))
Next
End Sub

you can adapt this function by replacing the delimiter character and in the loop, you should assign each value to the field

 

[FROGGY01]

dear p27br
split doesnt work with access
so i use
Function s_Coupemot(ByVal strOu As String, rs_sep As String) As String


Dim ls_Result As String
Dim li_Pos As Integer
Dim ls_word As String


ls_Result = ""
ls_word = ""
While Len(strOu) > 0
li_Pos = InStr(strOu, rs_sep)
If li_Pos = 1 Then
ls_Result = ls_Result + Left$(strOu, 80)
strOu = Mid$(strOu, li_Pos + Len(rs_sep))
Else
ls_word = Left$(strOu, li_Pos - 1)
ls_Result = ""

Debug.Print ls_word

strOu = Mid(strOu, li_Pos, 80)

s_Coupemot = ls_word

End If



Wend

End Function

the problem is know how to integrate the result in a new table

 

[JohnYingling]

Split should work in Access 2000 but I haven't tried it. It is not in Access '97.

http://www.VBResizer.com

Forms/Controls Resizing/Tabbing Control

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[p27br]

what version of access do you have ?
There are several similar procedures on this website which do the same for Access97 try a search on split or bassplit.