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:
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
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.
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
Hallo,
Zitatermittelten 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.
Zitatdass meine Datenbank aus bestimmten Gründen die Werte einer Abfrage in einem String ausweisen soll
??