Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Daten im Kombifeld durch Optionsgruppe begrenzen
zurück: Werteingabe bei Formularstart erforderlich weiter: Problem mit Insert Into Statement in Formular 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
HeBo
Access Einsteiger


Verfasst am:
25. Nov 2009, 15:37
Rufname: Heiko
Wohnort: Osnabrück

Daten im Kombifeld durch Optionsgruppe begrenzen - Daten im Kombifeld durch Optionsgruppe begrenzen

Nach oben
       Version: Office 2003

Hallo zusammen,

bin absoluter Access-Neuling und soll für meine Abteilung eine Datenbank zur Auftragsverwaltung erstellen. Habe hier im Forum schon einige Sachen gefunden (und auch gelernt), habe aber jetzt folgendes Problem:

Ich möchte über ein Kombinationsfeld (in dem ich eine Projektnummer auswähle) Daten zu dem Projekt anzeigen lassen. Dieses Formular funktioniert auch. Da die Liste aber nach kurzer Zeit extrem lang wird, wollte ich über eine Optionsgruppe einschränken, ob in dem Kombinationsfeld nur 'offene Projekte', 'abgeschlossene Projekte' oder 'alle Projekte' erscheinen sollen.
In der Tabelle gibt es ein Feld Projekt_abgeschlossen vom Typ Ja/Nein, nach dem gefiltert werden soll.

Ich habe es mit folgendem Code für die Optionsgruppe versucht:
Code:
Private Sub Projektbeschränkung_AfterUpdate()
    Select Case Me!Projektbeschränkung
      Case 1:
        Me!Projektwahl.RowSource = "SELECT Projekt_ID, Projekt-Nr " & _
                                     "FROM [Ebene_1_-_Projekt] " & _
                                    "WHERE Projekt_abgeschlossen = NEIN "
        Me!Projektwahl = Me!Projektwahl.Column(0, 0)
      Case 2:
        Me!Projektwahl.RowSource = "SELECT Projekt_ID, Projekt-Nr " & _
                                     "FROM [Ebene_1_-_Projekt] " & _
                                     "WHERE Projekt_abgeschlossen = JA "
        Me!Projektwahl = Me!Projektwahl.Column(0, 0)
    End Select
End Sub
Meine Kenntnisse in VBA basieren leider nur auf learning by doing bzw. aus nachlesen hier im Forum.

Schon mal jetzt ein Danke für eure Bemühungen.

Gruß, Heiko.
Marmeladenglas
komme zurecht


Verfasst am:
25. Nov 2009, 16:10
Rufname:


AW: Daten im Kombifeld durch Optionsgruppe begrenzen - AW: Daten im Kombifeld durch Optionsgruppe begrenzen

Nach oben
       Version: Office 2003

Hi,
leider hast du vergessen zu beschreiben, woran es hapert Laughing
Ersetze mal NEIN durch 0 bzw. Ja durch -1.

Wie stellst du alle Projekte ein ?
Gibt es einen Option 3 ?
Code:
Private Sub Projektbeschränkung_AfterUpdate()
    Dim strSQL As String
   
    strSQL = "SELECT Projekt_ID, [Projekt-Nr]" _
            & " FROM [Ebene_1_-_Projekt] "
    Select Case Me!Projektbeschränkung
      Case 1: strSQL = strSQL & "WHERE Projekt_abgeschlossen = 0"
      Case 2: strSQL = strSQL & "WHERE Projekt_abgeschlossen = -1"
    End Select
    Me!Projektwahl.RowSource = strSQL
    Me!Projektwahl = Me!Projektwahl.Column(0, 0)
End Sub
das "ä" und die Sonderzeichen ("-") sind unschön und sollten vermieden werden in Objekt/Feldnamen und bedingen im Falle des Minus zwingend eine eckige Klammerung [Projekt-Nr] - wie sollte Acces sonst unterscheiden ob du jetzt subtrahieren möchtest, oder ob es zum Feldnamen gehört

Zuletzt bearbeitet von Marmeladenglas am 25. Nov 2009, 16:27, insgesamt einmal bearbeitet
HeBo
Access Einsteiger


Verfasst am:
25. Nov 2009, 16:27
Rufname: Heiko
Wohnort: Osnabrück

AW: Daten im Kombifeld durch Optionsgruppe begrenzen - AW: Daten im Kombifeld durch Optionsgruppe begrenzen

Nach oben
       Version: Office 2003

So,

habe mir noch ein paar andere Formulare angesehen und selbst noch etwas gebastelt.

Mit folgendem Code klappt es jetzt:
Code:
Private Sub Projektbeschränkung_AfterUpdate()
    Select Case Me!Projektbeschränkung
      Case 1:
        Me!Projektwahl.RowSource = "SELECT Projekt_ID, [Projekt-Nr] " & _
                                     "FROM [Ebene_1_-_Projekt] " & _
                                    "WHERE [Projekt_abgeschlossen] = FALSE"
        Me!Projektwahl = Me!Projektwahl.Column(0, 0)
      Case 2:
        Me!Projektwahl.RowSource = "SELECT Projekt_ID, [Projekt-Nr] " & _
                                     "FROM [Ebene_1_-_Projekt] " & _
                                    "WHERE [Projekt_abgeschlossen] = TRUE"
        Me!Projektwahl = Me!Projektwahl.Column(0, 0)
      Case 3:
        Me!Projektwahl.RowSource = "SELECT Projekt_ID, [Projekt-Nr] " & _
                                     "FROM [Ebene_1_-_Projekt]"
        Me!Projektwahl = Me!Projektwahl.Column(0, 0)
    End Select
End Sub
Marmeladenglas
komme zurecht


Verfasst am:
25. Nov 2009, 16:32
Rufname:

AW: Daten im Kombifeld durch Optionsgruppe begrenzen - AW: Daten im Kombifeld durch Optionsgruppe begrenzen

Nach oben
       Version: Office 2003

Hi,
meine Version wäre vollkommen ausreichend.
Den 3ten Case brauchst du doch gar nicht zu prüfen. Desweiteren mußt du Code nicht in jedem Case wiederholen, der sowieso unabhängig vom Case ausgeführt wird.
Die Zuweisung des SQL's zum Kombi und die Auswahl des 1 Datensatzes sind immer gleich und nicht case-spezifisch, also nur 1x notwendig nach End Select und macht den Code vor allem auch übersichtlicher selbst in dieser Mini-Prozedur.


Zuletzt bearbeitet von Marmeladenglas am 25. Nov 2009, 16:34, insgesamt einmal bearbeitet
HeBo
Access Einsteiger


Verfasst am:
25. Nov 2009, 16:35
Rufname: Heiko
Wohnort: Osnabrück

AW: Daten im Kombifeld durch Optionsgruppe begrenzen - AW: Daten im Kombifeld durch Optionsgruppe begrenzen

Nach oben
       Version: Office 2003

HeBo am 25. Nov 2009 um 15:33 hat folgendes geschrieben:
Hallo Marmeladenglas

Stimmt, habe vergessen zu sagen woran es hapert.
Nach Auswahl eines Buttons der Optionsgruppe gingen Eingabefelder auf um Parameter einzugeben (Projekt, Nr., Ja), mein Kombifeld blieb aber leer.

Mit den Sonderzeichen geb ich dir Recht, werd ich eventuell noch umstricken. Da lag ja auch mein Problem.

Gruß, Heiko

Ich schreib nicht schnell genug ... Rolling Eyes

Ohne Case3 hat es aber nicht funktioniert.
Marmeladenglas
komme zurecht


Verfasst am:
25. Nov 2009, 16:39
Rufname:

AW: Daten im Kombifeld durch Optionsgruppe begrenzen - AW: Daten im Kombifeld durch Optionsgruppe begrenzen

