Hallo zusammen,
ich habe ein Formular mit 3 Kombinationsfeldern zum Filtern der Daten und eine Schaltfläche um die gefilterteten Daten in einen Bericht zu überführen.
Setze ich den ersten Filter (Kombinationsfeld), ist alles in Ordnung.
Allerdings wird es mal so richtig merkwürdig sobald ich ein weiteres Kriterium über meine Felder auswähle. Die Anzeige im Formular selbst ist zwar problemlos, aber im Bericht werden bestimmte Textfelder nicht mehr korrekt angezeigt. Es erscheint jeweils nur ein fast leeres feld mit zwei Quadraten am Anfang..
der Export ist übrigens nix besonderes:
Dim stDocName As String
stDocName = "Auswertung_Gesamt_mit_Auswahl"
DoCmd.OpenReport stDocName, acPreview, WhereCondition:=Me.filter
Was mache ich falsch?
Vielen Dank im voraus
nr59
Hallo,
poste mal den Code, mit dem Du den Filter einstellst.
Welchen "Export" meinst Du?
"fast leeres feld mit zwei Quadraten am Anfang"
bei den Quadraten handelt es sich um Sonderzeichen, vermutlich um Cr und LF ..
Wird denn der Bericht korrekt angezeigt, wenn er ohne Where-Condition geöffnet wird?
Hallo DF6GL,
den Filter stelle ich mit folgendem Code ein:
Function berechtigung()
If Me!Kombinationsfeld40 > 0 And Me!Kombinationsfeld45 > 0 And Me!kombi_Thema > 0 Then
Me.filter = "tbl_PruefThemengebietName='" & Me!Kombinationsfeld40 & "'" & _
"And tbl_ThemaName='" & Me!kombi_Thema & "'" & _
"And tbl_Ber__Jahr=" & Me!Kombinationsfeld45
ElseIf Me!Kombinationsfeld40 > 0 And Me!kombi_Thema > 0 Then
Me.filter = "tbl_PruefThemengebietName='" & Me!Kombinationsfeld40 & "'" & _
"And tbl_ThemaName='" & Me!kombi_Thema & "'"
ElseIf Me!kombi_Thema > 0 And Me!Kombinationsfeld45 > 0 Then
Me.filter = "tbl_ThemaName='" & Me!kombi_Thema & "'" & _
"and tbl_Ber__Jahr=" & Me!Kombinationsfeld45
ElseIf Me!Kombinationsfeld40 > 0 And Me!Kombinationsfeld45 > 0 Then
Me.filter = "tbl_PruefThemengebietName='" & Me!Kombinationsfeld40 & "'" & _
"And tbl_Ber__Jahr=" & Me!Kombinationsfeld45
ElseIf Me!Kombinationsfeld40 > 0 Then
Me.filter = "tbl_PruefThemengebietName='" & Me!Kombinationsfeld40 & "'"
ElseIf Me!kombi_Thema > 0 Then
Me.filter = "tbl_ThemaName='" & Me!kombi_Thema & "'"
ElseIf Me!Kombinationsfeld45 > 0 Then
Me.filter = "tbl_Ber__Jahr=" & Me!Kombinationsfeld45
End If
Me.FilterOn = True
End Function
mit EXPORT meine ich den Aufruf eines Berichtes mit den im Formular vorgenommenen Einschränkungen/Filtern. Ich nutze dazu dieses Makro:
Private Sub Befehl50_Click()
On Error GoTo Err_Befehl50_Click
Dim stDocName As String
stDocName = "Auswertung_Gesamt_mit_Auswahl"
DoCmd.OpenReport stDocName, acPreview, WhereCondition:=Me.filter
Exit_Befehl50_Click:
Exit Sub
Err_Befehl50_Click:
MsgBox Err.Description
Resume Exit_Befehl50_Click
End Sub
wobei ich auch schon DoCmd.OpenReport stDocName, acPreview, ,Me.filter
ausprobiert hab..
Der Bericht wird übrigens auch nicht korrekt angezeigt wenn ich im Formular KEINE Filter setze. Öffne ich den Bericht allerdings direkt über das Datenbankfenster, wird alles wieder korrekt angezeigt..
Hallo,
-- setz mal vor jedes "And" ein Leerzeichen.
-- "wenn ich im Formular KEINE Filter setze" das war zwar nicht die Frage...
aber durch "direkt über das Datenbankfenster, wird alles wieder korrekt angezeigt." beantwortet.
--- Prüfe die Kombis besser mit If nz(Me!Kombinationsfeld40,"") <> "" Then
-- Ansonsten sehe ich jetzt keine latenten Fehler.
Lad die DB mal hier komprimiert und gezippt hoch, wenn es geht.
Hochladen geht leider nicht, ich versuche es mal von zuhause mit einer abgespeckten version.
ach ja, die Änderungen haben noch nichts bewirkt.. trotzdem schon mal danke!
Hallo,
ok,
vielleicht fehlt ja doch noch:
.
.
.
ElseIf Me!Kombinationsfeld45 > 0 Then
Me.filter = "tbl_Ber__Jahr=" & Me!Kombinationsfeld45
Else
Me.Filter =""
End If
Me.FilterOn = True
End Function
Schade, hat auch nichts gebracht..
naja, dann muß halt die DB her...
Hallo,
mal nur interessenshalber ... bezeichnest du mit tbl_ThemaName und den anderen Objekten, die mit tbl_.... benamst sind, in deinem Code eine Tabelle oder ein Feld?
Grüße
Peter
Hi mal wieder,
ich hab das Formular mit dem Assi erstellt, und der nimmt für die Felder halt die Bezeichnungen der Datenbanken..
Da die Datei noch zu groß ist, versucht sie euch doch bitte mal über den folgenden Link anzusehen. http://www.supahahn.de/mini.zip (http://www.supahahn.de/mini.zip)
vG
Andreas
Hallo,
warum sind die Berichte ausgeblendet?
Lösch mal dieses ominöse Unterform aus dem Detailbereich...
Irgendwo gibt es da einen Dreckeffekt. Allein das Verschieben eines anderen Textfeldes bringt die richtige Darstellung..
Um welche Zeichen es sich handelt, kann ich auch nicht feststellen.
Hi,
ich hab eigentlich immer alles ausgeblendet, da unsere User manchmal "Schabernack" treiben.. ::)
Das Unterformular benötige ich im Detailbereich, da stehen wichtige Informationen.
ZitatAllein das Verschieben eines anderen Textfeldes bringt die richtige Darstellung..
Das kann ich nicht so ganz nachvollziehen - zumal ja auch alles richtig läuft wenn ich nur den ersten Filter setze..
Hallo,
habe noch ein bißschen weiter geforscht:
Der Bericht basiert auf einer gruppierenden Abfrage, in der auch die Memofelder gruppiert werden. Es ist unsinnig, Memofelder zu gruppieren und dies führt zu dieser falschen Anzeige( Chinesische Zeichen). Man kann das "Feature" oder "Bug" nennen.. ;)
jetzt weiß ich warum bei dir "ACCESS-GOTT" steht!!!!
Vielen vielen Dank, das war des Pudels Kern!!!
Sensationell..
vG
Andreas