Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Acces 2007 Filter mit Checkbox

Frage Microsoft Microsoft Office

Mitglied: voipfreak

voipfreak (Level 1) - Jetzt verbinden

26.08.2012 um 00:17 Uhr, 3853 Aufrufe, 3 Kommentare

Hallo Zusammen,

Ich schreie um Hilfe

Ich habe eine Datenbank in der versch. Mitarbeiter und deren Tätigkeiten etc. gespeichert werden.
Ich habe ein Formular (aus einer Abfrage) erstellt in der diese ALLE aufgelistet werden. In diesem Formular möchte ich
mittels versch Checkboxen die Datensätze Filtern. Z.b. Mit dem Klick auf die Box Herr und Führerschein möchte ich alle Männlichen Mitarbeiter gefiltert gaben die einen Führerschein haben. Wenn ich jetzt noch die Box Pkw anklicke sollen alle Männlichen MA die einen Führerschein und Pkw haben gefiltert werden.

Ich habe bereits gegoogelt aber nichts gefunden und verzweifele gerade hier

Kann mir hier jemand helfen ?

Danke euch schon einmal im Voraus

lg Voipfreak
Mitglied: NetWolf
26.08.2012 um 15:31 Uhr
Grüß Gott,

nun das ist kein Grund zu verzweifeln

Ich vermute, du willst keinen zusätzlichen Button für "Filter anwenden". D.h. du musst beim Ereignis: "beim Fokusverlust" bei JEDER Controllbox eine SUB aufrufen, die den Filter anwendet.

z.B. (ungetestet mangels detaillierter Informationen) !! Feldnamen etc. bitte entsprechend anpassen
01.
Sub Filter_anwenden 
02.
Dim Masterfilter as String 
03.
 
04.
'Filter zusammenbauen 
05.
Masterfilter = "" 
06.
 
07.
'diese Routine für jede Checkbox erstellen! 
08.
If Me.Checkbox_Herr = true then 'nur ausführen wenn ausgewählt 
09.
   Masterfilter = Masterfilter & iif(len(masterfilter)>0," & ","") & " [TBL_Feld_ANREDE] = TRUE " 
10.
endif 
11.
 
12.
If len(Masterfilt)>0 then 
13.
   Me.Filter = Masterfilter 
14.
   Me.FilterOn = True 
15.
   Me.Requery  
16.
endif 
17.
 
18.
End sub
hth

Grüße aus München
Wolfgang
(Netwolf)
Bitte warten ..
Mitglied: voipfreak
10.10.2012, aktualisiert um 15:19 Uhr
Hi,

herzlichen Dank für Deine Antwort auf meine Access Filter Frage. Komme aufgrund von Krankheit erst jetzt dazu, mir diese zu Gemüte zu führen.

Ich versteh das nicht so ganz.
Könntest du mir den Code nochmals senden ?
Die Feldnamen die gefiltert werden sollen lauten:

Anrede, FS, PKW (Für die Anrede sind zwei Checkboxen mit Herr und Frau vorgesehen) in den Felder FS und PKW sind bei positivem Wert (also der Mitarbeiter verfügt über Führerschein und/oder PKW) -1 eingetragen.

Besten Dank für deine Hilfe

Voipfreak
Bitte warten ..
Mitglied: voipfreak
10.10.2012 um 16:35 Uhr
Hab das jetzt mal Sie probiert (ohne Erfolg)
Wenn ich das auch mit Fokus Lost versuche klappt es leider nicht.

Private Sub Kontrollkästchen17_Click()
Dim Masterfilter As String

'Filter zusammenbauen
Masterfilter = "Herr"

'diese Routine für jede Checkbox erstellen!
If Me.Kontrollkästchen17 = True Then 'nur ausführen wenn ausgewählt
Masterfilter = Masterfilter & IIf(Len(Masterfilter) > 0, " & ", "") & " [Anrede] = TRUE "
End If

If Len(Masterfilter) > 0 Then
Me.Filter = Masterfilter
Me.FilterOn = True
Me.Requery
End If
End Sub

Weis keiner Rat ?

Beste Grüße Voipfreak
Bitte warten ..
Ähnliche Inhalte
Exchange Server
gelöst Exchange 2007 (SBS 2008) - Eingetragene Termine von Outlook Clients verschwinden (4)

Frage von fr4nkd zum Thema Exchange Server ...

VB for Applications
Suche mittels Eintrag in Listbox und einer gewählten Checkbox (2)

Frage von aivilon zum Thema VB for Applications ...

Exchange Server
Support für Exchange 2007 endet am 11. April 2017 (3)

Link von transocean zum Thema Exchange Server ...

Microsoft Office
gelöst Upgrade Office 2007 auf 2013 (3)

Frage von Lukas4580 zum Thema Microsoft Office ...

Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(2)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (36)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...

Internet Domänen
Nameserver ein Geist? (9)

Frage von zelamedia zum Thema Internet Domänen ...