Office: (Office 2010) VBA bestimmte Textfelder in Bericht ausblenden

Moin,

habe ein Formular erstellt, sowie eine Schaltfläche. Die Schaltfläche soll einen Bericht öffnen. Allerdings sollen die Textfelder in dem Bericht die den Inhalt "keine" beinhalten nicht angezeigt werde.
Ich mache das ganze als Klickereignis für die Schaltfläche.
Zurzeit sieht das so aus:

Private Sub Befehl115_Click()
DoCmd.OpenReport "Bericht_Prämissen", acViewReport
If Me.Tabelle_Gesamt.Auflagen = keine Then
txtAuflagen.Visible = False
End If
End Sub

Allerdings funktioniert der if Befehl nicht, da die Tabelle irgendwie nicht gefunden wird. Es soll überprüft werden, ob in der Tabelle_Gesamt in der Spalte Auflagen ein "keine" steht. Ist dies der Fall, will ich dass das Textfeld "txtAuflagen" im Bericht ausgeblendet wird.
Besimmt sind die Befehle nicht richtig in VBA geschrieben.

Ich hoffe ihr könnt mir weiterhelfen.

:)

 

Code:

im Ereignis Beim Formatieren des Berichtsbereichs.

Besser wäre es, in der dem Bericht zugrunde liegenden Abfrage das Feld bereits aufzubereiten.

 

Kann ja auch nicht, denn Du befindest Dich ja auch in einem Formular.
Code:

bezieht sich auf das Objekt "Formular", mit dem darauf folgendem Code:

sprichst Du ein Steuerelement mit diesem Namen im aktivem Formular an. Nicht die Tabelle!!
Im Feldnamen "Auflagen " (nicht Spalte) der Tabelle "Tabelle_Gesamt" steht als Wert die Zeichenfolge "keine", also ein Text.
Am einfachsten ist es, bei den Berichtseigenschaften das im Bericht vorhandene Textfeld "txtAuflagen" auszublenden, wenn dort der Wert "keine" vorhanden ist.

Code:

Die Lösung von Maxel ist noch einfacher, da alles mit einer Zeile Code "erschlagen" wird.

 

Edit: mal eben ausprobieren

Ich bekomme nun den Fehler: "Methoder oder Datenobjekt nicht gefunden" in der Zeile:
Me.txtAuflagen.Visible = False

Liegt es vielleicht dadran, dass ich irgendwie mit Angeben muss, dass sich dieses Textfeld in dem Bereicht "Bericht_Prämissen" befindet?

 

Nein, mein Codebespiel oder das von Maxel

im Ereignis Beim Formatieren des Berichtsbereichs.

musst Du als Ereignisprozedur in den Bericht (nicht im Formular!) aufnehmen.
Öffne den Bericht in der Entwurfsansicht, markiere den Detailbereich, dort die Eigenschaft "Beim Formatieren" und füge den Code ein.

Der Code zur Befehlsschaltfläche braucht nur das öffnen des Berichtes beinhalten... Code:

 

Habe es genau so gemacht wie du gesagt hast und es funktioniert leider nicht. Das Feld Auflagen wird immernoch angezeigt.

Code:

Das habe ich als Ereignisprozedur im Detailbereich des Berichts unter "beim formatieren" reingeschrieben.

Die Schaltfläche im Formular hat folgendes Ereignis beim Klicken:
Code:

Verstehe nicht, warum das nicht funktioniert.

 

Setze doch mal ein Hilfs-Textfeld in den Detailbereich mit dem Steuerelementinhalt
Code:

Zeigt es das Erwartete an?

Oder nimm - wie schon vorgeschlagen - die Tabelle Tabelle_Gesamt mit in die Abfrage für den Bericht. Dann kannst Du das Feld Auflagen im Bericht direkt auswerten.

 

Zeigt es das Erwartete an?

Oder nimm - wie schon vorgeschlagen - die Tabelle Tabelle_Gesamt mit in die Abfrage für den Bericht. Dann kannst Du das Feld Auflagen im Bericht direkt auswerten.

