Wert aus VBA in ein Textfeld schreiben

[Michael Wulf]

Hallo zusammen,

ich möchte gerne einen per VBA ermittelten Wert in einem endlos Formular einem Textfeld zuweisen.

Dass ermitteln klappt einwandfrei. Ich lasse den Code dem Unterformular beim laden ausführen. Nur leider wird dieser nur für den ersten Wert der Tabelle ausgeführt und den übrigen Datensätzen der Wert hinzugefügt. lege ich den Code auf "beim Klicken" im Detailbereich wird dieser dann ausgeführt. Aber wieder bei allen Datensätzen angezeigt.

Der Code lautet:

Code [Auswählen] Erweitern

Sub KBO()
Dim da1 As String
Dim da2 As String
Dim da3 As String
Dim key As Integer

key = Forms!Uebersicht_SST!frm_Uebersicht_Schnittstellen!SST_ID

sql = "select * from testDatenarten where SST_ID = " & key
Set rs = CurrentDb.OpenRecordset(sql)
da3 = ""
  Do While Not rs.EOF
    da1 = rs("Datenart_Beschreibung") & ", "
    da2 = da1 & da3
    da3 = da2
rs.MoveNext
Loop
rs.Close

Forms![Uebersicht_SST]![frm_Uebersicht_Schnittstellen].Form![Text16] = da3
End Sub

Hintergrund ist, dass meine Datenbank aus bestimmten Gründen die Werte einer Abfrage in einem String ausweisen soll. Freue mich schon auf eure Ratschläge.

Danke Michael

[Beaker s.a.]

Hallo Michael,
Dein Problem habe ich nicht verstanden, aber zu deinem Code fällt mir Folgendes auf.
Der Ergebnisstring (da3) wird entgegengesetzt der DS-Sortierung zusammengesetzt; - kann sinnvolle Ansicht sein.
Die Variable "da3" wird allerdings gar nicht benötigt.

Code [Auswählen] Erweitern

Do While Not rs.EOF
    da1 = rs("Datenart_Beschreibung") & ", "
    da2 = da1 & da2
'Reihenfolge entgegen DS-Sortierung
'    da2 = da2 & da1
'Reihenfolge = DS-Sortierung
rs.MoveNext
Loop

gruss ekkehard

[DF6GL]

Hallo,

ermittelten Wert in einem endlos Formular einem Textfeld zuweisen.

Das ist generell nicht möglich.  Das Textfeld,es wird nur mehrfach dargestellt.  Ist es gebunden, erscheinen die Tabellenfeld-Werte, ist es ungebunden, erscheint der zugewiesene Wert mehrfach (so oft, wie DS vorhanden sind).

Wenn Du genauer beschreiben würdest, wozu das Ganze dienen soll, könnte ein konkreter Vorschlag erfolgen.

dass meine Datenbank aus bestimmten Gründen die Werte einer Abfrage in einem String ausweisen soll

??