Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
mehrfachasuwah mit listenfeld -> ausgabe in textfeld
zurück: navigationsschaltflächen ausblenden weiter: Bild aktualisieren zum 100sten Mal Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
gast12
Gast


Verfasst am:
14. Dez 2006, 17:25
Rufname:

mehrfachasuwah mit listenfeld -> ausgabe in textfeld - mehrfachasuwah mit listenfeld -> ausgabe in textfeld

Nach oben
       Version: Office 2k (2000)

hallo,
ich hab schon hier im forum gesuch und auch einiges hilfreiches gefunden, allerdings komme ich nicht wirklich weiter.

ich habe ein formular auf dem ein listenfeld ist. dieses hat drei spalten und wir aus einer tabelle gefüllt. jetzt möchte ich per mehrfachauswahl sagen wir mal 5 zeilen markieren und diese sollen dann in einem textfeld ausgegeben werden.

bis jetzt kann ich in dem textfeld nur die id der jeweiligen einträge ausgeben durch komma getrennt.

ich hab nicht viel ahnung von vba und weis ncih wie ich jetzt über die id die jeweiligen dazugehörigen daten aus der tabelle auslesen und in einem textfeld ausgeben kann.

mein jetziger code:
Code:
Private Sub Liste_AfterUpdate()
    Dim var As Variant
    Dim str

    For Each var In Me!Liste.ItemsSelected
        str = str & "," & var
    Next var
    Me!Text = Mid(str, 2)
End Sub
kann mir von euch jemand weiterhelfen?

mfg
JörgG
Access-Team


Verfasst am:
14. Dez 2006, 18:06
Rufname:
Wohnort: b. Dresden


AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld - AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld

Nach oben
       Version: Office 2k (2000)

Hallo,

welche Spalte darf's denn sein? Very Happy ergänze die For/Next-Schleife:
Code:
    For Each var In Me.Liste.ItemsSelected
        str = str & "," & Me!Liste.Column(1, var)
    Next var
Beachte dabei, der Spaltenindex beginnt mit 0 für Spalte1, 1 für Spalte2 usw.
_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
gast12
Gast


Verfasst am:
14. Dez 2006, 18:23
Rufname:

AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld - AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld

Nach oben
       Version: Office 2k (2000)

ok, jetzt komm ich mir irgendwie blöd vor^^
wieso weis ich sowas nie? ;)

danke auf jeden fall für die schnelle antwort, klappt super.

kann man eigentlich auch ein zeilenumbruch einfügen?
also praktisch so:
Code:
    For Each var In Me.Liste.ItemsSelected
        str = str & "," & Me!Liste.Column(0, var) & ">zeilenumbruch<"
    Next var
mfg
JörgG
Access-Team


Verfasst am:
14. Dez 2006, 18:33
Rufname:
Wohnort: b. Dresden

AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld - AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld

Nach oben
       Version: Office 2k (2000)

Hallo,

ja Very Happy , mit:
Code:
        str = str & vbCrLf & Me!Liste.Column(0, var)
' oder
        str = str & vbNewLine & Me!Liste.Column(0, var)
' oder
        str = str & Chr(13) & Chr(10) & Me!Liste.Column(0, var)
Beachte darin verstecken sich 2 Zeichen, die letzte Zeile im Code sollte dann geändert werden in Me!Text = Mid(str, 3)
_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.
gast12
Gast


Verfasst am:
14. Dez 2006, 18:57
Rufname:

AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld - AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld

Nach oben
       Version: Office 2k (2000)

funktioniert auch klasse Very Happy

noch ein letztes (hoff ich doch):

kann man die markierungen im listenfeld per knopfdruck wieder "unmarkieren"?

listindex -1 geht wohl nicht, da das listenfeld die eigenschaft nicht hat Sad

mfg
Nachtrag: gast12 am 14. Dez 2006 um 18:00 hat folgendes geschrieben:
und noch was:

kann man den inhalt eines textfeldes über einen klick auf einen button in ein anderes textfeld auf einem anderen formular kopieren?

jetzt aber ;)
JörgG
Access-Team


Verfasst am:
14. Dez 2006, 19:09
Rufname:
Wohnort: b. Dresden

AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld - AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld

Nach oben
       Version: Office 2k (2000)

