Filtern von Daten in einem Formular

[bahasu]

Und was bedeutet die Eigenschaft Me!frm_Kunden_UF.Form.CurrentView = 2?

.currentview = 2 d.h. es liegt eine tabellarische Darstellung vor
.currentview = 1 d.h. es liegt eine Formular-Darstellung vor

Harald

[bahasu]

Leider mekkert Acces beim Kommando
"DoCmd.RunCommand acCmdSubformFormView" und meldet das diese Ansicht nicht verfügbar wäre.

Hi,

ich setze mal voraus, dass der Name vom UFO korrekt ist.
Eine Möglichkeit, solch eine Fehlermeldung zu erhalten, ist, bei den Formulareigenschaften vom UFO "Formularansicht zulassen" auf nein zu stellen. Was ist bei Dir eingetragen?

Harald

[pahiti78]

Hallo Harald,

danke für deine beiden Antworten. Natürlich lag es der Einstellung im Unterformular... Es haut jetzt hin...Danke nochmals

[pahiti78]

Hallo Zusammen,

ich muss dieses Thema nochmal aufgreifen. Und zwar konnte ich den Filter setzen und nach einzelnen Feldern im Formular suchen. In einem Feld möchte ich allerdings, dass die Datenbank in zwei verschiedenen Spaleten sucht. Ich habe versucht dies mittelt der Anweisung "Oder" zu verknüpfen....haut aber nicht hin.
Unten ist meine Prozedur....
Ich hoffe, ihr habt ne Idee. Danke schonmal

Dim krit As String, strSQL As String
Private Sub AuswahlSQL()
krit = "": strSQL = ""
    If Not IsNull(Me!Ort) Then krit = krit & " And AbsenderOrt or EmpfaengerOrt = '" & Me!Ort & "'" 
    strSQL = "SELECT * FROM tblKunden "
    If krit <> "" Then strSQL = strSQL & "WHERE" & Mid(krit, 5)
End Sub

[bahasu]

Hi,

   If Not IsNull(Me!Ort) Then krit = krit & " And AbsenderOrt or EmpfaengerOrt = '" & Me!Ort & "'"  

If Not IsNull(Me!Ort) Then krit = krit & " And (AbsenderOrt = '" & Me!Ort & "' or EmpfaengerOrt = '" & Me!Ort & "')"

Habe auch Klammern eingebaut, da es ansonsten unter Umständen Probleme in der Kombination mit anderen Kriterien geben kann.

Harald

[pahiti78]

Hallo Harald,

haut wunderbar hin.
Danke