title image


Smiley Re: Filter von Formular auf Bericht übertragen..
Vielen Dank erst mal für die schnelle Antwort. Leider hab ich wie gesagt nicht viel Ahnung. Ich schicke mal den Teil mit wie derzeit mein Bericht geöffnet wird (der aktuell im Formular angezeigte).



Private Sub Befehl916_Click()

On Error GoTo Err_Befehl916_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Dim stDocName As String

Dim stLinkCriteria As String



stDocName = "repPumpen"

stLinkCriteria = "[AKS-Nummer]=" & "'" & Me![AKS-Nummer] & "'"

DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria



Exit_Befehl916_Click:

Exit Sub



Err_Befehl916_Click:

MsgBox Err.Description

Resume Exit_Befehl916_Click

End Sub



Wo und wie muss jetzt da die Filtergeschichte

Ich habs so versucht:



Private Sub Befehl916_Click()

On Error GoTo Err_Befehl916_Click

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70

Dim stDocName As String

Rem Dim stLinkCriteria As String



stDocName = "repPumpen"

Rem stLinkCriteria = "[AKS-Nummer]=" & "'" & Me![AKS-Nummer] & "'"

Rem DoCmd.OpenReport stDocName, acPreview, , stLinkCriteria

Me.Filter = Forms!frmPumpen.Filter

Me.FilterOn = True

DoCmd.OpenReport stDocName, acPreview, Me.Filter



Exit_Befehl916_Click:

Exit Sub



Err_Befehl916_Click:

MsgBox Err.Description

Resume Exit_Befehl916_Click

End Sub

Klappt aber nicht. Jetzt werden wieder alle Datensätze im Bericht ausgegeben.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: