Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Listenfeld durchsuchen
zurück: Plantafel / Einsatzplanung weiter: Unterformular durch Elemente auf Hauptformular filtern 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
Uppe
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Sep 2007, 19:53
Rufname:

Listenfeld durchsuchen - Listenfeld durchsuchen

Nach oben
       Version: Office 2003

Hallo,

ich habe zwei Listenfelder (ListAllJobs und ListActiveJobs).
Beim Drücken eines Buttons, soll geschaut werden, ob im ersten Feld etwas markiert ist.
Wenn ja, soll der Wert im zweiten Feld gesucht werden. Ist er vorhanden, dann soll der nächste markierte Wert überprüft werden.
Wenn er noch nicht im 2. Feld vorhanden ist, soll er in eine SQL-DB geschrieben werden und dann auch der nächste Wert aus Feld 1 überprüft werden.

Irgendwie stehe ich im Moment auf dem Schlauch. Der Wert wird immer in die Datenbank geschrieben, auch wenn er schon drin ist. Mir ist schon klar, dass ich hinter das SQL-Statement springen muss, aber wie mache ich das ohne GOTO.
Code:
    For Each JobItem In Me!ListAllJobs.ItemsSelected
        For i = 0 To Me!ListActiveJobs.ListCount
            If Me!ListAllJobs.ItemData(JobItem) = _
                                            Me!ListActiveJobs.ItemData(i) Then
                Exit For
            End If
        Next i
        DoCmd.RunSQL "INSERT INTO Jobs (jobname, ident_processname) " & _
                     "VALUES ('" & Me!ListAllJobs.ItemData(JobItem) & _
                          "', '" & Me!cbxProcess & "')"
    Next JobItem

Danke und Gruß
Dana
jens05
Moderator


Verfasst am:
19. Sep 2007, 20:05
Rufname:
Wohnort: ~~~~~


AW: Listenfeld durchsuchen - AW: Listenfeld durchsuchen

Nach oben
       Version: Office 2003

Hallo,
schau mal, ob diese ungetestete Erweiterung abhilfe schafft
Code:
    Dim nixgefunden As Boolean
   
    For Each JobItem In Me!ListAllJobs.ItemsSelected
        For i = 0 To Me!ListActiveJobs.ListCount
            If Me!ListAllJobs.ItemData(JobItem) = _
                                            Me!ListActiveJobs.ItemData(i) Then
                nixgefunden = False
                Exit For
              Else
                nixgefunden = True
            End If
        Next i
        If nixgefunden Then
            DoCmd.RunSQL "INSERT INTO Jobs (jobname, ident_processname) " & _
                         "VALUES ('" & Me!ListAllJobs.ItemData(JobItem) & _
                              "', '" & Me!cbxProcess & "')"
        End If
    Next JobItem

_________________
mfg jens05 Wink
Nouba
nicht ganz unwissend :)


Verfasst am:
19. Sep 2007, 20:13
Rufname:
Wohnort: Berlin

AW: Listenfeld durchsuchen - AW: Listenfeld durchsuchen

Nach oben
       Version: Office 2003

Hallo Dana,

verwende eine Bool'sche Variable, die vor dem Eintritt in die innere Schleife auf False gesetzt wird. Vor dem Exit For setzt Du diese auf True und die Anfügeabfrage lässt Du nur laufen, wenn der Variablenwert False ist.

PS: da war Jens wohl etwas schneller. Smile

_________________
mit freundlichen Grüssen Nouba

Wenn beim Lesen eines Beitrags der Eindruck entsteht, dass sich der Fragesteller wenig Mühe gegeben hat, so erhöht das nicht unbedingt die Motivation, eine Antwort zu verfassen.
Uppe
Im Profil kannst Du frei den Rang ändern


Verfasst am:
19. Sep 2007, 20:14
Rufname:


AW: Listenfeld durchsuchen - AW: Listenfeld durchsuchen

Nach oben
       Version: Office 2003

Hallo,

vielen Dank, das war's.

Klappt prima.

Gruß Dana
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: Listenfeldabfrage aktuallisiert das listenfeld nicht :-( 6 Tom_hh 293 28. Jan 2010, 10:33
MissPh! Listenfeldabfrage aktuallisiert das listenfeld nicht :-(
Keine neuen Beiträge Access Tabellen & Abfragen: Anfügabfrage/Listenfeld 6 Patrick_gast 385 21. Dez 2009, 09:54
Patrick_Gast Anfügabfrage/Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld mit Mehrfachauswahl 13 Gast091109 687 10. Nov 2009, 16:41
Gast091109 Listenfeld mit Mehrfachauswahl
Keine neuen Beiträge Access Tabellen & Abfragen: Zeitraum per Listenfeld abfragen 4 bobby-k 483 07. Apr 2009, 17:56
Willi Wipp Zeitraum per Listenfeld abfragen
Keine neuen Beiträge Access Tabellen & Abfragen: Mehrfachselektion bei Abfrage+Listenfeld im Formular 16 rantz 2443 15. Nov 2008, 20:27
Willi Wipp Mehrfachselektion bei Abfrage+Listenfeld im Formular
Keine neuen Beiträge Access Tabellen & Abfragen: überschrift in listenfeld mit daten aus eine abfrage 4 lucky0815 2949 15. Okt 2008, 16:15
lucky0815 überschrift in listenfeld mit daten aus eine abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: Abfragen nach letztem Datum erstellen mit Listenfeld ? 19 Topotec 1324 25. Sep 2008, 13:36
Topotec Abfragen nach letztem Datum erstellen mit Listenfeld ?
Keine neuen Beiträge Access Tabellen & Abfragen: Listenfeld leeren 4 moresignthentyps 2240 20. Feb 2008, 17:23
Nouba Listenfeld leeren
Keine neuen Beiträge Access Tabellen & Abfragen: Summe von den Optionen im Listenfeld 4 Disastro 491 22. Jan 2008, 08:08
jens05 Summe von den Optionen im Listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: requery listenfeld 6 max112 1228 02. Dez 2007, 22:46
KlausMz requery listenfeld
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage in einem Listenfeld ausgeben! 3 Kyale 513 21. Aug 2007, 17:30
rita2008 Abfrage in einem Listenfeld ausgeben!
Keine neuen Beiträge Access Tabellen & Abfragen: div. Tabellen durchsuchen 2 HSB 380 17. Aug 2007, 09:29
HSB div. Tabellen durchsuchen
 

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