Access 2003 Textfelder über Zählschleife ansprechen

[ronaldo84]

Hallo,

ich habe ein Formular mit 26 Textfeldern. Die Textfelder haben die Bezeichnungen 97 bis 122 nun wollte ich die Textfelder in eine Zählschleife ansprechen:

For x = 97 To 122
msgbox(me![x].value)
Next x

Dort kommt dann aber die Fehlermeldung das das Feld mit dem Namen "x" nicht gefunden werden kann. Wie Teile ich dem Debugger mit das es sich hierbei um eine Variable handelt?

Danke

 

[wincnc]

Hallo, versuch´s mal so:

Private Sub Befehl2_Click()
Dim C As Control

For Each C In Me
  If TypeOf C Is TextBox Then
    C.SetFocus
     MsgBox C.Name
    MsgBox C.Text
  End If
Next

End Sub

 

[ronaldo84]

Danke das klappt. Leider ist es nicht ganz das was ich suche. Was ich vorhabe: Ich möchte ein Formular erstellen, auf dem sind insgesamt 28 Textfelder. 1 Quelltextfeld, 1 Zieltextfeld und halt 26 Textfelder für das ABC.
Nun soll es so sein wenn man in das Quelltextfeld einen Text eingibt und in eines der 26 Textfelder für das ABC soll dann der entsprechende Buchstabe durch den Buchstaben in dem Textfeld ausgetauscht werden. Bsp: Quelltext: Haus, in dem Textfeld "a" steht der Buchstabe "d" Zieltext: Hdus. Verständlich?
Wollte es eigentlich so machen:

text = Me![txtsource].Value
For i = 1 To Len(text)
    temp = temp & LCase(Mid$(text, i, 1))
Next i

If (Len(text) > 0) Then
For x = 97 To 122
    For i = 1 To Len(text)
        If (Mid$(text, i, 1) <> " ") Then
            If (Me![x].Value <> "") Then
                temp = Replace(Mid$(text, i, 1), Chr(x), Me![x].Value)
            End If
        End If
    Next i
Next x

Deshalb hat sich die Zählschleife ja so angeboten, das ich dann über die Integerwerte der Buchstaben austausche.
Danke