Wörter in Tabellenfeld zählen

03/03/2009 - 10:37 von Carsten Ulinski | Report spam
Hallo zusammen,

möchte in einem Textfeld [Kurzbeschreibung] die Anzahl Wörter zàhlen.
Möglichst in einer Abfrage als eigenes Feld [Anzahl Wörter]. Geht das
überhaupt?

Vielen Dank im Voraus
Carsten
 

Lesen sie die antworten

#1 Josef Poetzl
03/03/2009 - 10:52 | Warnen spam
Hallo!

Carsten Ulinski schrieb:
möchte in einem Textfeld [Kurzbeschreibung] die Anzahl Wörter zàhlen.
Möglichst in einer Abfrage als eigenes Feld [Anzahl Wörter]. Geht das
überhaupt?



Was kennzeichnet Wörter? - ein Leerzeichen zwischen Buchstaben?
=>
Public Function AnzahlWoerter(ByVal vText As Variant) As Long

Dim strText As String
Dim lngLen As String

strText = Trim(Nz(vText, vbNullString))
If Len(strText) = 0 Then
AnzahlWoerter = 0
Exit Function
End If

'doppelte Leerzeichen entfernen
Do While InStr(1, strText, " ") > 0
strText = Replace(strText, " ", " ")
Loop

'Anzahl der Leerzeichen (+1 für erstes Wort):
AnzahlWoerter = Len(strText) - Len(Replace(strText, " ", "")) + 1

End Function

So eine àhnlich Funktion könntest du in der Abfrage verwenden.


mfg
Josef

EPT: (Access Error Prevention Table) http://access.joposol.com/
FAQ: (Access-FAQ von Karl Donaubauer) http://www.donkarl.com/

Ähnliche fragen