Habe ein Textfeld erstellt (im Bericht) und bei Steuerelementeninhalt den Code reinkopiert:
Code:

Ich bekomme die Meldung, dass die Syntax falsch ist.

 

Hallo,

niemand weis, wie deine Feldnamen lauten...
ID musst durch deinen Feldnamen (DeinFeld) ersetzen!
Aber, jetzt nicht DeinFeld verwenden, ist nur zum besseren Verständnis gedacht!
Als Steuerelementinhalt musst ; verwenden.
Code:

Sollte ID (DeinFeld) ein String sein, also Text musst Hochkommas mit einfügen...
Code:

So, muss jetzt leider weg!

 

Ich glaube, dass Problem ist, dass ich die Werte aus meinem Bericht aus den Formularen nehmen. Ich habe nämlich ein Suchformular erstellt. Wenn ich nun nach Gebäude filtere, werden mir die gefiltereten Gebäude angezeit. Wenn ich nun einen Bericht öffne, werden mir die dazu passenden Auflagen angezeigt, so wie ich es haben will.
Ich will jediglich, dass das Textfeld ausgeblendet wird, wenn im Inhalt von Auflagen "keine" steht.
Nehme ich nun als Abfrage für den Bericht die Daten aus der Tabelle_Gesamt, funktioniert das Suchformular mit den Auflagen nicht mehr, da ja die Daten aus der Tabelle und nicht aus derm Formular genommen werden.
Ich dachte eigentlich, dass es recht simpel sei ein Textfeld auszublenden, aber irgendwie funktioniert das nicht.

 

Zeige uns doch mal die Datenherkunft (SQL) des Berichts.

 

SELECT Tabelle_Gesamt.DatumUnterschrift, Tabelle_Bereich.Bereich, Tabelle_Gebäude.Gebäude, Tabelle_Art.Art, Tabelle_Gesamt.Bezeichnung, Tabelle_Vollständig.Vollständig, Tabelle_Gesamt.[Prämissen(InBetrieb)], Tabelle_Gesamt.Auflagen
FROM Tabelle_Vollständig INNER JOIN (Tabelle_Gebäude INNER JOIN (Tabelle_Art INNER JOIN (Tabelle_Bereich INNER JOIN Tabelle_Gesamt ON Tabelle_Bereich.ID = Tabelle_Gesamt.Bereich.Value) ON Tabelle_Art.ID = Tabelle_Gesamt.Art) ON Tabelle_Gebäude.ID = Tabelle_Gesamt.Gebäude.Value) ON Tabelle_Vollständig.ID = Tabelle_Gesamt.Vollständig
WHERE (((Tabelle_Bereich.Bereich) Like "*" & [Formulare]![frm_Abfrage_Suchen]![cbxBereich] & "*") AND ((Tabelle_Gebäude.Gebäude) Like "*" & [Formulare]![frm_Abfrage_Suchen]![cbxGebäude] & "*") AND ((Tabelle_Art.Art) Like "*" & [Formulare]![frm_Abfrage_Suchen]![cbxArt] & "*") AND ((Tabelle_Gesamt.Bezeichnung) Like "*" & [Formulare]![frm_Abfrage_Suchen]![txtBezeichnung] & "*") AND ((Tabelle_Vollständig.Vollständig) Like "*" & [Formulare]![frm_Abfrage_Suchen]![cbxVollständig] & "*") AND ((Tabelle_Gesamt.ZeichenBehörde) Like "*" & [Formulare]![frm_Abfrage_Suchen]![txtAktenzeichen] & "*"))
ORDER BY Tabelle_Gesamt.DatumUnterschrift DESC;

Ich hoffe, das ist das richtige

 

[Vollständig] scheint also das Bezugfeld zu sein, so dass der Inhalt des oben beschriebenen Prüffeldes lauten sollte
Code:

 

Hallo,

kA ob das jetzt mal das darstellt, was gewünscht wird...
Code:

Da kommt es jetzt mal noch darauf an, ob das Feld Auflagen im Detailbereich ist oder wo?

 

- gelöscht -