Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Listboxsteuerung in komplexer HF-Ufo Situation
Gehe zu Seite 1, 2  Weiter
zurück: Felder bei bedingter Formatierung immer aktiv weiter: Endlosformular variabel gestalten 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
derArb
getting better


Verfasst am:
12. Mai 2007, 02:10
Rufname: derArb
Wohnort: Berlin

Listboxsteuerung in komplexer HF-Ufo Situation - Listboxsteuerung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

ich hab eine Frage.
Ich möchte das Forum nicht vollmüllen mit einer Db.
Aber ohne sie zu zeigen, ist es meines Erachtens fast unmöglich, das Problem zu erklären. Ich hab keine Scheu davor, dass etwas abgekupfert werden könnte...Dazu hab ich hier viel zu viel abgekupfert und gelernt und wills gerne auch weitergeben. Aber vielleicht ist das evtl. ein Forum überfordernd.

Es geht darum, dass ich 2 Listenfelder in einem Formular mit 2 Ufos habe.
Dazu habe ich 2 selbst gestaltete Navigationsbutton Sets.
Ich möchte, dass bei Betätigung dieser buttons, die Listfelder sich synchron zu
den Datensätzen mitbewegen (im linken kleinen Listbox 'ListfeldLstKurse' geht das)
Im rechten Listbox 'LstKursteilnehmer' klappt das einfach nicht.
Ausserdem macht das linke Listfeld komische grafische Effekte.
ich habs mit foldendem code probiert
Formular ufo_Kurse
Code:
Private Sub Form_Current()
    Dim strSQL As String
   
    On Error Resume Next
    ' funktioniert allerdings strange bei click auf die Listbox
    Me!LstKurse = Me!ID_Kurse
    Me.RecordsetClone.MoveLast
    Me!btnNextRS.Enabled = Me.CurrentRecord <> Me.RecordsetClone.RecordCount
    Me!btnPrevRS.Enabled = Me.CurrentRecord > 1
    strSQL = "SELECT K.ID_Kurse, P.ID_Persdat, K.Kursname, P.Vorname, " & _
                    "P.Nachname, K.KursdatumVon, K.KursDatumBis, " & _
                    "K.KursUhrzeitVon, K.KursUhrzeitBis " & _
               "FROM tbl_persdat AS P " & _
                    "INNER JOIN (tbl_kurse As K " & _
                                "INNER JOIN tbl_ZwTabelle1 AS Z " & _
                                "ON K.ID_Kurse = Z.ID_Kurse) " & _
                    "ON P.ID_Persdat = Z.ID_Persdat " & _
              "WHERE K.ID_Kurse = " & Me!ID_Kurse '& _
           "ORDER BY P.Nachname"
    Me!frm_ZwTabelle1!LstKursteilnehmer.RowSource = strSQL
End Sub
Formular Ufo_ZwTabelle
Code:
Private Sub Form_Current()
    On Error Resume Next
    Me!LstKursteilnehmer = Me!ID_Persdat
    Me.RecordsetClone.MoveLast
    Me!btnNextRS.Enabled = Me.CurrentRecord <> Me.RecordsetClone.RecordCount
    Me!btnPrevRS.Enabled = Me.CurrentRecord > 1
    Me!txtVorname = Me!cboPersonenauswahl.Column(5)
    Me!txtNachname = Me!cboPersonenauswahl.Column(6)
    Me!txtTelefon = Me!cboPersonenauswahl.Column(8)
End Sub
mit der Bitte um welche Antwort auch immer
mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.



KursDB 6a [1].zip
 Beschreibung:

Download
 Dateiname:  KursDB 6a [1].zip
 Dateigröße:  60.04 KB
 Heruntergeladen:  26 mal

Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
12. Mai 2007, 14:17
Rufname:


AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Hallo @derArb,

