Ms Access-Filter-Berichte im Laufzeitmodus

Question

Kann jemand Berichte im Access-Laufzeitmodus richtig filtern? Der übliche Code mit DoCmd funktioniert nicht.

Dies ist, was ich für den Bericht versucht:

Private Sub Befehl217_Click() 
DoCmd.OpenReport "Tagesbericht", acViewPreview 
End Sub 

Private Sub Bezeichnungsfeld26_Click() 
DoCmd.GoToControl "DateFilter" 
DoCmd.RunCommand acCmdFilterMenu 
End Sub 

diese Arbeit nicht. Access beschwerte sich, dass "FilterMenu ist nicht verfügbar".

Ich habe versucht, ein Kontextmenü zu erstellen, aber das zeigte mir nur Ausschneiden, Kopieren und Einfügen.

Answer 1

Sie haben Ihre r bestätigt eport enthält ein Steuerelement mit dem Namen Bezeichnungsfeld26, und wenn der Benutzer auf dieses Steuerelement klickt, möchten Sie das Filtermenü für dieses Steuerelement aufrufen.

Wenn der Benutzer auf dieses Steuerelement klickt, hat es den Fokus, so dass GoToControl nicht benötigt wird. Und Sie möchten nicht zu einem anderen Steuerelement wechseln, wenn der Benutzer auf Bezeichnungsfeld26 filtern soll.

Deaktivieren Sie die GoToControl Linie ...

Private Sub Bezeichnungsfeld26_Click() 
'DoCmd.GoToControl "DateFilter" 
DoCmd.RunCommand acCmdFilterMenu 
End Sub 

Answer 2

Sie können die Filter Eigenschaft:

Me.Filter = "[YourField] = " & somevalue & "" 
Me.FilterOn = True 

oder auf Ihrer aktuelle Methode erweitern:

DoCmd.OpenReport "Tagesbericht", acViewPreview, , "[YourField] = " & somevalue & "" 

Wenn Sie ein Datum filtern Sie einen korrekt formatierte String-Ausdruck übergeben muss für das Datum:

Dim FilterDate As Date 

FilterDate = Date 

DoCmd.OpenReport "Tagesbericht", acViewPreview, , "[DateFilter] = #" & Format(FilterDate, "yyyy\/mm\/dd") & "#"