Office: (Office 2010) Status mit Checkbox Filtern

Josef P. · 21. Februar 2014

Hallo!

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

" (OR Status
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das sieht irgendwie eigenartig aus.
Wird die Klammer eventuell später noch weggeschnitten?

Die Syntax für Or ist wie bei And
Code:

Bedingung1 Or Bedingung2
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Mit Klammer eventuell so
Code:

( (Bedingung1) Or (Bedingung2) )
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

aber nicht so:
Code:

Bedingung1 (Or Bedingung2)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

maikek · 21. Februar 2014

\@Josef
Du hast recht.

@quen_to
Ich gehe ja davon aus, dass das ganze Teil deines Gesamtfilters ist. Es muss also heißen:
Code:

strUserFilter = "(Status = 'E' AND pbZeichen = " & strUser & ")"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und für den Gesamtfilter dann etwa so:
Code:

If len(strUserfilter) > 0 then
strGesamtfilter = strGesamtfilter & " OR " & strUserfilter
End if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

maike

hcscherzer · 22. Februar 2014

Klammern in Filterbedingungen sind nur erforderlich, wenn AND mit OR kombiniert wird ... Code:

A and B or C and D
' ist das selbe wie
(A and B) or (C and D)
' Klammern können also wegfallen
' aber es ist was anderes als
A and (B or C) and D
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wie "Punktrechnung vor Strichrechnung" *wink.gif*

quen_to · 24. Februar 2014

Hallo

Danke für Eure Tipps, ich habe fast den ganzen Tag damit verbracht, diese umzusetzen und zu verstehen *Smilie

Ich bin eigentlich der Meinung, dass das ganze nun funktionieren sollte. Ich habe auf dem Formular diesen Code (ich haue einfach mal alles rein von dieser Form):

Code:

Option Compare Database
Option Explicit

Private Sub MachFilter()
Dim strFilter As String
Dim strCheck As String
If Not IsNull(Me!txtName) Then strFilter = strFilter & " AND Nachname LIKE '*" & Me!txtName & "*'"
If Not IsNull(Me!cmdSucheBeruf) Then strFilter = strFilter & " AND Beruf1LISTtblJOB LIKE '*" & Me!cmdSucheBeruf & "*'"
If Not IsNull(Me!txtPB) Then strFilter = strFilter & " AND PB LIKE '*" & Me!txtPB & "*'"
If Me!checkA Then strCheck = strCheck & ", 'A'"
'If Me!checkE Then strCheck = strCheck & ", 'E'"
If Me!checkE Then
Dim strUser As String
Dim strUserFilter As String
strUser = DLookup("pbZeichen", "qryPBID")
'strUserFilter = " (OR Status = 'E' AND pbZeichen = " & strUser & ")"
strUserFilter = "(Status = 'E' AND pbZeichen = " & strUser & ")"
End If

If Me!checkP Then strCheck = strCheck & ", 'P'"
If Me!checkG Then strCheck = strCheck & ", 'G'"
'usw. für P und G

If Len(strFilter) > 5 Then
strFilter = Mid(strFilter, 6)
Else
strFilter = vbNullString
End If

If Len(strCheck) > 2 Then
strCheck = "Status IN (" & Mid(strCheck, 3) & ")"
Else
strCheck = vbNullString
End If

If strFilter vbNullString Then
If strCheck vbNullString Then strFilter = strFilter & " AND " & strCheck
Else
If strCheck vbNullString Then strFilter = strCheck
End If

If strFilter vbNullString Then
Me.Filter = strFilter
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = True
End If

If Len(strUserFilter) > 0 Then
strFilter = strFilter & " OR " & strUserFilter
'strFilter = strCheck & " OR " & strUserFilter
End If

End Sub

Private Sub btEXIT_Click()
DoCmd.Close acForm, Me.Name
End Sub

Private Sub btMV_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frmMV"
DoCmd.OpenForm stDocName
End Sub

Private Sub btReset_Click()
Me.FilterOn = False
Me.txtName = Null
Me.cmdSucheBeruf = Null
Me.txtPB = Null
Me.txtName.SetFocus
End Sub

Private Sub btTMAErfassen1_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_TMA-Erfassung"
DoCmd.OpenForm stDocName
DoCmd.Close acForm, Me.Name
End Sub

Private Sub checkA_AfterUpdate()
MachFilter
End Sub

Private Sub checkE_AfterUpdate()
MachFilter
End Sub

Private Sub checkG_AfterUpdate()
MachFilter
End Sub

Private Sub checkP_AfterUpdate()
MachFilter
End Sub

Private Sub cmdSucheBeruf_AfterUpdate()
MachFilter
End Sub

Private Sub Form_Current()
Me.Requery
End Sub

Private Sub Form_Open(Cancel As Integer)
Me.txtName.SetFocus
End Sub

Private Sub Nachname_Click()
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "frm_TMADETAIL"
stLinkCriteria = "[TMA_ID]=" & Me!TMA_ID
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Close acForm, Me.Name
End Sub