ich würde ein paar Änderungen vornehmen:
Ufo_Kurse
Code:
Private Sub Form_Current()
    Dim strSQL As String
   
    On Error Resume Next
    Me!LstKurse = Me!ID_Kurse
    Me.RecordsetClone.MoveLast
    Me!btnNextRS.Enabled = Me.CurrentRecord <> Me.RecordsetClone.RecordCount
    Me!btnPrevRS.Enabled = Me.CurrentRecord > 1
    Me!frm_ZwTabelle1!LstKursteilnehmer.Requery
End Sub
Das Feld ID_Kurse (ufo_ZwTabelle) in txtID_Kurse umbenenen, damit es eindeutig ist!

Die Abfrage von LstKursteilnehmer mit der WHERE-Klausel ergänzen/abändern:
Code:
WHERE tbl_kurse.ID_Kurse=txtID_Kurse

Außerdem muß doch bei LstKursteilnehmer die gebundene Spalte tbl_persdat.ID_Persdat sein und nicht tbl_kurse.ID_Kurse oder?

Also
Code:
SELECT tbl_persdat.ID_Persdat, tbl_kurse.ID_Kurse, tbl_kurse.Kursname, usw.... 
WHERE  tbl_kurse.ID_Kurse=txtID_Kurse

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]
Tom2002
Der einzig Wahre Leuchtturm - Pilsum


Verfasst am:
12. Mai 2007, 15:24
Rufname:
Wohnort: Düsseldorf

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Moin,

die Datei kann ich nicht öffnen. Archiv zerstöert.

Ciao

tom

_________________
Win7, Win2008 R2, Office 2010 Prof

Wer mit Fortuna Düsseldorf groß geworden ist, der fürchtet sich auch vor Access nicht.
Die Nutzlosigkeit des Daseins anzuerkennen heisst, Fortuna-Fan zu sein.
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
12. Mai 2007, 15:30
Rufname:

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Hallo Tom,

nö, kann ich nicht bestätigen. Ich habe es gerade nochmal heruntergeladen und ich kann es gut öffnen (Access 2003)

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]
derArb
getting better


Verfasst am:
13. Mai 2007, 22:32
Rufname: derArb
Wohnort: Berlin


AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

hallo,

sorry, dass ich mich erst jetzt melde....
Vielen Dank Tom2007...ganz ganz vielen Dank
ich habe es so verändert, wie vorgeschlagen und schon klappt es bis auf einen
komischen grafischen Fehler im linken Listenfeld 'Lstkurse'
Wenn ich da einen Eintrag direkt anklicke, dann werden manchmal 2 markiert
oder gar keiner. Ich kann das nur eliminieren, indem ich nochmal ein
Me!LstKurse.Requery in den code setze, was aber im rechten Listenfeld nicht notwendig ist.

der code für das linke Listenfeld
Code:
Private Sub Form_Current()
    Dim strSQL As String
   
    On Error Resume Next
    Me!LstKurse = Me!ID_Kurse
    Me.RecordsetClone.MoveLast
    Me!btnNextRS.Enabled = Me.CurrentRecord <> Me.RecordsetClone.RecordCount
    Me!btnPrevRS.Enabled = Me.CurrentRecord > 1
    Me!frm_ZwTabelle1!LstKursteilnehmer.Requery
    strSQL = "SELECT P.ID_Persdat, K.ID_Kurse, K.Kursname, P.Vorname, " & _
                    "P.Nachname, K.KursdatumVon, K.KursDatumBis, " & _
                    "K.KursUhrzeitVon, K.KursUhrzeitBis " & _
               "FROM tbl_persdat AS P " & _
                    "INNER JOIN (tbl_kurse AS K " & _
                                "INNER JOIN tbl_ZwTabelle1 AS Z " & _
                                "ON K.ID_Kurse = Z.ID_Kurse) " & _
                    "ON P.ID_Persdat = Z.ID_Persdat " & _
              "WHERE K.ID_Kurse = txtID_Kurse"
    Me!frm_ZwTabelle1.Form.LstKursteilnehmer.RowSource = strSQL
End Sub

Private Sub LstKurse_Click()
    Me.Recordset.FindFirst "ID_Kurse = " & Me!LstKurse.Column(0)
    Me!LstKurse.Requery                     '<<== Das hier muss ich einsetzen,
                                                ' ansonsten grafische Probleme