Nach oben
       Version: Office 2003

Hi,
mit deinem oder meinem Code ? Wink
Wenn du eine Optionsgruppe hast mit 3 Optionen. Die dritte Option gewählt wird, wird direkt die Kombi-Zuweisung ausgeführt ohne ein WHERE. Wink (mit meinem Code! Laughing )
HeBo
Access Einsteiger


Verfasst am:
25. Nov 2009, 16:58
Rufname: Heiko
Wohnort: Osnabrück


AW: Daten im Kombifeld durch Optionsgruppe begrenzen - AW: Daten im Kombifeld durch Optionsgruppe begrenzen

Nach oben
       Version: Office 2003

Hi,

mit meinem Code hat es nicht geklappt.
Dein Code läuft einwandfrei. Hab den jetzt eingebaut und bin bis zu meinem nächsten Problem erstmal zufrieden.
(Ich muss mich nur noch mal damit beschäftigen deinen Code zu verstehen)

Herzlichen Dank, Heiko.
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: Daten auf Tabellen aufteilen 2 mightymagic 869 08. März 2005, 16:56
Gast Daten auf Tabellen aufteilen
Keine neuen Beiträge Access Tabellen & Abfragen: Datanorm Daten erzeugen 2 HH Hans 1531 08. Feb 2005, 10:49
HH Hans Datanorm Daten erzeugen
Keine neuen Beiträge Access Tabellen & Abfragen: Kombifeld als Kriterium in Abfrage 2 robbe 583 21. Jan 2005, 11:16
lupos Kombifeld als Kriterium in Abfrage
Keine neuen Beiträge Access Tabellen & Abfragen: errechnete daten beim klick in excel anzeigen 1 gast234 634 19. Jan 2005, 08:44
lothi errechnete daten beim klick in excel anzeigen
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus Abfrage automatisch in Tabelle aktualisieren 4 Christian22 4080 15. Jan 2005, 13:13
Christian22 Daten aus Abfrage automatisch in Tabelle aktualisieren
Keine neuen Beiträge Access Tabellen & Abfragen: Acc 97: Daten der Abfrage für Bericht auswählen! 3 megawunk 952 11. Nov 2004, 22:05
reke Acc 97: Daten der Abfrage für Bericht auswählen!
Keine neuen Beiträge Access Tabellen & Abfragen: Berechnen von 2 Daten in einem neuen Feld (berechnetes Feld) 4 Gast 1167 03. Nov 2004, 15:33
Gast Berechnen von 2 Daten in einem neuen Feld (berechnetes Feld)
Keine neuen Beiträge Access Tabellen & Abfragen: Daten aus einer dat Datei in eine Access Tabelle einlesen! 7 VP 001 8238 26. Okt 2004, 21:57
snurb Daten aus einer dat Datei in eine Access Tabelle einlesen!
Keine neuen Beiträge Access Tabellen & Abfragen: Daten zählen - brauche noch ein wenig mehr Infos hierzu 6 Delfines 748 22. Okt 2004, 17:38
Skogafoss Daten zählen - brauche noch ein wenig mehr Infos hierzu
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage aus 2 gleichen Tabellen mit unterschiedlichen Daten 1 DOG13 727 10. Sep 2004, 14:56
Skogafoss Abfrage aus 2 gleichen Tabellen mit unterschiedlichen Daten
Keine neuen Beiträge Access Tabellen & Abfragen: Daten suchen in ACCESS. Daten aus Tabellen suchen! 7 Gast 2093 26. Aug 2004, 13:55
Gast Daten suchen in ACCESS. Daten aus Tabellen suchen!
Keine neuen Beiträge Access Tabellen & Abfragen: Abfrage mit Gruppierung in Felder Daten eingeben 1 mondi 534 23. Aug 2004, 12:39
lothi Abfrage mit Gruppierung in Felder Daten eingeben
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Macromedia Dreamweaver