Private Sub Befehl45_Click()
On Error GoTo Err_Befehl45_Click
Dim stDocName As String
Dim suche As String
stDocName = "Projektdokumente Vorlage"
If Not IsNull(Baugruppenr) And Baugruppenr <> "" And Baugruppenr <> "" Then
suche = "Baugruppenr = '" & Baugruppenr & "'"
End If
DoCmd.OpenReport "Projektdokumente Vorlage", acViewPreview, , suche
Exit_Befehl45_Click:
Exit Sub
Err_Befehl45_Click:
MsgBox Err.Description
Resume Exit_Befehl45_Click
End Sub
Private Sub Befehl45_Click()
On Error GoTo Err_Befehl45_Click
Dim stDocName As String
Dim suche As String
stDocName = "Projektdokumente Vorlage"
If Not IsNull(Baugruppenr) And Baugruppenr <> "" Then
suche = "Baugruppenr = '" & Baugruppenr & "'"
DoCmd.OpenReport stDocName , acViewPreview, , suche
End If
Exit_Befehl45_Click:
Exit Sub
Err_Befehl45_Click:
MsgBox Err.Description
Resume Exit_Befehl45_Click
End Sub suche = "Baugruppenr>='" & Baugruppenr1 & "' AND Baugruppenr<'" & Baugruppenr2 & "'"DoCmd.OpenReport "Projektdokumente Vorlage", acViewPreview, , IIf(Me.FilterOn, Me.Filter, "")Damit werden genau die Datensätze im Bericht dargestellt, die du auch im Formular gefiltert hast.
datensätze vergleichen?
morpheus__85 07.08.2007 - 135 Hits - 2 Antworten
Datensätze automatisch zusammenzählen?
znayta 14.08.2007 - 6 Hits - 1 Antwort
aktuelle Datensätze an Alte Datensätze anhängen
morpheus__85 13.09.2007 - 27 Hits - 5 Antworten
Datensätze begrenzen
DerNordBerliner 29.10.2007 - 114 Hits - 10 Antworten
Datensätze ausblenden
morpheus__85 04.12.2007 - 66 Hits - 5 Antworten