Private Sub txtName_AfterUpdate()
MachFilter
End Sub

Private Sub txtPB_AfterUpdate()
MachFilter
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich suche verzweifelt nach dem Fehler, finde aber keinen.

- Wenn ich die Ansicht öffne, werden sämtliche Datensätze angezeigt, völlig unabhängig vom Besitzer (Alle Kontrollkästchen haben den Status "1").
- Wenn ich Kontrollkästchen "E" deaktiviere, dann werden alle Datensätze mit Status "E" ausgeblendet (soweit korrekt)
- Wenn ich jetzt das Kästchen mit "E" erneut klicke (also aktiviere), dann bleibt die Ansicht die Gleiche, wie wenn die Checkbox deaktiviert ist, es werden also keine Datensätze angezeigt.

Ich habe nach meinen Möglichkeiten diverse Umstellungen und Änderungen versucht, hat aber nichts geklappt.

Josef P. · 24. Februar 2014

Hallo!

Code:
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

If strFilter vbNullString Then
Me.Filter = strFilter
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = True
End If

If Len(strUserFilter) > 0 Then
strFilter = strFilter & " OR " & strUserFilter
'strFilter = strCheck & " OR " & strUserFilter
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welche Aktion erwartest du vom letzten Code-Block nachdem gefiltert wurde?

Vermutlich wurde es schon erwähnt, aber eine Wiederholung wird schon nicht schaden. *wink.gif*
Wenn beim Filtern nicht das erwartete Ergebnis kommt, solltest du dir den SQL-Ausdruck ansehen, mit dem gefiltert wird.
Diese steckt in deinem Code in der Variablen strFilter.
=>
Vor Me.Filter = strFilter den Filterausdruck ausgeben lassen und überprüfen, ob der logisch richtig ist.

Code:

If strFilter vbNullString Then
debug.print strFilter
' oder in einem Textfeld im Formular anzeigen:
'me.EinUngebundenesTextfeld.Value = strFilter
Me.Filter = strFilter
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = True
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mfg
Josef

quen_to · 24. Februar 2014

Hallo Josef

Vom letzten Block erwarte ich eigentlich, dass mir dieser mir den Gesamtfilter anwendet + den Filter dass die Status mit 'E' nur die Datensätze des eingeloggten Benutzers angezeigt wird.

Ich habe den Debug.Print gemacht und als Antwort erhalten:

Status IN ('A', 'P', 'G')
Status IN ('A', 'P', 'G')

Sehe ich das richtig, dass der Status E gar nicht mehr berücksichtigt wird? Ich geh jetzt mal dran und werde wieder testen, testen, testen... bin trotzdem für jede weitere Hilfe dankbar *Smilie

Josef P. · 24. Februar 2014

Nur zum Überlegen:

Code:

dim strTest as String
strTest = "abc"
Msgbox strTest
strTest = strTest & "xyz"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Welchen Text siehst du in der Messagebox?

Und jetzt vergleiche den Ablauf bitte einmal mit diesem Code:
Code:

[...]
If strFilter vbNullString Then
If strCheck vbNullString Then strFilter = strFilter & " AND " & strCheck
Else
If strCheck vbNullString Then strFilter = strCheck
End If

If strFilter vbNullString Then
Me.Filter = strFilter ' .. hier wird der Filterausdruck an die Filter-Eigenschaft übergegeben (vergleichbar mit der Übergabe des String an die MsgBox)
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = True
End If

If Len(strUserFilter) > 0 Then
strFilter = strFilter & " OR " & strUserFilter
'strFilter = strCheck & " OR " & strUserFilter
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Anm.: Ich schreibe absichtlich keinen Code-Vorschlag, da ich der Meinung bin, du hast auf Dauer mehr davon, wenn du das Problem selbst erkennst und lösen kannst. *wink.gif*

mfg
Josef

quen_to · 24. Februar 2014

Ist mir auch recht so, ich will ja lernen und nicht abkupfern. Ich bin Dir fürs Erste dankbar für den Tipp mit der Message-Box, darauf bin ich gar nicht gekommen...

Ich werde am Abend wieder daran gehen und dann hoffentlich das Problem endlich lösen, ist das Letzte (für den Moment)*Smilie

Bis später... quen

Office: (Office 2010) Status mit Checkbox Filtern

Status mit Checkbox Filtern

Status mit Checkbox Filtern

Status mit Checkbox Filtern

Status mit Checkbox Filtern

Status mit Checkbox Filtern - Similar Threads - Status Checkbox Filtern

zusätzlicher Kalender, Besprechungen, Status

Status setzen 4 Bedingung

Bedingte Formatierung- Farbe je nach Status

Status ändern nach Bearbeitung

Zellen einen "Status" zuweisen

Status von Aufgaben nach bestimmter Zeit automatisch zurücksetzen

Fälligkeiten und Prioritäten