Abfrage in Textfeld ausgeben

20/11/2009 - 12:31 von Sven | Report spam
Hallo,

ich versuche gerade eine Abfrage in einem Textfeld auszugeben.

Hier der Code:
Private Sub Kombifeld2_AfterUpdate()
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT feld3 FROM table1" _
& "WHERE feld1 = '" & Me!Kombifeld1 & "' and feld2 = '" & Me!Kombifeld2 &
"'")

rs.MoveFirst
Me!Textfeld = rs
End Sub

Ist das überhaupt so richtig?
Ich möchte, dass sich das Textfeld aus den Werten von zwei
Kombinationsfeldern ergibt. Alle Werte die es in der Tabelle mit Eintràgen
von Kombifeld1 + Kombifeld2 gibt, sollen in der Textbox angezeigt werden.
So wie es oben aufgeführt ist, passiert gar nix in dem Textfeld. Das
Textfeld ist übrigens nicht gebunden.

Vg
Sven
 

Lesen sie die antworten

#1 Mark Doerbandt
20/11/2009 - 12:35 | Warnen spam
Hallo, Sven,

Sven:

ich versuche gerade eine Abfrage in einem Textfeld auszugeben.



eine Abfrage liefert eine /Menge von Datensàtzen/, ein Textfeld
beinhaltet eine Zeichenkette. Da ist eine gewisse Lücke.

Private Sub Kombifeld2_AfterUpdate()
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("SELECT feld3 FROM table1" _
& "WHERE feld1 = '" & Me!Kombifeld1 & "' and feld2 = '" & Me!Kombifeld2 &
"'")

rs.MoveFirst
Me!Textfeld = rs
End Sub
Ist das überhaupt so richtig?



Nein. Schau Dir mal die Funktion DLookup an, die gibt einen einzelnen
Wert zurück.

Ich möchte, dass sich das Textfeld aus den Werten von zwei
Kombinationsfeldern ergibt. Alle Werte die es in der Tabelle mit Eintràgen
von Kombifeld1 + Kombifeld2 gibt, sollen in der Textbox angezeigt werden.
So wie es oben aufgeführt ist, passiert gar nix in dem Textfeld. Das
Textfeld ist übrigens nicht gebunden.



Das alles ist sehr abstrakt. Gibt doch Deinen Feldern bitte mal echte
Namen, so verstehe ich nicht, was Du tatsàchlich tun willst.

Gruss - Mark

Informationen fuer Neulinge in den Access-Newsgroups unter
http://www.doerbandt.de/Access/Newbie.htm

Bitte keine eMails auf Newsgroup-Beitràge senden.

Ähnliche fragen