Hallo,

na klar Very Happy :
zu 1:
Code:
Private Sub ButtonReset_Click()
    Dim i As Integer

    For i = 0 To Me!Liste.ListCount
        Me!Liste.Selected(i) = False
    Next i
End Sub
zu 2: (ungetestet)
Code:
Private Sub ButtonCopyText_Click()
    Dim Frm As Object

    For Each Frm In Application.CurrentProject.AllForms
        If Frm.IsLoaded = True And Frm.Name = "DasAndereForm" Then
            If Me!Text.Text <> "" Then 'wenn noch ungespeichert
                Forms("DasAndereForm").Textfeldname = Me!Text.Text
            End If
'oder mit speichern
'           DoCmd.RunCommand acCmdSaveRecord
'           If Me!Text <> "" Then
'               Forms("DasAndereForm").Textfeldname = Me!Text
'           End If
        End If
    Next Frm
End Sub

_________________
MfG, Jörg Very Happy

Bitte das Feedback nicht vergessen.


Zuletzt bearbeitet von JörgG am 14. Dez 2006, 19:32, insgesamt 2-mal bearbeitet
gast12
Gast


Verfasst am:
14. Dez 2006, 19:28
Rufname:


AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld - AW: mehrfachasuwah mit listenfeld -> ausgabe in textfeld

Nach oben
       Version: Office 2k (2000)

gast12 am 14. Dez 2006 um 18:23 hat folgendes geschrieben:
danke!
Zitat:
kann man den inhalt eines textfeldes über einen klick auf einen button in ein anderes textfeld auf einem anderen formular kopieren?
dazu vielleicht auch noch ne idee?

habsch schon:
Code:
Private Sub btn_übernehmen_Click()
    Forms![f240_EinA1A2]![mfBem] = Me![tf_Auswahl]
End Sub
super forum hier!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: von bis Felder über formular und ausgabe durch abfrage 1 ghetto 605 14. Jul 2006, 00:21
stpimi von bis Felder über formular und ausgabe durch abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfache Ausgabe von Datensätzen bei Mittelwert 1 Hiwi 595 13. Jun 2006, 20:34
Hiwi Mehrfache Ausgabe von Datensätzen bei Mittelwert
Keine neuen Beiträge Access Tabellen & Abfragen: Aktualisierungs-abfrage beim Listenfeld 1 DarkAngel1208 575 21. Mai 2006, 00:03
Solaiman Aktualisierungs-abfrage beim Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Zeilenumbruch bei Textfeld 3 F1 1616 01. Jan 2006, 15:19
F1 Zeilenumbruch bei Textfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Tabellenname mit Textfeld verknüpfen...wie? 2 bandit600 1083 29. Nov 2005, 10:54
stpimi Tabellenname mit Textfeld verknüpfen...wie?
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnung im Listenfeld anzeigen? 3 Schnoop 804 20. Okt 2005, 08:24
Timbo Berechnung im Listenfeld anzeigen?
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfachauswahl in Listenfeld als Abfrageparameter möglich? 3 esprene 1395 26. Aug 2005, 14:25
cablit Mehrfachauswahl in Listenfeld als Abfrageparameter möglich?
Keine neuen Beiträge Access Tabellen & Abfragen: Textfeld in Kombinationsfeld ändern 3 Bernett22 1174 26. Jul 2005, 12:19
BigBonsai Textfeld in Kombinationsfeld ändern
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage (ausgabe nur älteste Datum) 3 chmu 1291 13. Mai 2005, 09:57
Natascha Abfrage (ausgabe nur älteste Datum)
Keine neuen Beiträge Access Tabellen & Abfragen: Ausgabe von Duplikaten 1 Gast 391 11. Mai 2005, 14:22
stpimi Ausgabe von Duplikaten
Keine neuen Beiträge Access Tabellen & Abfragen: Formatierte Ausgabe: Englisch und Deutsch zusammen 2 braunbaer2003 992 15. März 2005, 14:52
Willi Wipp Formatierte Ausgabe: Englisch und Deutsch zusammen
Keine neuen Beiträge Access Tabellen & Abfragen: Leerzeichen in Textfeld entfernen 2 Francesco 1291 17. Dez 2004, 13:46
Francesco Leerzeichen in Textfeld entfernen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Frontpage Forum