Problem mit Berichtsfilterung

[tragger]

Hallo Leute,

ich habe mal wieder ein Problem und hoffe auf eure Hilfe.

Ich möchte einen Bericht aus einem Formular heraus öffnen. Hier ist der Code:

Code [Auswählen] Erweitern

Dim datumsmerker As Date
    Dim txtdatum As String
    Dim uebergabe As String
    Dim nutzungsmerker As String
    If IsNull(Me.Stichtagssdatum) Then
        MsgBox "Es muss ein Datum ausgewählt werden!", 64
        [Stichtagssdatum].SetFocus
    ElseIf IsNull(Me.Versicherungsart) Then
        MsgBox "Es muss eine Versicherungsart ausgewählt werden!", 64
        [Versicherungsart].SetFocus
    Else
        datumsmerker = Me.Stichtagssdatum
        nutzungsmerker = Me.Versicherungsart
        txtdatum = "#" & Month(datumsmerker) & "/" & Day(datumsmerker) & "/" & year(datumsmerker) & "#"
        uebergabe = datumsmerker & nutzungsmerker
        stLinkCriteria = " Ablauf > " & txtdatum & " And Nutzungsart = " & nutzungsmerker
        DoCmd.Close
        DoCmd.OpenReport "rptAuswertungBestandVersicherungsart", acPreview, , stLinkCriteria, , uebergabe

Jedoch habe ich ein Problem mit dem Teil

& " And Nutzungsart = " & nutzungsmerker

Dieser funktioniert nicht und er öffnet bei Ausführung immer ein kleines Fenster "Parameterwert eingeben" für den "Inhalt des Strings nutzungsmerker".

Im Bericht gibt es das Feld Nutzungsart, weshalb ich das nicht verstehe

[DF6GL]

Hallo,


ist ja eine wilde Sache mit diesem Datumskriterium...  

Code [Auswählen] Erweitern



Sub btnBerichtoeffnen_Click()
   Dim stLinkCriteria  as String
   Dim datumsmerker As Date
   Dim txtdatum As String
   Dim uebergabe As String
   Dim nutzungsmerker As String
   If IsNull(Me!Stichtagssdatum) Then
       MsgBox "Es muss ein Datum ausgewählt werden!", 64
       Me![Stichtagssdatum].SetFocus
       Exit Sub
   ElseIf IsNull(Me!Versicherungsart) Then
       MsgBox "Es muss eine Versicherungsart ausgewählt werden!", 64
       Me![Versicherungsart].SetFocus
       Exit Sub
   Else
       datumsmerker = Me!Stichtagssdatum
       nutzungsmerker = Me!Versicherungsart
       txtdatum = Format(datumsmerker,"\#yyyy-mm-dd\#")
       uebergabe = datumsmerker & nutzungsmerker   'wirklich ohne Datumsformatierung und Trennzeichen zusammensetzen?
       stLinkCriteria = " Ablauf > " & txtdatum & " And Nutzungsart = '" & nutzungsmerker & "'"  ' hier liegt der Knackpunkt
     DoCmd.Close acFrom, Me.Name
       DoCmd.OpenReport "rptAuswertungBestandVersicherungsart", acPreview, , stLinkCriteria, , uebergabe
   End If
End Sub

[tragger]

super, Danke, Danke, Danke!!!

Ja das mit der Übergabe ist kein Problem, da das Datum ja immer 10 Zeichen hat und dieses bei Berichtsöffnung wieder auseinandergenommen wird...