End Sub

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
13. Mai 2007, 23:20
Rufname:

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Hallo,

bei mir funktioniert es auch ohne extra Requery!

Du hast doch wieder den SQL-Code in VBA und nicht so wie ich es vorgeschlagen hatte s. o.

Im Anhang findest du die Version, die bei mir funktioniert.

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]



KursDB 6a [1]_1.zip
 Beschreibung:

Download
 Dateiname:  KursDB 6a [1]_1.zip
 Dateigröße:  51.29 KB
 Heruntergeladen:  19 mal

derArb
getting better


Verfasst am:
14. Mai 2007, 23:48
Rufname: derArb
Wohnort: Berlin

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

hallo Thomas2007,
hab es getestet.

dann scheint es etwas zu sein, was möglicherweise versionsabängig ist.
Ich habe Access XP (DB Format Access2000)
Bei mir hat das genau denselben Effekt, wie ich beschrieben hab. Das linke Listenfeld wirkt manchmal wie wenn multiselected gewählt wäre. Und ab und zu
markiert es garnix...hmm

Trotzdem danke
mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
jens05
Moderator


Verfasst am:
14. Mai 2007, 23:59
Rufname:
Wohnort: ~~~~~

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Hallo derArb,
da kann das Listenfeld ja nur meschugge werden ;)
Entferne mal die Wertzuweisung aus dem Ereignis "Beim Anzeigen"
Code:
Private Sub Form_Current()
On Error Resume Next
    Dim strSQL As String

    'Me!LstKurse = Me!ID_Kurse '<<<<<<<
    Me.RecordsetClone.MoveLast
    Me!btnNextRS.Enabled = Me.CurrentRecord <> Me.RecordsetClone.RecordCount
    Me!btnPrevRS.Enabled = Me.CurrentRecord > 1
    Me!frm_ZwTabelle1.Form.LstKursteilnehmer.Requery
End Sub

_________________
mfg jens05 Wink
derArb
getting better


Verfasst am:
15. Mai 2007, 00:04
Rufname: derArb
Wohnort: Berlin

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

derArb am 15. Mai 2007 um 00:03 hat folgendes geschrieben:
hallo,

@jens05....danke...und nu?
klick mal auf die Navibuttons..da geht dann nix mehr

mfg
derArb
hallo,

im rechten Listenfeld, gehts aber so..das versteh ich eben nicht

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
15. Mai 2007, 00:08
Rufname:

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Hallo zusammen,

@Jens
ich habe gerade seine DB unter Ac2002 getestet: es ist so wie derArb beschrieben hat.
Wenn er die Zuweisung auskommentiert, dann funktioniert alles bis auf die Auswahl des aktuellen Eintrags aus der Liste bei Navigation über die Schaltflächen.

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]
jens05
Moderator


Verfasst am:
15. Mai 2007, 00:08
Rufname:
Wohnort: ~~~~~

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Hallo derArb,
na wen de menst ;)
Code:
Private Sub btnFirstRS_Click()
On Error Resume Next
    DoCmd.GoToRecord , , acFirst
    Me!LstKurse = Me!ID_Kurse
End Sub

Private Sub btnLastRS_Click()
On Error Resume Next
    DoCmd.GoToRecord , , acLast
    Me!LstKurse = Me!ID_Kurse
End Sub

Private Sub btnNextRS_Click()
On Error Resume Next
    DoCmd.GoToRecord , , acNext
    Me!LstKurse = Me!ID_Kurse
End Sub

Private Sub btnPrevRS_Click()
On Error Resume Next
    DoCmd.GoToRecord , , acPrevious
    Me!LstKurse = Me!ID_Kurse
End Sub

_________________
mfg jens05 Wink
derArb
getting better


Verfasst am:
15. Mai 2007, 00:11
Rufname: derArb
Wohnort: Berlin

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

hallo,

@jens05...Gott sei Dank, dass es Dich gibt

ich muss es aber erst noch schnell probieren

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Thomas2007
langsam gehts besser... , SQL/DB gut


Verfasst am:
15. Mai 2007, 00:11
Rufname:

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Hallo Jens,

dann spinnt die rechte Liste Laughing

_________________
Gruß
Thomas

Anleitung für das Anhängen von Dateien: Klicke links auf [www]
jens05
Moderator


Verfasst am:
15. Mai 2007, 00:16
Rufname:
Wohnort: ~~~~~

AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

Hallo Thomas,
bei gleichen Anpassungen wirds dann auch mit dem 2. Very Happy

_________________
mfg jens05 Wink
derArb
getting better


Verfasst am:
15. Mai 2007, 00:16
Rufname: derArb
Wohnort: Berlin


AW: Listboxsteuereung in komplexer HF-Ufo Situation - AW: Listboxsteuereung in komplexer HF-Ufo Situation

Nach oben
       Version: Office XP (2002)

hallo Thomas2007,

puhh..das hätte ich fast übersehen...grrr
wollte schon jubeln

ich versteh das nicht..rechts gehts mit demselben codeprinzip..
links nicht

mfg
derArb

_________________
MfG
derArb

Scio me nihil scire...Εν οίδα οτι ουδέν οίδα... Ich weiss, dass ich nichts weiss (Sokrates)
Ich bevorzuge Beiträge mit korrekter deutscher Grammatik.
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Gehe zu Seite 1, 2  Weiter
Diese Seite Freunden empfehlen

Seite 1 von 2
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: Komplexer Select 9 Selecter 168 24. März 2014, 18:35
MiLie Komplexer Select
Keine neuen Beiträge Access Berichte: Komplexer Bericht - zu komplexe Abfrage 13 fxaver2 481 10. Jun 2012, 14:02
MiLie Komplexer Bericht - zu komplexe Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Zu komplexer Abfrage eine neue Tabelle hinzufügen 3 gast01711 182 31. Okt 2011, 17:31
Gast Zu komplexer Abfrage eine neue Tabelle hinzufügen
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung zweier komplexer Tabellen 6 nsbikes 174 12. Aug 2011, 11:27
KlausMz Verknüpfung zweier komplexer Tabellen
Keine neuen Beiträge Access Programmierung / VBA: Import und Export in/aus komplexer Tabellenstruktur 19 DBKlempner 1404 30. Aug 2010, 14:52
DBKlempner Import und Export in/aus komplexer Tabellenstruktur
Keine neuen Beiträge Access Tabellen & Abfragen: Probleme bei komplexer Abfrage 4 Horst_S 286 30. Jun 2010, 17:05
Horst_S Probleme bei komplexer Abfrage
Keine neuen Beiträge Access Formulare: Suchfunktion über Kombinationsfeld in komplexer(?) Umgebung 7 netshare 415 24. Feb 2010, 16:23
Gast Suchfunktion über Kombinationsfeld in komplexer(?) Umgebung
Keine neuen Beiträge Access Tabellen & Abfragen: Problem bei komplexer Abfrage 1 SabrinaXV 276 30. Okt 2009, 14:09
Bitsqueezer Problem bei komplexer Abfrage
Keine neuen Beiträge Access Programmierung / VBA: Komplexer Excel Import 20 Toflar 1396 18. Sep 2009, 08:21
Toflar Komplexer Excel Import
Keine neuen Beiträge Access Berichte: komplexer Bericht 3 Tox 651 27. Okt 2007, 23:21
Willi Wipp komplexer Bericht
Keine neuen Beiträge Access Formulare: Je nach Situation verschiedene Abfragen mit Formular laden 2 Freeman_6 827 02. Sep 2007, 01:05
Freeman_6 Je nach Situation verschiedene Abfragen mit Formular laden
Keine neuen Beiträge Access Tabellen & Abfragen: Problem bei komplexer Auswertung 3 Mo1982 526 28. Aug 2007, 16:31
Willi Wipp Problem bei komplexer Auswertung
 

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