Wie viele Zeichen enthält ein Wort - Schleife

Computer: Software & Programmierung Visual Basic
#1

Hallo zusammen!

Ich möchte eine simple Zeichenermittlungsschleife in Access erstellen. In Visual Studio wüsste ich wie es geht, aber das ist nur zum grundsätzlchen Verständnis von Programmieren in Access, da ich noch Neuling auf dem Gebiet bin.

Mein Code bisher:

Private Sub Zähler()

Dim Wort As String
Dim i As Integer
Dim Zähler As Integer

Wort = „Hallo“
i = 0
Zähler = 1

For i = 0 To Text.length

If Wort.contains(Text(i)) Then

Zähler = Zähler + 1
End If

Next

MsgBox „Das Wort hat ’ & Zähler ’ Zeichen.“

End Sub

Wenn ich auf ausführen gehe, möchte er etwas von Makros wissen.

Am besten wäre es wenn ich die Sache in einem Formular haben könnte. Wie mach ich das?

Vielen Dank für eure Mühen :wink:

#2

Knapp an Zeit, daher kurz:

Hallo nomista,

  1. Deine Prozedur kennt Text nicht.
  2. Text sollte ein String sein. In VBA ist ‚String‘ ein Datentyp, keine Klasse und besitzt somit keine Eigenschaften oder Methoden. Die Anzahl der Zeichen eines Strings ermittelst Du mit len(Text). Damit die Schleife nicht zuoft durchlaufen wird, musst Du bei ‚1‘ starten oder bei ‚len(Text) - 1‘ enden.
  3. Wort.contains funktioniert somit auch nicht.

Das auf die schnelle; gleich ist meine Pause um :wink:

Schöne Grüße und frohe Ostern

Leo

#3

ui thx :wink:

Fast hab ichs.

Er soll nun ausgeben 1 = H,2=a,3=l…was fehlt noch?

Private Sub Befehl21_Click()

Dim i As Integer
Dim Zähler As Integer
Dim Länge As Integer
Dim Wert As String

Wert = „Hallo“

Länge = Len(Wert)

For i = 0 To Länge

MsgBox i & " = " + Wert
Next

End Su

Grüßle

#4

Moin.

Private Sub Befehl21_Click()
Dim i As Integer
Dim Zähler As Integer
Dim Länge As Integer
Dim Wert As String

Wert = „Hallo“
Länge = Len(Wert)
For i = 1 To Länge
MsgBox i & " = " & Mid(Wert, i, 1)
Next

End Sub

Schöne Grüße

Leo

#5

juhu es klappt :smiley:

Dankeschön vielmals!!!

#6

so ich bins nochmal :smile:

Habe jetzt noch eine Inputbox hinzugefügt:

Private Sub Befehl21_Click()

Dim i As Integer
Dim Zähler As Integer
Dim Länge As Integer
Dim Wert As String

Wert = InputBox(„Bitte ein Wort eingeben“, „Eingabe“)

Länge = Len(Wert)

For i = 1 To Länge

MsgBox i & " = " & Mid(Wert, i, 1)
Next

End Sub

klappt auch 1a.

Nächster Schritt wäre jetzt stattdessen auf eine Tabelle in access zuzugreifen. Das oben beschriebene Programm hat ja mit access noch nichts am Hut.

Wie würde das denn gehen bitte. HAb jetzt erstmal eine ganz einfache Tabelle erstellt mit einer Spalte und 3 Zeilen :smile: Name:„EineSpalte“

mfG

#7

hat sich erledigt.