Top-Themen

Aktuelle Themen (A bis Z)

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

Mehrer Filter miteinander Verbinden

Frage Microsoft Microsoft Office

Mitglied: xpilzx1

xpilzx1 (Level 1) - Jetzt verbinden

07.07.2010, aktualisiert 08:59 Uhr, 2277 Aufrufe, 7 Kommentare

Hallo @ all,

da mir hier schon wirklich gut geholfen wurde, will ich mein neues Problem auch hier veröffentlichen in der Hoffnung das mir jemand den richtigen Denkanstoß geben kann.
ich habe ein Unterformular, für das ich in einem Modul eine Privat Function geschrieben hab (mit Hilfe dieses Forums funktioniert diese auch tadellos). dort filtere ich anhand eines Textfeldes mein Formular. weil diese Funktion in verschiedenen Formularen verwendet werden soll arbeitet sie mit einem Objekt als Formularnamen.

Hier ist mal der Code:
01.
Public Function PFCT_FILTER(PVAR_SUCHFELD_1 As String, PVAR_FORMFELD_1 As String) As String 
02.
Dim AktSteuerelement As Control 
03.
Set AktSteuerelement = Screen.ActiveControl 
04.
On Error GoTo FEHLER 
05.
Call setFormularObjekt 
06.
If Nz(AbsForm(PVAR_SUCHFELD_1).Text) <> "" Then 
07.
AbsForm.Filter = PVAR_FORMFELD_1 & " Like '" & AbsForm(PVAR_SUCHFELD_1).Text & "*'" 
08.
AbsForm.FilterOn = True 
09.
Else 
10.
AbsForm.FilterOn = False 
11.
Exit Function 
12.
End If 
13.
FEHLER: If AbsForm.RecordsetClone.RecordCount = 0 Then 
14.
AbsForm.Filter = "" 
15.
AktSteuerelement.SetFocus 
16.
AktSteuerelement.SelStart = Len(AbsForm(PVAR_SUCHFELD_1).Text) 
17.
MsgBox "Keine Übereinstimung gefunden in " & AktSteuerelement.NAME 
18.
Exit Function 
19.
End If 
20.
AbsForm(PVAR_SUCHFELD_1).SelStart = Len(AbsForm(PVAR_SUCHFELD_1).Text) 
21.
End Function
nun will ich diesen filter so erweitern das in mehreren Spalten gefiltert werden kann z.B. erst in spalte NAME --> alle namen mit A werden angezeigt, und dann in spalte VORNAME alle Vornamen mit A aus denen die Name mit A haben.
mach ich das ganze in einem SUB, ( Beispiel:Me.Filter = "VORNAME Like '" & Me!FILTER_VORNAME.Text & "*' And NAME Like '" & Me!FILTER_NAME & "*'")
klappt das auch wunderbar, aber binde ich das in meine Funktion mit ein ( Beispiel: AbsForm.Filter = PVAR_FORMFELD_1 & " Like '" & AbsForm(PVAR_SUCHFELD_1).Text & "*' And PVAR_FORMFELD_2 & " Like '" & AbsForm(PVAR_SUCHFELD_2).Text & "*'")
wird mir der erste Hochstrich nach And PVAR_FORMFELD_2 & " Like markiert, die ganze Zeile ist Rot und es erscheint eine Meldung "Erwarte Ausdruck"
kann mir jemand weiterhelfen? bin noch verdammt unerfahren was VBA angeht.

vielen dank schon mal im voraus.
grüsse Thomas
Mitglied: 76109
07.07.2010 um 09:33 Uhr
Hallo xpilzx1!

Versuchs mal damit:
& "*' And " & PVAR_FORMFELD_2 &

Gruß Dieter
Bitte warten ..
Mitglied: thaenhusen
07.07.2010 um 11:29 Uhr
Moin.

AbsForm.Filter = PVAR_FORMFELD_1 & " Like '" & AbsForm(PVAR_SUCHFELD_1).Text & "*' And PVAR_FORMFELD_2 & " Like '" & AbsForm(PVAR_SUCHFELD_2).Text & "*'"

Versuch mal:

AbsForm.Filter = PVAR_FORMFELD_1 & " Like '" & AbsForm(PVAR_SUCHFELD_1).Text & "*' And " & PVAR_FORMFELD_2 & " Like '" & AbsForm(PVAR_SUCHFELD_2).Text & "*'"

Nach dem And fehlte das " &

HTH
MK
Bitte warten ..
Mitglied: xpilzx1
07.07.2010 um 11:41 Uhr
danke euch beiden, das problem ist damit behoben, kann den code so speichern und aufrufen, nur ist nun AbsFormFilter = "" , also leer? wie kann das den sein?

mach ich zum testen :
AbsForm.Filter = PVAR_FORMFELD_1 & " Like '" & AbsForm(PVAR_SUCHFELD_1).Text & "*' And " & PVAR_FORMFELD_1 & " Like '" & AbsForm(PVAR_SUCHFELD_1)Text & "*'"
dann ist es richtig, dann ist AbsFormFilter = "VORNAME Like 'J'" And "VORNAME Like 'J'"

was hab ich den da schon wieder falsch gemacht?

kann es sein das es an der Position der Cursors liegt?
Bitte warten ..
Mitglied: thaenhusen
07.07.2010 um 12:33 Uhr
Moin.

Du musst PVAR_FORMFELD_2 und PVAR_SUCHFELD_2 auch in die Funktion stecken...

Public Function PFCT_FILTER(PVAR_SUCHFELD_1 As String, PVAR_FORMFELD_1 As String, PVAR_SUCHFELD_2 As String, PVAR_FORMFELD_2 As String) As String

HTH
MK
Bitte warten ..
Mitglied: xpilzx1
08.07.2010 um 08:36 Uhr
ja das habe ich gemacht, daran liegt es nicht, ich komm einfach nicht weiter an der stelle. aber ich habe so das gefühl als könne mann dieses Objekt AbsForm nicht mit mehreren feldern verwenden. ist das möglich?
Bitte warten ..
Mitglied: xpilzx1
08.07.2010 um 08:49 Uhr
ich hab mal zum ausprobieren folgendes gemacht: test = AbsForm(Suchfeld2).Text Ergebnis Laufzeitfehler 2185 sie können nur dann auswerten wenn das Steuerelement den Focus hat. ABER, test = AbsForm(Suchfeld1) Ergebnis: genau das was der Inhalt der Variable ist, also in diesem fall "tho" weil ich nach namen mit tho filtern will.
Bitte warten ..
Mitglied: thaenhusen
08.07.2010 um 16:57 Uhr
Moin.

Den Fehler kann ich so nicht nachvollziehen.
Dann solltest Du aber vieleicht mit Public Variablen arbeiten.

Ansonsten schick mir mal Deine aktuelle mdb zu, dann schaue ich mal.

Schöne Grüße
MK
Bitte warten ..
Ähnliche Inhalte
LAN, WAN, Wireless
Mehrere Etagenswitche miteinander verbinden
Frage von jtolksdoLAN, WAN, Wireless8 Kommentare

Hi, ich bin privat von einer Wohnung in eine andere umgezogen. Bislang hatte ich in verschiedenen Räumen jeweils einen ...

Netzwerkmanagement
OpenVPN mehrere Netzwerke miteinander verbinden
gelöst Frage von warbyrdNetzwerkmanagement6 Kommentare

Hallo zusammen, kann mir vielleicht jemand helfen und sagen ob meine Überlegungen richtig sind und so funktionieren (bevor ich ...

Router & Routing
2 Vlans miteinander verbinden
Frage von ChristianV8Router & Routing35 Kommentare

Hallo, ich habe 2 Vlans mit Layer2 Switch TP-Link TL-SG2452 getrennnt. Ich besitze 2 Synology DS414 NAS-Diskstations von denen ...

Router & Routing
Fritzboxen 7490 miteinander verbinden
Frage von dysti99Router & Routing1 Kommentar

Hallo, Habe nun 100000er 1&1-Internetanschluss und zwei Fritzboxen 7490. Diese möchte ich miteinander verbinden. Entfernung: ein Stockwerk Wie verbinden? ...

Neue Wissensbeiträge
Verschlüsselung & Zertifikate

Die Hölle friert ein weiteres Stück zu: Microsoft integriert OpenSSH in Windows

Information von ticuta1 vor 24 MinutenVerschlüsselung & Zertifikate

Interessant SSH-Kommando in CMD.exe und PowerShell

Apple

IOS 11.2.1 stopft HomeKit-Remote-Lücke

Tipp von BassFishFox vor 1 TagApple

Das Update für iPhone, iPad und Apple TV soll die Fernsteuerung von Smart-Home-Geräten wieder in vollem Umfang ermöglichen. Apple ...

Windows 10

Windows 10 v1709 EN murkst bei den Regionseinstellungen

Tipp von DerWoWusste vor 1 TagWindows 10

Dieser kurze Tipp richtet sich an den kleinen Personenkreis, der Win10 v1709 EN-US frisch installiert und dabei die englische ...

Webbrowser

Kein Ton bei Firefox Quantum über RDP

Tipp von Moddry vor 1 TagWebbrowser

Hallo Kollegen! Hatte das Problem, dass der neue Firefox bei mir auf der Kiste keinen Ton hat, wenn ich ...

Heiß diskutierte Inhalte
Windows Server
RODC kann nicht aus Domäne entfernt werden
Frage von NilsvLehnWindows Server18 Kommentare

HAllo, ich arbeite in einem Universitätsnetzwerk mit 3 Standorten. Die Standorte haben alle ein ESXi Cluster und auf diesen ...

Hardware
Kein Bild mit nur einer bestimmten Grafikkarten - Mainboard Konfiguration
gelöst Frage von bestelittHardware18 Kommentare

Hallo zusammen, ich hatte schon einmal eine ähnliche Frage gestellt. Damals hatte ich genau das gleiche Problem. Allerdings lies ...

Netzwerkmanagement
Mehrere Netzwerkadapter in einem PC zu einem Switch zusammenfügen
Frage von prodriveNetzwerkmanagement17 Kommentare

Hallo zusammen Vorweg, ich konnte schon einige IT-Probleme mit Hilfe dieses Forums lösen. Wirklich klasse hier! Doch für das ...

Hardware
Links klick bei Maus funktioniert nicht
gelöst Frage von Pablu23Hardware16 Kommentare

Hallo erstmal. Ich habe ein Problem mit meiner relativ alten maus jedoch denke ich nicht das es an der ...